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FACILITY: EXECUTIVE, SCHEDULER 


ABSTRACT: 


ASTDEL CONTAINS THE AST DELIVERY INTERRUPT SERVICE ROUTINE AND THE 
ASSOCIATED SUBROUTINES G*SCHSQAST AND G“SCHSNEWLVL. THESE ROUTINES 


IMPLEMENT THE PRIMITIVE AST QUEUEING AND DELIVERY MECHANISMS. 


ENVIRONMENT: 
MODE = KERNEL 


- PAGE 
-SBTTL HISTORY ; DETAILED 
AUTHOR : R. HUSTVEDT CREATION DATE: 1-SEP-76 


MODIFIED BY: 


X-13 SSA0002 Stan Amway 12-Apr-1988 
In SCHSQAST, don’t report AST event if process is 
current on any CPU. 


X-12 SSAO001 Stan Amway 25-Nov-1987 
Prevent ACCVIO when referencing CTLS$GB_SOFT_ AST DISABLE. 
This can happen because the cell is located on a user 
writable, pageable page that will be deleted during 
process deletion. 


X-11 RABOO04 Richard A. Bishop 17-Nov-1987 
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X~10 


Vv03-003 


V03-002 


Vv03-001 


Add PRESERVE=NO to LOCK macro in SCHSQAST by moving. 
one MOVZWL. 


JLV5001 Jake VanNoy 27-Aug-1987 
Add soft-disable of user mode ASTs. A bit in Pl 
space now functions as if $SETAST had been called. 


RNG5009 Rod Gamache 26-Aug-1987 
Fix register setup from last edit. 


RNG5008 Rod Gamache 23-Jul-1987 
Add some performance enhancements. 


RNG5007 Rod Gamache 3-Mar-1987 
Make SCB dispatch directly to SCHSASTDEL in this module. 


RNG5006 Rod Gamache 27-Feb-1987 
Remove MPH$xxx ASMP multiprocessing hooks. 


SF04002 Stephen Fiorelli 05-Feb-1987 
Change reference to sch$gl_nullpcb to schS$ar_nullpeb. 


wcTo00o15 Ward C. Travis 6-Jan-1987 
Update outdated SMPLOCK, SMPUNLOCK uses to LOCK, 
UNLOCK for SMP. 


SF04001 Stephen Fiorelli 23-Apr-1986 
exeSastret no longer a universal symbol. 


SRBO137 Steve Beckhardt 12-Jul-1984 
Fixed bug where ACBs queued to non-existent processes 
are deallocated without checking the NODELETE bit. 


WMCO001 Wayne Cardoza 29-Feb-1984 
Optimize queuing to non-resident process. 


ACGO341 Andrew C. Goldstein, 10-Jun-1983 18:59 
Check and correct stack pointer before AST delivery 
to mask 780 microcode bug in RET instruction. 
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100 _' ~SBTTL DECLARATIONS 

101 

102 ; 

103 : INCLUDE FILES: 

104 ; 

105 SACBDEF ¢ AST CONTROL BLOCK DEFINITIONS 
106 SCPUDEF 7 PER-CPU DATA BLOCK DEFINITIONS 
107 SIPLDEF ? IPL DEFINITIONS 

108 SPCBDEF 3 PCB DEFINITIONS 

109 SPHDDEF ; PHD DEFINITIONS 

110 SPRDEF 3 PROCESSOR REGISTER DEFINITIONS 
111 SPRIDEF _ % PRIORITY INCREMENT CLASS DEFS 
112 SPSLDEF ? PSL FIELD DEFINITIONS 

113 $SSDEF 3 STATUS CODE DEFINITIONS 

114 SSTATEDEF 3 DEFINE PCB STATES 

115 

116 ; 

117 ; EQUATED SYMBOLS: 

118 ; 

119 ASTEXIT=#0 : AST EXIT CHANGE MODE CODE 

120 ; 

121 3; OWN STORAGE: 

122 ; 
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124 -SBTTL Initialization Routine 

125 ; 

126 ; ASTDEL_INIT 

127 ; 

128 ; Initialize the SCB with the ASTDEL handler address. 
129 ; 

130 ; 

131 DECLARE _PSECT EXECSINIT_CODE 

132 

133 INITIALIZATION_ROUTINE - 

134 ASTDEL_INIT 

135 

136 ASTDEL_INIT: 

137 MOVL G*EXESGL_SCB, RO 3; SCB address 
138 MOVAB W*SCHSASTDEL, *X88 (RO) 3 Fill in ASTDEL vector 
139 MOVL #SS$_NORMAL, RO 

140 RSB 

141 

142 

143 DECLARE_PSECT EXECSNONPAGED_ CODE 
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-SBTTL SCHSASTDEL - AST DELIVERY INTERRUPT HANDLER 
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SCHSASTDEL RECEIVES THE AST DELIVERY INTERRUPT (IPL - 2) WHICH 
IS INITIATED BY AN REI INSTRUCTION DETECTING ASTLVL LESS THAN 


THE HEAD OF THE AST QUEUE 


se 
e 


me Se Ne Se Ye Ne Ye Se Se Sea Ve Ye Ne 


FOR THE CURRENT PROCESS IS REMOVED AND PROCESSED. SPECIAL 
KERNEL MODE ASTS ARE PROCESSED WITH IPL REMAINING AT IPL 2. 
NORMAL ASTS ARE DELIVERED BY PUSHING THE AST INFORMATION ON 
THE STACK OF THE MODE RECEIVING THE AST AND THE AST ACTIVE 
BIT FOR THAT MODE IS SET TO PREVENT SUBSEQUENT ASTS UNTIL THE 


SPURIOUS AST INTERRUPTS WILL BE DETECTED AND IGNORED. 


PCB OF CURRENT PROCESS LOCATED VIA CPUSL_CURPCB IN PER- 


AST CONTROL BLOCK AT HEAD OF AST QUEUE FOR PROCESS 


INTERRUPT ROUTINES ON LW BOUND 


SCHSASTDEL 


AST DELIVERY INTERRUPT HANDLER 

SAVE RO=-R5 

ONE REGISTER AT A TIME FOR 

SPEED AT THE 

EXPENSE OF SPACE AND 

CLARITY 

(PUSHLS ARE FASTER THAN MOVQ OR PUSHR) 
ASSUME NOT SOFT DISABLE 

GET POINTER TO CURRENT PCB 

If delete pending for process, 

skip fetch of soft AST disable flag 
TEST SP 

BRANCH IF SWAPPER PROCESS; STACK IN SO 


G“CTLS$GB_SOFT_ AST DISABLE,R2 ; MUST FETCH BEFORE RAISING IPL 


LOCK SCHED DATABASE 
RAISE IPL 

DON’T PRESERVE RO 

AND REMOVE HEAD OF QUEUE 


ett 
3; FUNCTIONAL DESCRIPTION: 
7 
er 
? OR EQUAL TO PSL<CURRENT MODE>. 
? 
7 
; 
? 
: CURRENT ONE FOR THAT MODE HAS BEEN PROCESSED. 
? 
? 
“a 
3; CALLING SEQUENCE: 
; IPL - 2 INTERRUPT 
, 
e 
; INPUT PARAMETERS: 
; 00(SP) = PC AT AST DELIVERY INTERRUPT 
? 04(SP) = PSL AT AST DELIVERY INTERRUPT 
. 
: IMPLICIT INPUTS: 
? CPU DATA BLOCK FOR THIS CPU. 
; 
e 
: OUTPUT PARAMETERS: 
? NONE 
3; COMPLETION CODES: 
7 NONE 
-ALIGN LONG 
UNIVERSAL SYMBOL 
3 SCHSASTDEL: : 
PUSHL R5 
PUSHL R4 
PUSHL R3 
PUSHL R2 
PUSHL R1 
PUSHL RO 
GETNEXT: CLRL R2 
MOVL G“CTLS$GL_PCB, R4 
BBS #PCBSV_DELPEN, - 
PCBSL_STS (R4) ,10$ 
TSTL SP 
BLSS 10$ 
MOVZBL 
108: LOCK LOCKNAME=SCHED, - 
LOCKIPL=#IPL$_SYNCH, - 
PRESERVE=NO 
REMQUE @PCBSL_ASTOQFL(R4),R5 
BVS QEMPTY 


me Ne te we Ye 


EXIT IF QUEUE EMPTY 
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202 BBCcC #ACBS$V_KAST, ACBS$B_RMOD(R5),NORM ; BR .IF NORMAL AST 
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204 -SBTTL KAST - SPECIAL KERNEL AST DISPATCHING 
205 ; 
206 ; AST LEVEL WILL BE LEFT AT 0 (KERNEL) WHILE PROCESSING THE SPECIAL KERNEL 
207 ; AST. IT WILL BE CORRECTED EVENTUALLY BEFORE IPL IS DROPPED BELOW IPLS$ ASTDEL 
208 ; BY REPEATED TRIPS TO GETNEXT. > 
209 ; 
210 ; THE KERNEL AST ROUTINE IS ENTERED VIA A JSB TO THE SPECIFIED 
- 211 3 ADDRESS WITH IPL=2 AND THE POINTER TO THE AST CONTROL BLOCK 
212 ; IN RS. IT IS THE RESPONSIBILITY OF THE KERNEL AST ROUTINE 
213 ; TO PROPERLY RELEASE OR OTHERWISE DISPOSE OF THE AST CONTROL 
214 ; BLOCK. THE PCB BASE ADDRESS IS IN R4. 
215 ; 
216 ; REGISTERS RO-R5 HAVE BEEN PRESERVED AND ARE AVAILABLE FOR 
217 ; USE BY THE AST ROUTINE. 
(218 ; 
219 ; 
220 ; SINCE KAST ROUTINES OFTEN QUEUE NORMAL ASTS, QIO FOR EXAMPLE, ATTEMPT 
221 ; TO DELIVER FURTHER ASTS WITHOUT INCURRING REDUNDANT EXIT AND ENTRY COSTS. 
222 ; 
223 
224 UNLOCK LOCKNAME=SCHED, ~ 3 UNLOCK SCHED DATBASE 
225 NEWIPL=#IPL$_ASTDEL, - # DROP IPL 
226 PRESERVE=NO 
227 PUSHAB GETNEXT 7 SET RETURN ADDRESS TO CONTINUE WITH Q 
228 JMP @ACBS$L_KAST (R5) ? DO KERNEL MODE AST ; 
229 
230 ; : 
231 ; THIS UNUSUAL CALLING SEQUENCE IS TO MINIMIZE THE NUMBER OF TAKEN BRANCHES 
232 ; AND IS EQUIVALENT TO: : 
233 3; JSB @ACBSL_KAST(R5) 
234 ; BRB GETNEXT 
235 3; 
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283 
284 
285 
286 
287 
288 
289 
290 
291 
292 


-SBTTL ASTDEL EXITS 


THE CTLS$GB_SOFT_AST_ DISABLE LOW BIT WAS SET. CLEAR THE AST ENABLE BIT, JUST 
AS IF S$SETAST HAD BEEN CALLED. ALSO, SET THE BIT THAT TELLS THE USER 
LEVEL CODE TO CALL S$SETAST TO REENABLE ASTS WHEN DONE. 


~e %e Ye Ye Ye 


SOFT_AST_DISABLE: 


BBCC R3, PCBSB_ASTEN(R4), 10$ ? REALLY DISABLE ASTS 
10$: MOVB #1,G°CTLSGB_REENABLE ASTS ; FLAG FOR USER THREAD 


IF THE ASTMODE IS DISABLED OR ACTIVE, THEN SET ASTLVL TO PREVENT 
FURTHER INTERRUPTS. THERE IS AN ASSUMPTION (AND HAS BEEN FOREVER) 
THAT AN INNER ACCESS MODE WILL NOT EXIT TO AN OUTER ACCESS MODE 
WITH EITHER AN ACTIVE AST OR LEAVING ASTS DISABLED. 


we Se Ye Se Ve Ye 


: 


THE AST DELIVERY INTERRUPT WAS SPURIOUS, A PENDING IPL~-2 INTERRUPT LEFT 
OVER FROM THE PREVIOUS PROCESS. THESE OCCUR INFREQUENTLY AND ARE DETECTED 
BY COMPARING THE ACCESS MODE OF THE FIRST AST IN THE QUEUE WITH THE CURRENT 
MODE OF THE INTERRUPTED PSL. SPURIOUS IPL-2 INTERRUPTS ARE ALSO DETECTED 
BY THE REMQUE ABOVE FINDING AN EMPTY QUEUE. 


ue “oe Se Se Ye Ye Ye 


SPURIOUS: 
INSQUE (R5),PCBSL_ASTOFL(R4) 
BRB’ SETLVL 


=e 


REQUEUVE AT HEAD OF QUEUE 
AND SET NEW ASTLEVEL 


=e Ne 


THE AST QUEUE IS. NOW EMPTY. EITHER THE AST DELIVERY INTERRUPT IS SPURIOUS 
OR ALL OF THE QUEUED ASTS HAVE BEEN CANCELED BY SIMPLY REMOVING THEM FROM THE 
QUEUE. INSURE THAT ASTLVL IS SET TO PREVENT FURTHER INTERRUPTS. 


R4 - PCB ADDRESS 


1 se Se Ne te Se Se Ne 
eS] 


a 


MOVL #4,R1 7; SET NULL AST LEVEL 
SET AST LEVEL TO BEST ESTIMATE OF CORRECT ACCESS MODE. 


R1 - NEW ACCESS MODE TO SET IN ASTLVL 


se me Ye Ye eo 


GET PROCESS HEADER ADDRESS 

SET ASTLEVEL IN HW PCB 

AND PROCESSOR REGISTER 

AST DELIVERY EXIT 

UNLOCK SCHED DATABASE/NO IPL CHANGE 
DON’T PRESERVE RO 

RESTORE REGISTERS RO,R1 

RESTORE REGISTERS R2,R3 

RESTORE REGISTERS R4,R5 

AND RETURN 


ETLVL: MOVL PCBSL_PHD(R4) , RO 
MOVB R1, PHD$B_ASTLVL (RO) 
MTPR R1, #PR$_ASTLVL 

ASTDEXIT: 

UNLOCK LOCKNAME=SCHED, - 

PRESERVE=NO 

MOVQ (SP) +,RO 

MOVO (SP)+,R2 

MOVO (SP)+,R4 

RE IMAC 


me Ve Ye Se Ve 


=e Se Ye Ne 


=e 
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326 
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me Ne Me Ne Ve Se Se Ve Ye Se Ve Yeo Ye Ve “Ne Ne Ne 


NORM: 


208: 


308: 


=e Ve Ye Ve Se 


-SBTTL 


NORM - NORMAL AST DELIVERY 


AT THIS POINT THE KERNEL STACK IS: 


00 (SP) 
04 (SP) 
08 (SP) 
12 (SP) 
16 (SP) 
20 (SP) 
24 (SP) 
28 (SP) 


SAVED RO 
SAVED Ri 
SAVED R2 
SAVED R3 
SAVED R4 
SAVED R5 
SAVED PC 
SAVED PSL 


RO - PHD ADDRESS 


R1 
R2 
R4 
RS 


ACCESS MODE OF NEXT ACB OR NULL AST LEVEL 
COPY OF CTL$GB_SOFT_AST DISABLE 

PCB ADDRESS 

ACB ADDRESS 


; NORMAL AST DELIVERY 

ACB$V_MODE EQ 0 

ACBSS_ MODE EQ 2 

R1 ; BACKGROUND R3 WITH ZEROES 
#°C<3>,ACBSB_RMOD(R5),R1; EXTRACT ACCESS MODE FOR CURRENT AST 
#PSLS$V_CURMOD, #PSL$S_CURMOD, 28(SP),R1 ; IS CURRENT MODE LEGAL 
SPURIOUS ; BR IF SPURIOUS 

(R1)+,R3 ; SET FOR NEXT ACCESS MODE. 
R3,PCB$B_ASTEN(R4),BLOCKED ; BR IF AST DISABLED 

#PSLS$C_USER, R3 ; USER MODE? 

20$ ; BR IF NOT 

R2,SOFT_AST_DISABLE ; BRANCH IF SOFT-DISABLED 
R3,PCB$B_ASTACT(R4),BLOCKED ; SET AST ACTIVE 

R1, #PR$_ASTLVL ; SET AST LEVEL IN PROCESSOR REGISTER 
PCBS$L_PHD (R4),RO ; GET PROCESS HEADER ADDRESS 

R1, PHD$B_ASTLVL (RO) ; SET AST LEVEL IN HW PCB 
#ACB$V_QUOTA, ACB$B_RMOD(R5),30$ ; SKIP IF NO QUOTA ACCOUNTING 
#1, PCBSW_ASTCNT (R4) UPDATE OUTSTANDING COUNT 

AND DELIVER AST 

UNLOCK SCHED DATABASE 

DROP IPL 

DON’T PRESERVE RO 


=e “ee Se 


LOCKNAME=SCHED, - 
NEWIPL=#IPL$ ASTDEL, - 
PRESERVE=NO 


me Ne 


A NEW VALUE FOR ASTLVL HAS NOW BEEN COMPUTED AND SET. 
THE AST REPRESENTED BY THE AST CONTROL BLOCK LOCATED VIA 


R5 CAN 


TSTL 
BNEQ 


NOW BE DELIVERED. 
R3 ; CHECK FOR DELIVERY TO KERNEL 
NOTKMODE ? BR IF NOT KERNEL MODE 
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343 -SBTTIL NORMAL KERNEL MODE AST 

344 ; 

345 3; DELIVER NORMAL AST TO KERNEL MODE 

346 ; 

347 KMODE: MOVQ (SP)+,RO 3 RESTORE RO,R1 

348 MOVAL W“ASTEXIT_ CHMK, - (SP) 3 GET ADDRESS OF EXIT 

349 CMPL 20(SP), (SP) + ¢ DELIVERY OCCUR DURING ASTEXIT REI? 
350 BNEQ 40$ 3 NO, JUST CONTINUE 

351 BITB #<PSLS$M_CURMOD- 3 WAS INTERRUPTED MODE KERNEL? 

352 @<-PSLSV_CURMOD>>, 23 (SP); 

353 BEQL 50$ : YES, PREVIOUS AST RO,R1,PC,PSL ALREADY ON 
354 ; 
355 3 00(SP) = R2, 04(SP) = R3, 08(SP) = R4, 12(SP) = R5, 

356 ; 16(SP) = PC, 20(SP) = PSL 

357 ; : 

358 408: 

359 MOVQ 8 (SP) ,- (SP) : SHUFFLE STACK 

360 ; 

361 ; OO(SP) = R4, 04(SP) = R5, 08(SP) = R2, 12(SP) = R3, 

362 3; 16(SP) = R4, 20(SP) = R5, 24(SP) = PC, 28(SP) = PSL 

363 3; 

364 MOVQ 8 (SP) ,- (SP) ; OPEN FOR AST ARG LIST 

365 ; 

366 ; 00(SP) = R2, 04(SP) = R3, 08(SP) = R4, 12(SP) = RS, 

367 ; 16(SP) = R2, 20(SP) = R3, 24(SP) = R4, 28(SP) = R5, 

368 ; 32(SP) = PC, 36(SP) = PSL 

369 ; 

370 MOVOQ RO, 24 (SP) 3; SET RO,R1 IN ARG LIST 

371 508: MOVL ACBSL_ASTPRM(R5),20(SP) ; SET AST PARAMETER IN ARG LIST 
372 MOVL #5,16(SP) 3 SET COUNT FOR ARGUMENT LIST 
373 MOVL R5,R0O 3 RELEASE AST CONTROL BLOCK 

374 PUSHL ACBSL_AST(R5) : SAVE AST ROUTINE ADDRESS 

375 BBC #ACBSV | PKAST, ACBSB_! RMOD (R5) , 60$ ; BR IF NO PIGGY-BACK KAST 
376 3; 

377 : CALL PIGGY-BACK SPECIAL KERNEL AST ROUTINE. 

378 ; R5 ~- ACB ADDRESS (MUST BE PRESERVED) 

379 ; IPL = IPL$ ASTDEL (MUST NOT BE LOWERED) 

380 ; 

3861 JSB @ACBSL_KAST(R5) 3; CALL KAST ROUTINE 

382 BRB 70$ 3 NO DELETE FOR PKAST 

383 60S: BBS #ACB$V_NODELETE, ACB$B_RMOD (R5) , 70$; BR IF NOT DELETEABLE 
384 JSB G*EXESDEANONPAGED -3 TO DYNAMIC POOL 

385 708: MOVQ (SP)+,R1 ? RESTORE R1,R2 

386 MOVQ (SP)+,R3 ? RESTORE R3,R4 

387 MOVL (SP)+,R5 3 RESTORE R5 

388 SETIPL #0 3 DROP IPL TO ZERO 

389 ; BRB EXESASTDEL 3 FALL THROUGH TO CALL AST ROUTINE 
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391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 


419 


420 
421 


me Ye Ye Ye Ye Se Ye Ye Se Ye Ye Yeo Ye Ye Ye Yo Ve Yo Ye Yo 


EXESASTRET: : 


- 00(SP) 


20 (SP) 


CHMK S“#ASTEXIT 
ASTEXIT_CHMK: 


CALL AST ROUTINE WITH AST ARGUMENT LIST 


THE CALL IS EXECUTED AT THE MODE WHICH RECEIVED THE AST WITH 
THE AST ARGUMENT LIST ON THE TOP OF THE STACK. WHEN THE. 

AST. ROUTINE RETURNS FROM THE CALL, AN ASTEXIT CHANGE MODE 

TO KERNEL INSTRUCTION WILL BE ISSUED. ASTEXIT WILL RESET 

THE AST ACTIVE BIT FOR THE CURRENT MODE AND MAY CAUSE DELIVERY 
OF ADDITIONAL ASTS. — 


AST ARGUMENT LIST: . 


NUMBER OF ARGUMENTS, =5 
AST PARAMETER 

SAVED RO 

SAVED R1 

SAVED PC 

SAVED PSL 


04 (SP) 
08 (SP) 
12 (SP) 
16 (SP) 


UNIVERSAL SYMBOL EXESASTDEL | 
2 EXESASTDEL: : | 


. DELIVER AST CALL 
CALL AST ROUTINE 


me Ne 


CALLG (SP), (R1) 


RETURN. ADDRESS FOR AST CALL 
REMOVE ARG COUNT AND ASTPRM 

AND EXIT FROM AST ROUTINE 
RETURN ADDRESS FOR AST EXIT CHMK 
RESTORE RO,R1 

EXECUTE REI IN MODE OF AST 


ADDL #8,SP 


we Ye Me Ye 


MOVQ - (SP)+,RO0 
REIMAC 


-e Ve 
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423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 


-SBTTL NORMAL EXEC, SUPER AND USER MODE AST 
-ENABLE LSB 
e 
? SPECIAL CASE CODE TO HANDLE THE SITUATION WHERE THE OUTER MODE SP HAS 
? BEEN FOUND TO BE BELOW THE FP, MEANING THE STACK IS CORRUPTED. THIS 
3; SITUATION CAN RESULT FROM A 780 MICROCODE BUG SHICH LEAVES THE SP 
? WRONG WHEN A RET PAGEFAULTS WHILE LOOKING AT THE ARG LIST. WE CHECK 
? FOR THIS CASE AND SET SP = FP, WHICH IS ADEQUATE TO SERVICE THE AST 
3; AND LET THE RET RE-EXECUTE. 
v 
1$: ADDL3 #18*4,FP,RO : RANGE LIMIT IS MAXIMAL FRAME + ALIGNMENT 
CMPL R1, RO ? CHECK IF SP IS WITHIN RANGE 
BGTRO 5$ :; IF NOT, SOME OTHER PROBLEM - DON’T FIX 
 MOVL FP,R1 ; SET OUTER MODE SP = FP 
BRB 5$ ?; AND CONTINUE 
3 
, DELIVER NORMAL AST FOR EXEC, SUPER AND USER MODE 
7 
NOTKMODE: ; NOT AN AST FOR KERNEL MODE 
MFPR. R3,R1 ; GET STACK POINTER 
CMPL R1, FP ; SEE IF STACK POINTER IS ABOVE FP 
BGTRU 15S ; BRANCH IF NOT - POSSIBLE FIXUP 
5$: IFNOWRT #24, -24(R1),STACKERR,R3 ; ENOUGH STACK SPACE?? 
MOVQ 24(SP),-(R1) 3; MOVE PC,PSL TO PROPER STACK 
MOVQ (SP) +,-(R1) ; AND RO,R1 FROM KERNEL STACK 
MOVAL W“ASTEXIT_CHMK, - (SP) ?; GET ADDRESS OF EXIT CODE 
CMPL 20(SP), (SP) + ; DELIVERY OCCUR DURING ASTEXIT REI? 
BEQL 50$ 3; YES, CHECK FOR SAME MODE 
10$: MOVL ACBS$L_ASTPRM(R5),-(R1) ; SET AST PARAMETER IN ARG LIST 
MOVL #5,-(R1) ; AND FINALLY, ARGUMENT COUNT OF 5 
MTPR R1,R3 ?; SAVE UPDATED STACK POINTER 
PUSHL ACBS$L_AST(RS5) ? STACK AST ENTRY POINT 
MOVL R5, RO ; SET ADDRESS OF ACB FOR RELEASE 
MOVAB G“EXESASTDEL, 20 (SP) ; SET PC TO AST DELIVERY CALL 
MOVAL (R3) (R3],R3 ; MODE=MODE*5, CURMOD=PRVMOD 
ASSUME PSLS$V_CURMOD EQ PSL$V_PRVMOD+2; FOR ABOVE MOVAL 
ASHL #PSLS$V_PRVMOD,R3,24(SP) ; SYNTHESIZE PSL FOR PROPER MODE 
BITB #<ACBSM_NODELETE!ACB$M_PKAST>, ACB$B_RMOD(R5) ; SPECIAL ACTIONS? 
BNEQ 40$ ; BR IF SO AND DECODE 
208: _JSB G“EXESDEANONPAGED ; RELEASE AST CONTROL BLOCK 
30$: MOVQ (SP)+,R1 RESTORE R1,R2 


40 


ee Ye Ye Ve Be 


MOVO (SP)+,R3 
MOVL (SP) +,R5 


RESTORE R3,R4 
RESTORE R5 


e@ %e Ve Ne Ne 


REIMAC AND ENTER AST MODE 
; DROPS IPL TO ZERO 
$: BBC #ACB$V_PKAST, ACBSB_RMOD(R5),30$ ; BR IF NO PIGGY-BACK KAST 


CALL PIGGY-BACK SPECIAL KERNEL AST ROUTINE. 
R5 - ACB ADDRESS (MUST BE PRESERVED) 
IPL = IPL$_ASTDEL (MUST NOT BE LOWERED) 


JSB @ACBSL_KAST(R5) ; CALL KAST ROUTINE 
BRB 30$ ; NO DELETE FOR PKAST 
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480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
$21 
522 
523 
524 
525 
526 
527 


wa ~e Ne Ne 


0s: 


108: 
208: 


we Ne Ye Te Ye 


308: 


40S: 


998: 


CMP2V 


BNEQ 
‘MFPR 
BRB 


SPECIAL CASE FOR AST DURING AST EXIT. 


#PSL$V_CURMOD, - 
#PSL$S_CURMOD, 20(SP) ,R3 
10$ 

R3,R1 

10$ 


-DISABLE LSB 


REFLECT STACK ERROR 


TACKERR : 


CMPL 
BNEQ 
PUSHR 
MOVAB 
JSB 
POPR 
BLBS 
BBCC 
MOVQ 
MOVO 
MOVQ 
MOVL 
MOVL 
MOVL 
MULL 
ROTL 
MOVL 
BBC 


#PSLS$C_USER, R3 

10$ 
#°M<R1,R2,R3,R4, R5> 
-24(R1),R2 
G“EXESEXPANDSTK 
#“M<R1,R2,R3,R4,R5> 

RO, 99$ 
R3,PCB$B_ASTACT (R4) , 20$ 
16(SP),-(SP) 
16(SP),-(SP) 
40(SP) , 32 (SP) 
ACBSL_AST(R5) , 40(SP) 
ACBSL_ASTPRM(R5) , 28 (SP) 
R1, 24 (SP) 


we Ve Ve Ne Me 


we we Me Ye Ye Me te Ve Se Ye me Ne Se Se Ne 


WAS AST’S MODE THE ONE INTERRUPTED? 


NO, JUST CONTINUE 
RESET SP - RO,R1,PC,PSL ALREADY ON STACK 
CONTINUE 


ERROR IN STACK MOVE 

IS THIS AST FOR USER MODE? 

NO, THEN WE CANT EXTEND THE STACK 
SAVE NECESSARY REGISTERS 

COMPUTE DESIRED STACK TOP ADDRESS 
EXPAND USER STACK TO DESIRED SIZE 
RESTORE REGISTERS 

CONTINUE IF SPACE CREATED 

CLEAR AST ACTIVE BIT 

CREATE SPACE ON STACK 

BY MOVING R2-R5 DOWN 

SAVE PC,PSL AT INTERRUPT 

SET PC AT FAULT TO AST ADDRESS 
SET ASTPRM IN ARGLIST 

SAVE STACK VA AT FAULT 


#1+<1@<PSLS$V_CURMOD-PSLSV PRVMOD>>, R3 ? CURRENT MODE = PREV 


#PSLSV_PRVMOD,R3, 44 (SP) 
R5, RO 


e 


e 
e 


~ SYNTHESIZE NEW PSL FOR FAULT 
SET ADDRESS FOR RELEASE OF ACB 


#ACBSV_PKAST, ACBSB_RMOD (R5),30$ ; BR IF NO PIGGY-BACK KAST 


CALL PIGGY-BACK SPECIAL KERNEL AST ROUTINE. 


R5 - ACB ADDRESS (MUST BE PRESERVED) 
IPL = IPL$ ASTDEL (MUST NOT BE LOWERED) 


JSB 
BRB 
BBS 
JSB 
POPR 
POPR 
SETIPL 
JMP 


BRW 


@ACBS$L_KAST (R5) 
40$ 


=e Ve 


CALL KAST ROUTINE 
NO DELETE FOR PKAST 


#ACBSV_NODELETE, ACBSB_RMOD (RS), 40$; BR IF NOT DELETEABLE 


G“EXES$DEANONPAGED 
#°M<R2, R3,R4,R5> 
#°M<RO, R1> 

#0 

G*EXESASTFLT 


NOTKMODE 


-e Se Ye we 


; AND DEALLOCATE IT 
RESTORE ALL REGISTERS 
FROM POINT OF INTERRUPT 
DROP IPL TO 0 
REFLECT EXCEPTION 


LONG BRANCH 
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529 
530 
531 
532 
533 
534 
535 
536 
$37 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 


-SBTTL EXES$IPAPBKAST - SPECIAL PIGGY BACK KAST FOR IPAST SERVICE 
++ 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS A SPECIAL PIGGY BACK KAST ROUTINE CALLED BY 
ASTDEL DURING DELIVERY OF THE INTER-PROCESS AST. IT TAKES THE 
IPAST INDEX RESIDING IN ACB$L AST AND USES IT TO INDEX INTO THE 
VECTOR OF AST ADDRESSES LOCATED IN THE VECTOR PAGE OF THE CONTROL 
REGION. THIS ADDRESS REPLACES WHAT WAS ON THE STACK WHEN THIS 
ROUTINE WAS ENTERED. ROUTINE IS INCLUDED HERE SINCE ITS HAS 
KNOWLEDGE OF HOW STACK LOOKS WHEN PIGGYBACK AST IS CALLED. 


INPOTS : 
4(SP) --> AST ADDRESS 
ACBSL_AST(R5) = INDEX OF IPASTS 


OUTPUTS: 
4(SP) --> NEW AST ADDRESS 


me “Ye Ye Ye Ye Ye Ye Ye Be Ye Ye Be Ve Yo Ve Ve Ye Ve 


UNIVERSAL_SYMBOL EXES IPAPBKAST 
7 EXESIPAPBKAST:: 
MOVL ACBSL_AST (R5) , R2 
MOVL G“CTLSAL_IPASTVEC [R2] , RO 
BEQL 10$ 
MOVL RO, 4(SP) 
10S: MOVL _—__R5, RO 
JMP G“EXE$DEANONPAGED 


Pick up index 

Get IPAST address 

No longer in use — 

Fixup AST delivery address 
Transfer address of packet 
Get rid of it 


we Ye Ye Xe we Vo 


1§ 
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-SBTTL SCHSQAST - ENQUEUE AST CONTROL BLOCK FOR PROCESS 


558 
559 
‘560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 


We Ne Se Re Ne Se Ne te Me Me Me Be Ne Se Ne Te Ne Be Se Se Te Ne Se Ye Ne Ne Ne Se Ne Ne Ne 


- 
+ 


-ENABL 
QNONEXPR: 


~e Te Ms 


IF APPROPRIATE. 


SIDE EFFECTS: 
THE PROCESS IDENTIFIED BY THE PID IN THE AST CONTROL BLOCK 
WILL BE MADE EXECUTABLE IF NOT SUSPENDED. 


SS$_NONEXPR - 


FUNCTIONAL DESCRIPTION: 
_ G*SCHSQAST INSERTS THE AST CONTROL BLOCK SUPPLIED IN THE PROPER 
POSITION BY ACCESS MODE IN THE AST QUEUE OF THE PROCESS SPECIFIED 
BY THE PID FIELD OF THE AST CONTROL BLOCK. AN AST ARRIVAL EVENT 
IS THEN REPORTED FOR THE PROCESS TO REACTIVATE FROM A WAIT STATE 
THE AST CONTROL BLOCK WILL BE RELEASED IMMEDIATELY 
IF THE PID SPECIFIES A NON-EXISTENT PROCESS. 


CALLING SEQUENCE: 
BSB/JSB G*SCHSQAST 


INPUT PARAMETERS: 
R2 - PRIORITY INCREMENT CLASS 
R5 - POINTER TO AST CONTROL BLOCK 


IMPLICIT INPUTS: 
PCB OF PROCESS IDENTIFIED BY PID FIELD 


OUTPUT PARAMETERS: 
RO ~ COMPLETION STATUS CODE 
R4 =- PCB ADDRESS OF PROCESS FOR WHICH AST WAS QUEUED 


COMPLETION CODES: 
SS$ NORMAL - NORMAL SUCCESSFUL COMPLETION STATUS 
NON-EXISTENT PROCESS 


LSB 


DEALLOCATE THE ACB AS LONG AS THE NODELETE BIT IS NOT SET. 
THIS REALLY SHOULDN’T HAPPEN, BUT IF IT DOES, WE CHOOSE 
TO POSSIBLY LOSE POOL OVER POSSIBLY CORRUPTING IT. 


#ACBSV_NODELETE, ACBSB_RMOD(R5),5$; BR IF NOT DELETEABLE 


RELEASE AST CONTROL BLOCK 
? IF NO SUCH PROCESS 

SET ERROR STATUS CODE 

AND EXIT 


ENQUEVE AST FOR PROCESS 
LOCK SCHED DATABASE 
RAISE IPL 

SAVE CURRENT IPL 


GET PROCESS INDEX FOR AST TARGET 
LOOK UP PCB ADDRESS 


ACB$L_PID (RS), PCBSL_PID(R4) ; CHECK FOR MATCH IN PID 


BBS 
MOVL R5,RO ? 
JSB G*EXESDEANONPAGED 
5$: MOVZWL #SS$_NONEXPR, RO ; 
BRW QEXIT ; 
~ALIGN LONG 
UNIVERSAL_SYMBOL SCHSQAST 
3 SCHSQAST: : ; 
LOCK LOCKNAME=SCHED, - : 
LOCKIPL=#IPL$_SYNCH,- ; 
SAVIPL=- (SP) ,- ; 
PRESERVE=NO 
MOVZWL ACBSL_PID(R5),RO : 
MOVL @L*SCHSGL PCBVEC[(RO],R4 ; 
CMPL 
BNEQ QNONEXPR : 
CMPL G*SCHSAR_NULLPCB, R4 : 
BEQL QNONEXPR ; 


PID MISMATCHES 
QUEUEING TO NULL JOB? 
DECLARE NON EXISTANT 
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615 CLRL RO ? ASSUME KERNEL MODE AND CLEAR HIGH BITS 
616 INSQUE (R5),PCBSL_ASTOQFL(R4) 7; ASSUME QUEUE IS EMPTY AND ATTEMPT INSERT 
617 BNEQ 50$ ? BR IF IT WAS NOT EMPTY 

618 TSTB ACBS$B_RMOD (R5) 7 CHECK FOR SPECIAL KERNEL AST 

619 BLSS 10$ ; BR IF YES 

620 BICB3 #*C<3>,ACBS$B_RMOD(R5),RO; GET AST MODE 

621 ; 

622 ; THE PROCESS HEADER ADDRESS IS ALWAYS A SYSTEM SPACE ADDRESS (NEGATIVE NUMBER) 
623 ; WHILE THE PROCESS HEADER IS RESIDENT. DURING THE OUTSWAP TRANSITION IT IS 

624 ; THE BALANCE SLOT INDEX, A SMALL POSITIVE NUMBER. FINALLY, AFTER OUTSWAP IT 


625 ; IS SET TO ZERO. HENCE, THE FOLLOWING TEST COMBINES THE FETCH OF THE PHD 


626 ; ADDRESS WITH THE TEST FOR PROCESS RESIDENCE. 

627 ; 

628 108: MOVL PCBSL_PHD (R4),R1 7 POINT TO PROCESS HEADER 

629 BGEQ 30$ 7 DON’T SET ASTLVL IF NOT RESIDENT 
630 MOVB RO, PHDSB_ASTLVL (R1) ¢ SET ASTLVL IN PROCESS HEADER 
631 CMPW #SCHS$C_CUR, PCBSW_STATE(R4); IS PROCESS CURRENT ANYWHERE 
632 BNEQ 30$ 3 NO THEN REPORT EVENT 

633 find _cpu_data R1 ? GET POINTER TO PER-CPU DATA 

634 CMPL CPUSL_CURPCB(R1) , R4 # IS PROCESS CURRENT ON THIS CPU? 
635 BNEQ 40$ 7 BR IF NO 

636 MTPR RO, #PR$_ASTLVL 7 ELSE, SET ASTLVL REGISTER 

637 BRB 35$ 


REPORT AST ARRIVAL 
SET SUCCESS STATUS CODE 
UNLOCK SCHED DATABASE 


638 308: RPTEVT AST 
639 358: MOVZWL. #SS$_ NORMAL, RO 
640 QEXIT: UNLOCK LOCKNAME=SCHED, - 


we Ye Ne Se Re Ve 


641 NEWIPL= (SP) +, - RESTORE PREVIOUS IPL 

642 CONDITION=RESTORE RESTORE ACCESS COUNT ON LOCK 

643 RSB AND RETURN 

644 ; 

645 ; IF THE AST IS BEING ENQUEUVED FOR THE CURRENT PROCESS, THEN THE REPORTING 
646 ; OF THE AST EVENT CAN BE BYPASSED AND THE ASTLVL PROCESSOR REGISTER MUST BE 
647 ; SET INSTEAD. 

648 ; 7 

649 40S: MOVL PCBSL_CPU_ID(R4), RO 3 GET CPU ID THAT PROCESS IS CURRENT ON 
650 IPINT CPU UPDASTLVL 3 REQUEST ASTLVL UPDATE 

651 BRB 353 3; CONTINUE 

652 ; 

653 ; THE AST QUEUE WAS NOT EMPTY (ITS USUAL CONDITION) AND THE PROPER 

654 ; POSITION FOR THE NEW AST MUST BE LOCATED. SINCE THE AST CONTROL 

655 ; BLOCK HAS BEEN ERRONEOUSLY INSERTED ON THE QUEUE, IT MUST BE REMOVED 

656 ; FIRST. 

657 ; 

658 50$:  REMQUE (R5),R5 3 ELSE CORRECT MISTAKE 

659 MOVAL PCBSL_ASTOFL(R4),R1 3; POINT TO QUEUE HEADER 

660 MOVL (R1) ,R3 ; GET FIRST ENTRY ON QUEUE 

661 TSTB ACBS$B_RMOD (R5) 3 CHECK FOR SPECIAL KERNEL AST 

662 BGEQ 70$ ; BR IF NOT 

663 ; 

664 ; THE NEW AST IS A SPECIAL KERNEL AST. IT WILL GO AFTER ALL OTHER SPECIAL 
665 ; KERNEL ASTS OR AT THE HEAD OF THE QUEUE IF THERE ARE NONE. 

666 ; 

667 608: CMPL R1,R3 3; CHECK FOR END OF QUEUE 

668 BEQL 110$ ; BR IF NOT 

669 TSTB ACBS$B_RMOD (R3) 3; CHECK FOR SPECIAL KERNEL IN QUEUE 
670 BGEQ 110$ ; BR IF NOT 

671 MOVL (R3),R3 3 FLINK ON TO NEXT ACB 
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672 BRB 60$ ; 

673 ; : | 

674 ; THE NEW AST IS A NORMAL AST. IT WILL GO AFTER ALL SPECIAL KERNEL ASTS 
675 ; AND ASTS WITH LOWER ACCESS MODE. 

676 ; 


677 708: BICB3 #°C<3>,ACB$B_RMOD(RS),RO; GET AST MODE 
678 80S: CMPL R1,R3 CHECK FOR END OF QUEUE 


679 BEQL 110$ © 3 INSERT IF AT END 

680 CMPZV #ACBSV_MODE, #ACBSS_MODE,- | 

681 ACBS$B_RMOD (R3) , RO 3 COMPARE. ACCESS MODES 

682 BGTR 100$ 3 IF GTR AT RIGHT PLACE 

683 90S: MOVL (R3),R3 .¢ FLINK ON TO NEXT ACB 

684 BRB 80s ? 

685 1008: TSTB ACBSB_RMOD (R3) 3 IS THIS ENTRY A SPECIAL KAST? 
686 BLSS 90$ 3; YES, MUST GO AFTER THIS 

687 ; 

688 ; NOW THE CORRECT POSITION HAS BEEN LOCATED. INSERT THE AST CONTROL BLOCK 
689 ; ON THE QUEUE AND COMPUTE THE NEW VALUE FOR ASTLVL BY INTERROGATING THE 
690 ; MODE OF THE AST CONTROL BLOCK AT THE HEAD OF THE QUEUE. 

691 ; : 

692 1108S: INSQUE (R5),@ACBSL_ASTQBL(R3) ; INSERT AFTER PREVIOUS 

693 *"  CLRL RO ? ASSUME KERNEL MODE 

694 MOVL PCBSL_ASTOFL(R4),R1 3 GET HEAD OF AST QUEUE 

695 TSTB ACBS$B_RMOD (R1) 3 IS IT KAST? 

696 BLSS 120$ ; BR IF YES TO SET ASTLVL 

697 BICB3 #“C<3>,ACBS$B_RMOD(R1),RO; GET AST MODE FOR HEAD OF QUEUE 
698 120$: BRW 10$ 3 GO SET ASTLVL 

699 

700 -DSABL LSB 

701 ASSUME ACBSV_MODE EQ 0 

702 ASSUME ACB$S_MODE EQ 2 

703 ASSUME ACBSV_KAST EQ 7 

7104 
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-SBTTL SCHSNEWLVL - COMPUTE NEW AST LEVEL 


7106 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
7129 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
7421 
742 
743 
744 
745 
746 
747 


7s Te Te te Ye Te Ye Ye “Ne Ve Yo Ye 


INPUT: 


G*SCHSNEWLVL - COMPUTE NEW ASTLVL 


THIS ROUTINE COMPUTES THE NEW AST LEVEL. 


R4 - ADDRESS OF CURRENT PCB 


OUTPUT: 


PR$_ASTLVL - NEW AST LEVEL 
PHDS$V_ASTLVL - NEW AST LEVEL 


-ENABL 


UNIVERSAL_SYMBOL 


; SCHSNEWLVL: : 


108: 


208: 


CLRL 
LOCK 


MOVAL 
MOVL 


‘CMPL 


BEQL 
ASSUME 
TSTB 
BLSS 
BICB3 
MOVL 
ASSUME 
MOVB 
MTPR 
UNLOCK 


RSB 


MOVL 
BRB 
-DSABL 


LSB 


R2 

LOCKNAME=SCHED, - 
LOCKIPL=#IPL$_SYNCH, - 
SAVIPL=- (SP),- 
PRESERVE=NO 
PCBSL_ASTOQFL (R4) , RO 
(RO), R1 

RO, R1 

20$ 

ACBSV_KAST EQ 7 
ACBS$B_RMOD (R1) 

10$ 


#°C<3>,ACBS$B_RMOD(R1) , R2 


PCBSL_PHD(R4) ,RO- 
PHD$S_ASTLVL EQ 8 
R2, PHD$B_ASTLVL (RO) 
R2, #PR$_ASTLVL 
LOCKNAME=SCHED, ~ 
NEWIPL= (SP) +, ~ 
CONDITION=RESTORE, - 
PRESERVE=NO 


#4,R2 
10$ 
LSB 


me te ™e Ne Ne Ne Ve Ye we Ye Ve Yo 


Se Se te Ne Se Ye Me Ye te we 


=e Ne 


SCHSNEWLVL 


COMPUTE NEW AST LEVEL 
ASSUME KERNEL MODE 

LOCK SCHED DATABASE 

RAISE IPL 

SAVE CURRENT IPL 

DON’T PRESERVE RO 

GET ADDRESS OF AST QUEUE 
GET FLINK 

AND CHECK FOR EMPTY QUEUE 
YES, QUEUE IS EMPTY 


CHECK FOR KERNEL AST 
BR IF NOT 

GET REQUEST MODE 

GET ADDRESS OF PHD 
FOR USE OF MOVB 

SET ASTLVL IN PHD 

SET ASTLVL REGISTER 
UNLOCK SCHED DATABASE 
RESTORE PREVIOUS IPL 
RESTORE ACCESS COUNT ON LOCK 
DON’T PRESERVE RO 
RETURN 


SET NULL AST LEVEL 
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749 
750 


751 


752 
753 
754 
755 
756 
757 
758 
759 


760. 


761 
162 
7163 
7164 
765 
766 
767 
168 
169 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
7196 
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X-13 G*SCHSSWAPACBS - SWAP AST CONTROL BLOCKS 12-APR-1988 11:04:19 [SYS.SRCJASTDEL.MAR;1 (12 


-SBTTL G*SCHSSWAPACBS ~ SWAP AST CONTROL BLOCKS 
-SBTTL G*SCH$REMOVACB - REMOVE AST CONTROL BLOCK 


FUNTIONAL DESCRIPTION: 


G*SCHS$SWAPACBS REMOVES AN ACB FROM AN AST QUEUE AND INSERTS ANOTHER 
ACB IN ITS PLACE. I.E. IT SWAPS THE TWO ACBS. THIS IS NORMALLY 
DONE BECAUSE THE ACB BEING REMOVED IS PART OF A LARGER STRUCTURE 


THAT MUST BE FREED UP FOR ANOTHER PURPOSE. THE ACB BEING 


INSERTED IS NORMALLY A COPY OF THE ONE BEING REMOVED EXCEPT THAT THE 
ACBSM_NODELETE BIT IS NORMALLY CLEARED. I.E. THE ONE BEING 
REMOVED WAS NOT DELETABLE BUT THE ONE BEING INSERTED IS. 


G*SCHS$REMOVACB IS AN ALTERNATE ENTRY POINT THAT SIMPLY REMOVES 
AN ACB FROM AN AST QUEUE. 


CALLING SEQUENCE: 


BSB/JSB G*SCHSSWAPACES 

BSB/JSB G*SCHSREMOVACB 

NOTE: THESE ROUTINES MUST BE CALLED AT IPL$_SYNCH, WITH THE 
SCHED DATABASE LOCKED. 


INPUT PARAMETERS : 


R2 ADDRESS OF ACB TO INSERT (GneCHy SwAr ACS ONLY) 
R5 ADDRESS ‘OF ACB TO REMOVE 


OUTPUT PARAMETERS : 


NONE 


UNIVERSAL_SYMBOL SCHS$ SWAPACBS 


7 SCHSSWAPACBS: : 


INSQUE (R2), (R5) 7 INSERT NEW ACB AFTER OLD ONE 


UNIVERSAL_SYMBOL _ SCH$REMOVACB 


7 SCHSREMOVACB: : 


REMQUE (R5),R5 7 REMOVE OLD ACB 
RSB 


- END 
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Table of contents 


(2) 
(3) 
(4) 
(5) 
(6) 
(7) 
(8) 
(9) 
(10) 
(11) 
(12) 
(13) 
(14) 
(15) 
(17) 
(18) 
(19) 
(20) 


40 
223 
431 
549 
652 
716 
775 
800 

1008 
1026 
1109 
1262 
1380 
1662 
1713 
1752 
1796 
1852 


HISTORY ; DETAILED 
DECLARATIONS 

SCH$RSE - REPORT SYSTEM EVENT 

EVENTW - Calculate and apply wait credit 
State and event dependent action routines 
SCHSUNWAIT - DECREMENT COUNT IN WAIT QUEUE 
SITUATIONAL PRIORITY INCREMENT TABLE 
SCHSCHSE - CHANGE STATE TO EXECUTABLE 
SWPO - SWAP OUT SIMPLE NON-EXECUTABLE 


SCHSWAIT ~ PLACE PROCESS IN SELECTED WAIT QUEUE 


SCHS$PIXSCAN ~- Process priority aging 

SCHSONE_SEC - Perform periodic, 1 second processing 

SCHSQEND - QUANTUM END ROUTINE 

SENDAST - Send AST to process 

SCHSWAKE ~ WAKE PROCESS INTERNAL 

SCHSSWPWAKE - WAKE SWAPPER PROCESS 

SCHS$CHANGE_CUR_PRIORITY - Modify priority of running process 
SCHS$CUR_TO COM - Make the current process COM 
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ee Be VO Ye Be Se Yo Yo Ye Be Be 


-TITLE RSE. - REPORT SYSTEM EVENT 
eIDENT ‘'X-32U05’ 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. , 


TRANSFERRED. 


CORPORATION. 


SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


me Me Be Ye Ye Yeo Ye Ve Ye Yo Ye Ve Te Ve Te Ve Ye Ye Ye Ve Se Yo Yo 
e*eeee ee HH 6 HH HF HH HH HH HF F&F FF 


+ 
+ 


FACILITY: EXECUTIVE, SCHEDULER 


ABSTRACT: 
THIS MODULE CONTAINS THE SYSTEM EVENT REPORTING ROUTINES AND 
THEIR SUPPORTING SUBROUTINES. 


ENVIRONMENT: 
MODE = KERNEL 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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-SBTTL HISTORY 3 DETAILED 


we Se Me Se Ye Ye Ve Be Ne Ve Veo Ve Be We Ye Ve Ve We Ve Ye Ye We Ye Yo Ne 


we Me Ne 


™e Te Ve Ne Se Ne Ne Ye Ne Ne Ye Ye Yo Te Be Ve Ve Ye Be Ye Ve Ve Ve Ne Ye Ye We We 


AUTHOR : 
MODIFIED BY: 


X-3205 
X-3204 
X-3203 
X-3201 
X-32 


X-31 


X-30 


X-29 


X-28 


X-27 


X-26 


X-25 


R. HUSTVEDT CREATION DATE: 6-SEP-76 


WWMCO00U5 Wayne Cardoza 14-Sep-1988 
Support for implicit affinity. 


SSA0015 Stan Amway 1-Sep-1988 
Completely tie off use of special scheduling control flags. 


WMC0032 Wayne Cardoza 15-Jul-1988 
Use new preemption masks. 

New routine to call when changing priority of running process. 
New routine to change a process form CUR to COM. 


SSA0014 Stan Amway 1-Jul-1988 
In SCHSSWPWAKE, selectively test bits in SCHS$GB_SIP. Only 
the MPW and SIP bits are relevant to the decision being made. 


SSA0013 Stan Amway 22-Jan-1988 
Change TOCOM BOOST from 5 to 4. This restores pre-V5 priority 
boost for terminal output completion. 


SUF Stu Farnham 29-Dec-1987 
Consider only ACTIVE CPUs in realtime preemption scan. 


SSA-SJUF Stan Amway-Stu Farnham ; 23-Nov-1987 
In SCHSCHSE(P), use IP preemption logic in the case 

where a) candidate process cannot run on current CPU 
(either due to affinity or priority), and b) no idle 

CPUs are available, but priority and affinity would 

allow the process to execute on another CPU. 


SSA0012 Stan Amway 24-Sep-1987 
Move definitions of bits in scheduling control 
longword to this module. 


SSAO0011 - Stan Amway 8-Sep-1987 
Fix off by 1 bug in selective AWSA code in SCHSQEND. 
Check for suitable idle CPUs when making preemption 
decisions. 


SSA0010 Stan Amway 28-Jul-1987 
Fix EVENTW logic that passes absolute priority boost, 
rather than the priority increment class, to SCHSCHSE2. 


SF00026 Stephen Fiorelli 15-Jul-1987 
Large working set support 


SSAO0009 Stan Amway 23-Mar-1987 
Fix bug in EVENTW logic that left high 3 bytes 

of PHD address in RO when calculating new process 
priority using byte arithmetic. Caused BBSS RO,... 
in SCHSCHSEP to incur access violation. 


23 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


24 


RSE - REPORT SYSTEM EVENT 10-MAY-1989 16:47:03 VAX MACRO V5.0-8 Page 3 
X-32U5 HISTORY ; DETAILED 19-SEP-1988 08:23:26 $254$DUA55: [SYS.SRC]RSE.MAR;1 (2) 


97 
98 
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137 
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140 
141 
142 
143 
144 
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146 
147 
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149 
150 
151 
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X-24 
X-23 


X-22 
21 


X-20 


X-19 


x-18 


X-17 


X-16 


X-15 


X-14 


X-13 


Make sure PHD is resident before attempting to execute 
wait credit algorithm, which needs to adjust quantum 
value in PHD. 


SSA0008 Stan Amway 17-Mar-1987 
SSA0007 Stan Amway 10-Mar-1987 
Maintain and use PCBS$L_PIXHIST. 


In quantum end processing, announce current process priority 
and selectively force a reschedule if priority demotion 
enabled at quantum end. 


SSA0006 Stan Amway 2-Mar-1987 

Use MAXCLASSPRI, MINCLASSPRI, and MINPRPRI to logically 
partition non-realtime priority range for optional 
scheduling policies. 


ROW0594 Ralph 0. Weber 11-FEB-1987 17:26 
Update the reference to SCHS$AQ_WOHDR in SCHSUNWAIT to reflect 
the fact that the SCHSAQ_WOHDR no longer includes the missing 
zero process state WQH entry computed into its value. That is 
subtract WQHSC_LENGTH from SCHSAQ_WOQHDR here, because its no 
longer subtracted in the SYS.STB value of SCHSAQ_WQHDR. 


ROWO586 Ralph O. Weber 
Fix truncation error. 


O3-FEB-1987 16:08 


RNG5SO18 Rod Gamache 28-Jan-1987 
Remove reference to CPUSL_PFAILTIM. 


SSA0005__ Stan Amway 5-Jan-1987 
Add latent support for queue-dependent quantums and 
wait credit priority adjustment. 


Merged changes for Rod Gamache and Stu Farnham: 


SJF Stu Farnham 8-Jan-1987 
Preserve Rl in affinity loop in CHSE. 


RNG5017 Rod Gamache 77-Jan-1987 
Fix modulo arithmetic in previous edit. 


SJF es Stu Farnham 22-Dec-1986 
Rewrite code which scans for CPU for which process 
has affinity when blocked due to lack of affinity 
for current CPU. 


SSA0004 Stan Amway 12-Dec-1986 
Optimize SCHSPIXSCAN logic for uniprocessor. 


JWT0272 Jim Teague 11-Dec-1986 


Fix a bug in state-matching logic when determining 
whether or not to deliver ASTs to suspended processes. 


JWT0264 Jim Teague 8-Dec-1986 
Part of SOFT susupend implementation. Don’t ignore 
AST events if the process is in a soft suspend state. 
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197 
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X-12_ 
X-11 
-10 


X-9 


x-8 


EXEC and KERNEL mode ASTs can be delivered. 


SSA0003 Stan Amway 24-Nov-1986 
Honor non-preemptive scheduling control flag. 


SUF Stu Farnham 31-Oct-1986 
Fix spellos. 


RNGOO09 Rod Gamache 29-Oct-1986 
Change IPL$ SCHED to IPL$ RESCHED. 


SSA0002 Stan Amway 28-Sep-1986 
Minor tweaks to PIXSCAN algorithm. 


Add usage of the CPU scheduling control flag NO_CHSE PRIADJ. 


Do selective WS reduction at quantum end events, iff, 
PFRATL=0, WSDEC <> 0, and current free list size < BORROWLIM. 
By allowing WS reduction at quantum end, priority boosting 
can work independently of the swapper’s dormant process 
notion. Potentially this also helps avoid sudden swapper 
trimming activity by recognizing memory shortages and 
reacting to them sooner. 


SJF Stu Farnham 22-Oct~1986 
Check for affinity in CHSE. 


SSA0001 Stan Amway 22-Sep-1986 

Store EXESGL_ABSTIM TICS in PCB$L_ONQTIME in SCHSQEND. 
This records the time at which the process was placed 
on the COM/COMO queue, ignoring any priority boosting. 


Expand priority increment class table. 
Make priority comparison strictly > for pre-emption. 


Use scheduling control flag settings to parameterize 
the scheduling policy. 


Move routine SCHSWAIT from SYSWAIT.MAR to this module. 
Store EXESGL_ABSTIM TICS instead of EXESGL_ABSTIM 

in PCBS$L_WAITIME. 

Remove ASMP conditional assembly code (per Rod Gamache). 


Move PIXSCAN code from TIMESCHDL.MAR to this module. 
Rewrite algorithm to work with SMP and to be more 
responsive. 


WMC0002 Wayne Cardoza 15-Aug-1986 
Change some JSBs to BSBWs. 


SFO4001 Stephen Fiorelli 10-Dec-1985 
Resolve conflicts from initial merge of exec reorg 


thread and mainline (4.4 BL7). 


wmcoool Wayne Cardoza 24-Sep-1985 
Don’t allow working set decrement if PHD$V_NO WS _CHNG is set. 
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211 ; : 

212 ; VO4-002 TCMO0003 Trudy C. Matthews 23-Aug-1985 
213 ; Make RSE’s AES1 and AES2 psect attributes correspond to 
214 ;: those of the EXECSNONPAGED DATA psect, so as to not 
215 ; create a separate image section for these psects. 

216 ; 

217 ; VO4-001 TCM0002 Trudy C. Matthews 30-Apr-1985 
218 ; Define EVTS$_ event codes in an SDL file, not in EVENT 
219 ; macro. ; 
220 3 

221 
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223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
_ 252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 


 %e Se Ve 


-SBTTL DECLARATIONS 


INCLUDE FILES: 


DEFINE COMMON EVENT BLOCK 


DEFINE PER-CPU DATA STRUCTURE OFFSETS 
DEFINE STRUCTURE TYPE CODES . 


PROCESS HEADER DEFINITIONS 


PRIORITY INCREMENT CLASSES 
Processor status longword fields 


WAIT QUEUE HEADER DEFINITIONS 


=e Se Ne 


-MACRO EVENT, EVIN, STATLIST, EACTION, CONT=0 


~=STACT+<2*EVT$_/ EVTN> 

.WORD ~ EACTION-STACT 

.PSECT AES2, BYTE, NOEXE, PIC 
STMSK=CONT 

.IRP | ST, <STATLIST> 
STMSK=STMSK+<1@SCHSC_'ST> 

.ENDR 
MASK _/EVTN: 

-LONG STMSK 

| .PSECT AES1,BYTE, NOEXE, PIC 

.=STACT+<2*EVT$_MAXEVT> 

-ENDM EVENT 


GENERATE MASK FOR WAIT STATES 


GMASK STATENAME 


@e Ne Ve Me Ve 


-MACRO GMASK, STATE 
ST=SCHS$C_’' STATE 
WAITST=WAITST+<1@ST> 

-ENDM GMASK 


Macro to set correct priority increment for 
a given priority increment class 


we Se Se Ne 


-MACRO PRIORITY BOOST, PINC, VALUE 
DOT=. 
-=B_PINC+PRI$_’PINC 


SACBDEF ; DEFINE AST CONTROL BLOCK 
$SCEBDEF ; 
SCPBDEF ; CAPABILITIES 
SCPUDEF ; 
SDYNDEF ; 
SEVTDEF ; DEFINE EVENT CODES 
SIPLDEF ; IPL DEFINITIONS 
$PCBDEF ; PCB DEFINITIONS 
SPHDDEF ; 
SPRDEF ; PROCESSOR REGISTER DEFS 
SPRIDEF : 
$PSLDEF ; 
SSPLCODDEF 3; Various SMP definitions 
S$SSSDEF : DEFINE STATUS CODES 
SSTATEDEF ; STATE DEFINITIONS 
SWQHDEF ; 

MACROS : 
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280 
281 
282 

283 
284 
285 

286 
287 
268 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 


'.~BYTE 


-=DOT 


=e Ye Ne 


' .ENDM 


EQUATED SYMBOLS: 


WAITST=0 
ASTEXIT=0 


TICOM_BOOST=6 
MAX_BOOST=6 
NO_BoosT=5 
TOCOM_BOOST=4 


me Ye Yeo Ze Me Ve. 


we Ne Ye Ye Se Vo 


me Ye Ve 


OWN STORAGE: 


DECLARE | 


me Xe 


=e Ye Ye Ne 


' X-32U5 DECLARATIONS 19-SEP-1988 08:23:26 $254$DUA55: [SYS.SRC]RSE.MAR;1 (3) . 
VALUE 


INITIALIZE WAIT STATE MASK 
AST EXIT CHANGE MODE CODE 


Boost for terminal input completion 

NB: must be equal to TICOM_BOOST 

Priority at or above which no boost is giv 
Boost for terminal output completion 


PSECT EXECSNONPAGED DATA 


Define the control bits in SCH$GL_CTLFLAGS and its local copy, SCH$$GL_CTLFLAGS 


S$GBLINI 


GLOBAL 


NB: Code relies on the following properties of the bits defined here. 


NO_RESCHED PRIADJ must be bit 0 (SCHED.MAR) 
WAIT _CREDIT must the next higher numees bit than PRI_QUANT (RSE.MAR) 


SVIELD 


The following 
this way, the 
time-critical 
table values. 


quantum value 


CHS$$GL_CTLFLAGS: : 


- LONG 


Minimum wait credit to consider. 


SCH, 0, <- 

<NO_RESCHED PRIADJ, ,M>, - 
<QEND_PRIADJ, ,M>, - 
<PRI_QUANT, ,M>, - 

<WAIT_ CREDIT, ,M>, - 
<NO_PIXSCAN, ,M>,- 
<NO_CHSE_PRIADJ, ,M>, - 
<PIXSCAN_LOWPRI, , M>, - 
<NO_QEND PREEMPT, ,M>, - 
<PREEMPT RESUME, , M>, - 


me Ve Me Ne Ve Yo Ye Ve fs 


Don’t decrease priority on reschedule 
Decrease priority at quantum end 

Use priority-dependent quantum values 
Manipulate priorities via wait credit, no 
Don’t use PIXSCAN mechanism for process ag 
Don’t boost process priorities in event re 
Lowest priority process to rev proc. aging 
Don’t preemptively reschedule at quantum e 
Requeue PCB at head of queue when process 


cells are updated every second by the SCH$ONE_SEC routine. In 
relevant SYSGEN parameters can remain dynamic, while permitting 
code in this module to use W* addressing modes and precomputed 
Since the SYSGEN parameters are changed very infrequently on 
the running system, the table values are recalculated only if the basic 


(SCHSGW_QUAN) changes. 


0 


Se Ne 


Set to 


Local copy of dynamic SYSGEN 
parameter 


MAX(IOTA, MINWC) . 


RSE - 
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337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 


MINWC=10 : 100 ms 
SCH$GL_MINWC:: 
.LONG 0 


HHH KRKEKKAKKEKKKHEKEKEKEKKEKEKRKEEEKREKREKREREEEREKEARREKRREREKREERERKEREKREEKKKEEKEREKKEKK 


The following cells and tables are initialized to contain values that are a 
function of a) the base quantum value (SCHSGW_QUAN), b) the scheduling 
control flag (SCHS$V_PRI_QUANT) that determines whether a single quantum, or 
queue dependent quantums are desired, and c) the scheduling control flag 
(SCHSV_WAIT_CREDIT) that determines whether wait credit is used to manipulate 
process priority. Algorithmically, scheduling code treats all cases uniformly 
using the stored table values as decision variables. 


NB: The wait algorithms assume that the contents of any table cell and 
SCH$GL_MAXWC is always less than 2**15. This allows the code to do 


SIGNED WORD arithmetic when dealing with quantum and wait credit values. 
REREKRRERRERRERERREKEKEREERREREKERREEKRRRERERREEERERREE RR EE KRERRERRRERERERERER EERE 


Me Yeo Se Ve Ce Be We We Ye We We We We 


7 Max quantum, no options 
MAX_ QUANT = 32767 

3 Max quantum, either option selected 
MAX_QUANT OPT = <MAX_QUANT/<MAX_ BOOST+1>> 


7 The following table and the code that accesses it assume that the control 
# flag SCHS$V_PRI_QUANT immediately precedes SCHSV_WAIT CREDIT. 
s 


CH$GW_MAX QUANT: : 


; WAIT CREDIT PRI_QUANT 
-WORD MAX QUANT ; 0 0 
-WORD MAX QUANT OPT ; ) 1 
-WORD MAX QUANT OPT ; 1 0 
-WORD MAX QUANT OPT ; 1 1 


Queue-dependent, basic quantum multiplier table 


CT we te Me 


CH$GL_QUANT_MULT: : 


-LONG 32 3; Base priority 

- LONG 16 3; Base priority + 1 
- LONG 8 7; Base priority + 2 
. LONG 4 ; Base priority + 3 
- LONG 2 ; Base priority + 4 
- LONG 1 ; Base priority + 5 


3? The last entry must have a multiplier of 1 
- LONG 1 ? Base priority + MAX_BOOST 


ASSUME <<.-SCH$GL_QUANT MULT>/4> EQ <MAX_BOOST+1> 


Maximum wait credit to consider. Set to SCHSGW_MAXWC[0] + SCHSGW_QUANTUM [0]. 
CH$GL_MAXWC: : 
- LONG 0 


? 
; The next table contains the maximum wait credit that can be applied 
7 at each relative priority. It is used as a quick check to determine 
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394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
. 409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 


if the longer wait credit algorithm can be completely .avoided. 


7 
? 
SCHSGW_MAXWC: : 


-WORD 0(MAX BOOST+1) 


; 
; 
? priority. 
; 
SCHSGW_QUANTUM: : 

-WORD 20[(MAX_BOOST+1] 
SCHSSGW_QUAN==.-2 


a we Ve Ye 


CH$$GB_MINCLASSPRI: : 
-BYTE <31-1> 


SCHS$$GB_MAXCLASSPRI: : 
.BYTE  <31-7> 


SCHS$$GB_MINPRPRI: : 
-BYTE <31-7> 


-ALIGN LONG 
SCH$GB_RT_CPUID:: 


.BYTE 0 
SCHS$GB_RT_CURPRI:: 
-BYTE 0 


-PSECT AES2, BYTE, NOEXE, PIC 
STET= ° 


-PSECT AES1, BYTE, NOEXE, PIC 


e 
o 


=e 


ee we 


ze 


The next table contains the quantum reset value for each relative 


Preset to 200 ms quantum 


NB: The following 3 cells must be internal priority format. 


Local copy of the 
SYSGEN parameter MINCLASSPRI 


Local copy of the 
SYSGEN parameter MAXCLASSPRI 


Local copy of the 
SYSGEN parameter MINPRPRI 


Cells used by IP preemption logic 


STATE EVENT MASK PSECT 
BASE OF STATE EVENT TABLE 
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431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 


r++ 


INPUT 


me Me Ne Ye Se Yo Se Yo Ye Ye Ye Ye Ve We Ve Ne Ve Ve Ve Ye We NS Vo Ve 


me Ve “Se Se Re Be Be Ye Ye Yo Ve 


me Ye Ve 


=e “Se Se 


7; SCHSRSE:: 


10S: 


ACTION: 


-SBTTL SCHS$RSE - REPORT SYSTEM EVENT 


FUNCTIONAL DESCRIPTION: 


SCHSRSE RECEIVES SYSTEM EVENT REPORTS FROM VARIOUS SOURCES 

AND PERFORMS THE APPROPRIATE ACTION FOR THE SPECIFIED PROCESS. 
EVENT REPORTING MUST BE PERFORMED WITH IPL=IPL$_SYNCH. 

AS A SIDE EFFECT OF AN EVENT REPORT, THE RESCHEDULING INTERRUPT 
MAY BE TRIGGERED IF APPROPRIATE. 


CALLING SEQUENCE: 


BSB/JSB G*SCHS$RSE 
-BYTE EVTS$_EVENTNAME 


THIS CALLING SEQUENCE IS GENERATED BY THE RPTEVT SYSTEM MACRO 
REPEVT EVENTNAME 

PARAMETERS : 

R2 - SITUATIONAL PRIORITY INCREMENT CLASS NUMBER 

R4.- PCB ADDRESS OF PROCESS FOR WHICH EVENT IS REPORTED 


EVENT NUMBER CONTAINED IN BYTE LOCATED BY ADDRESS AT TOP 
OF STACK. @(SP) 


IMPLICIT INPUTS: 


NONE 


OUTPUT PARAMETERS: 


NONE 


IMPLICIT OUTPUTS: 


NONE 


COMPLETION CODES: 


NONE 


SIDE EFFECTS: 


A RESECHEDULING INTERRUPT MAY BE REQUESTED IF THE SPECIFIED 
PROCESS IS HIGHER IN PRIORITY THAN THE CURRENT PROCESS. 


ENVIRONMENT: 


IPL = IPL$ SYNCH, SCHED DATABASE LOCKED | 


UNIVERSAL _ SYMBOL SCHSRSE 

REPORT SYSTEM EVENT 

GET EVENT NUMBER 

UPDATE RETURN ADDRESS 
GET CURRENT STATE NUMBER 
GET STATE MASK FOR EVENT 


MOVZBL @(SP),R3 

INCL (SP) 

MOVZWL PCBSW_STATE(R4),R1 
MOVL L*STET [R3], RO 


=e “Se Se Se Se Ve Ye Re Ve 


BBS R1i,RO, ACTION DO ACTION IF STATE BIT SET 
INCL R3 CHECK NEXT ACTION 

BLBS RO, 10$ IF CONTINUATION 

RSB OTHERWISE IGNORE EVENT 


CASEL R3,#0,S*#EVTS$_MAXEVT-1 ; SWITCH ON EVENT NUMBER (UPDATED) 


ot 
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488 STACT: 


489 
490 
491 


492 


493 
494 


495 


496 
497 
496 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 


EVT$_COLPGA==EVT$_AST 


~e te Ye 


BASE OF ACTION TABLE 


EVENT AST, <- AST EVENT 


CEF,- 7 COMMON EVENT FLAG WAIT 
COLPG, - ? COLLIDED PAGE WAIT 

FPG, - ? FREE PAGE WAIT 

HIB,- 7 RESIDENT HIBERNATE 

HIBO, - # NON-RESIDENT HIBERNATE 
‘LEF,- + LOCAL EVENT FLAG WAIT 

LEFO, - 3 LOCAL EVENT FLAG WAIT (NON~RES) 
MWAIT, - : MUTEX WAIT 

PFW,- ¢ PAGE FAULT WAIT 

SUSP, - 

SUSPO, - 

>, AST_EVENT AST EXECUTABLE STATE CHANGE 


me Se 


USE SAME EVENT FOR COLLIDED PAGE AVAIL 


EVENT EVENT, <LEF>, LEFEVT, CONT=1 ? EVENT FLAG SETTING 
EVENT CEF,<CEF>,CEFEVT,CONT=1 ; COMMON EVENT FLAG SET 
EVENT LEFO, <LEFO>, EVENTE ? NON-RESIDENT LOCAL EVENT 


EVENT FPGA, <- FREE PAGE AVAILABLE 


3 
FPG, - 7 FREE PAGE WAIT STATE 
>, EVENTF 3 EXECUTABLE STATE CHANGE 
EVENT WAKE, <- 3 WAKE EVENT 
HIB, - 7 RESIDENT HIBERNATE 
HIBO, - 7 NON-RESIDENT HIBERNATE 
>, EVENTE 7 


EVENT RESUME, <- RESUME EVENT 


; 
SUSP,- ? RESIDENT SUSPENDED 
SUSPO, ~ 7 NON-RESIDENT SUSPENDED 
>, EVENTE 7 EXECUTABLE 


EVENT PFCOM, <- PAGE FAULT COMPLETE EVENT 


PFW,- + PAGE FAULT WAIT 
>, EVENTE 3 EXECUTABLE 

EVENT SETPRI, <- 7 SET PRIORITY EVENT 
COM, - 7 RESIDENT COMPUTE 
COMO, - 7 NON-RESIDENT COMPUTE 
>, EVENTF 7 EXECUTABLE 


EVENT SWPOUT, <- SWAP OUT EVENT 


e 
HIB, - ; RESIDENT HIBERNATE 
LEF,- ; RESIDENT LOCAL EVENT FLAG WAIT 
SUSP, - ; RESIDENT SUSPENDED 
>, SWPO, CONT=1 ; SIMPLE SWAP OUT 


EVENT SWPOUTE, <- ? SWAP OUT EVENT CONINUATION 
COM, - RESIDENT COMPUTE 
>, SWEROE EXECUTABLE OUTSWAP 


we Ye 


IF CASE FALLS THROUGH, THEN BUGCHECK WITH ILLEGAL EVENT 
NUMBER. 
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$45 3 
546 BUG CHECK ILLEVTNUM, FATAL 3 ILLEGAL EVENT NUMBER 
547 
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549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 


-SBTTL BvEStN - Calculate and apply wait credit 


The logic is optimimized assuming that very ‘short waits (primarily 
disk I/0) and very long waits, in that order, are the most frequent. 
The former case requires no boost, and the latter, a maximum boost. 
Beyond these cases, an additional assumption is that wait credit 
generally will not be enough to cause queue promotion. 


NB: The PHD is assumed to be resident upon entry to this code. 


[ef se we Ne Me 0 Ne te te Ne 


: 
2 


SUBL3 PCBSL_WAITIME(R4),- 7 Compute time that process was waiting 
G“EXESGL_ABSTIM_TICS, RO 
ADDL2 RO,PCBSL_ONQTIME (R4) 7 Remove wait time from on queue time 


CMPL RO, W*SCHSGL_MINWC Enough wait credit to even consider ? 


se Se 


BGEQU 108 BR if enough 
2008: CLRL R2 7 Set no priority boost 
2508: PUSHAB W“SCHSCHSE2 7 Use alternate entry to force boost 
BRW SCHSUNWAIT 
300$: MOVL PCBSL_PHD (R4) ,R2 7 Address PHD 
MNEGW w SCHSGW_QUANTUM+<MAX_BOOST* 2>,° 
PHDSW_QUANT (R2) 7 Set quantum to maximum for queue 


Note: If the process has a base priority > 9, than the priority boosting 
logic will set the current priority to the process’ base priority. No attempt 
is made here to avoid that ANOMALY, because a) it is logically consistent 
with the pre-V5 priority boosting only scheme, b) it is not critical that 
such processes receive the boost, and c) it is a special case that we wish 
to avoid for algorithmic simplicity. 


ee Ve Te Te Ve Woe Ye Re 


ASSUME MAX BOOST EQ TICOM BOOST 
MOVL #PRIS$_ TICOM, R2 3 Set maximum priority boost 
BRB 250$ 


Wait credit >= extent of table ? 
BR if yes; give maximum boost 
Calculate relative priority to base 


108: CMPL RO, W*SCHSGL_MAXWC 
BGEQU 300$ 
SUBB3 PCBS$B_PRI(R4),- 
PCBSB_PRIB(R4),R1 
BLSS 200$ . 
CMPB #NO_BOOST,R1 


™e Ve Ve 


BR if current priority < base 
Is priority too high for a boost ? 


se te 


BLEQ 200$ ? BR if yes 
CMPB #PRI$ TICOM, R2 7 Is this a terminal input completion ? 
BEQL 80$ 7 BR if yes 
258: 
MOVL PCBSL_PHD (R4) ,R2 7 Get address of process header 
SUBW2 PHDSW_QUANT(R2), RO ? Adjust remaining quantum by wait credit 
MOVZBL R1,R1 7 Get a LW copy for indexing 
CMPW RO, W*SCHSGW_QUANTUM[R1] ; Result >= queue quantum ? 
BGEQ 400$ ? BR if yes 
MNEGW RO, PHDSW_QUANT(R2) | ? Else store adjusted quantum 
MOVZBL PCBSB_PRI(R4),R2 7 Retain current priority 
50S: PUSHAB B*100$ ? Make SCHSUNWAIT exit via linkage code 


BRW SCHSUNWAIT 
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606 
607 
608 
609 
610 
611 
612 
613 
614 


615. 


616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 


me Ne Ne 


we Ne 
. 


19-SEP-1988 08:23:26 $254$DUA55: [SYS.SRCJRE& 


Wait credit >= 1 second ? 
BR if not 
Else give maximum boost 


Restore precomputed priority 
and change process state to COM(0O) 


RO = remaining quantum (positive), adjusted by wait credit 


° 
’ 
e 

o 


™e Ne Ne Ye Ye Ye Ne we me Ve we Me Ne 


=e 


we 


Compute excess wait credit 
Boost priority by 1 


The following test also detects the case where the PHD quantum is greater 
than the maximum allowed for the relative queue. This can only result 

from a) current priority adjustments, caused by PIXSCAN processing, or 
system event priority boosting (unlikely, given wait crediting is enabled) ; 
or b) base priority adjustments caused by explicit user request 

($SET PROCESS/PRIORITY), program request (S$SETPRI), or class scheduling. 


Remaining credit >= maximum for queue 
Yes, give maximum boost 

Remaining credit <= queue quantum 

BR if yes 

Compute excess wait credit 

Boost priority by 1 


Is resultant priority = threshold ? 
BR if yes 

Reset quantum value 

BR if remaining quantum too small 
Pre-zero resultant priority 
Calculate new priority 

Join common exit code 


Force process to next lower priority 
Use full queue quantum 


80S: CMPL #100, RO 
BGTR 25$ 
BRB 300$ 
1008S: MOVL R2, RO 
BRW SCHSCHSEP 
3 
3 
7 R1 = process priority relative to base (range 0-4) 
7 R2 = PHD address 
400$: 
SUBW2 W*SCHSGW_QUANTUM[R1] , RO 
INCL R1 
CMPW RO, W*SCHSGW_MAXWC [R1] 
BGEQ 300$ 
4108: CMPW RO, W°SCHSGW_QUANTUM[R1] 
BLEQ 450$ 
SUBW2 W“SCHSGW_QUANTUM(R1], RO 
INCL R1 
BRB 410$ 
450$: CMPB #NO_BOOST, R1 
BEQL 470$ 
MNEGW RO, PHDSW_QUANT (R2) 
BGEQ 480s 
4608S: CLRL R2 
SUBB3 R1,PCBSB_PRIB(R4),R2 
BRB 50$ 
470$: DECL R1 
480$S: MNEGW W*SCHSGW_QUANTUM[R1], - 
PHDSW_QUANT (R2) 
BRB 460$ 
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652 
— 683 
654 
655 
656 
657 
658 
659 
660 
661 
- 662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
7102 
703 
104 
705 
7106 
107 
708 


-SBTTL State and event dependent action routines 


COMMON EVENT FLAG SET 


Se Ve VO 


CEFEVT: : 
BLBC PCBSL_STS (R4) , EVENTE ? BR IF NOT RESIDENT 

LEFEVT: 7 LOCAL EVENT FLAG SET FOR RESIDENT PROCESS 

MOVL PCBSL_PHD (R4) , RO 7 POINT TO PHD 

ADDL #4, PHDSL_PC (RO) 7 SKIP PC OVER CHMK INSTRUCTION 

MOVZ #SS$_NORMAL, PHD$L_RO(RO); SET NORMAL COMPLETION FOR WAIT 


BRB EVENTE 


soft suspend state? If so, report the event; 


3 
# AST Event and a suspended process...is it in a 
3 
; otherwise ignore it 


SOFT: BBS #PCBSV_SOFTSUSP, PCBSL_STS (R4) , EVENTE 
RSB a 
# AST event...is this a suspended process? If not, report 
; the event by falling through to EVENTE...otherwise | 
; see if this is a soft suspend. 
3 
3 How does this work? Note that every event above (i.e., AST, 
? RESUME, SWPOUT, etc.) now has a label on its state mask. 
z (Look in the macro EVENT.) The mask for RESUME has a bit 
; set for SUSP and SUSPO, and that’s exactly what we want to 
; check for: if the state in Rl corresponds to either of those 
3 bits being set, then check the SOFTSUSP bit before deciding 
; whether or not to deliver the AST. . 
3 
AST_EVENT: 
BBS R1,W“MASK_RESUME, SOFT 3 If SUSP or SUSPO, check SOFTSUSP BIT 


EVENT EXECUTABLE ACTION ROUTINE 


=e “e Ye 


EVENTF : ; ACTIVATE WITH NO WAIT TIME ACCOUNTING 
BBC #4,PCBSB PRIB(R4),EVENTC; BR if real-time process 
BBC S*#SCHSV_WAIT_CREDIT,- ; BR if wait credit processing disabled 
W“SCHSS$GL_CTLFLAGS, EVENTC 
CLRL R2 Make sure no priority boost is given 


we Ne 


BRB EVENTC Join common code 
CHECK_EVENTW: 
CMPB = #EVTS$_PFCOM, R3 
BEQL EVENTC 


Was event a page fault completion ? 
BR if yes; no wait credit processing 


me Ye 


BBC #PCBSV_PHDRES, - 
PCBSL_STS (R4) , EVENTC > BR if PHD not resident 
BRW EVENTW 
EVENTE: 3; EVENT EXECUTABLE STATE CHANGE 
BBC #4,PCBSB_ PRIB(R4) , EVENTC; BR if real-time process 
BBS S“*#SCHS$V_WAIT_CREDIT,- ; BR if wait credit processing enabled 
W*SCHS$$GL_CTLFLAGS, CHECK_EVENTW 
EVENTC: 


SUBL3  PCBSL_WAITIME (R4),- 3; Compute time that process was waiting 
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709 
710 
711 
712 
713 
714 


3 


e 
a 


ADDL2 


PUSHAB 
BRB 


G*EXE$GL_ABSTIM TICS, RO 
RO, PCBSL_ONQTIME (R4) 


B*SCHSCHSE 
SCHSUNWAIT 


™e “Ne 


Remove wait time from on queue time 


MAKE UNWAIT EXIT THROUGH CHSE 
AND FALL INTO UNWAIT 
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716 

717 3t++ 

718 ; 

719 ; FUNCTIONAL DESCRIPTION: 

720 3; 

721; 

722 ; 

723 ; CALLING SEQUENCE: 

724 ; BSB/JSB G*SCHSUNWAIT 

725 3; 

726 ; INPUT PARAMETERS: 

727 ; R2 - UNUSED (PRESERVED) 
728 ; R4 ~ PCB ADDRESS (PRESERVED) 
729 ; 

730 ; IMPLICIT INPUTS: 

731; PCB LOCATED BY ADDRESS IN R4 
732 ; 

733 ; OUTPUT PARAMETERS: 

734; 

735 ; 

736 ; IMPLICIT OUTPUTS: 

737 ; 

738 ; STATE. 

739 ; 

740 ; ENVIRONMENT: 

741 ; IPL = IPL$_ SYNCH, 

742 3-- 

743 

744 UNIVERSAL_SYMBOL 

745 ;SCHSUNWAIT:: 

746 MOVZWL PCBSW_STATE(R4),R1 
747 BBC R1,B*WAITMSK, 20$ 
748 CMPW #SCHS$C_CEF,R1 

749 BEQL 30$ 

750 MULL #WQHSC_LENGTH, R1 
751 MOVAB G*SCHSAQ_ WOQHDR - 
752 -WOHSC_LENGTH[R1], RO 
753 10S: DECW WOQHSW_WOQCNT (RO) 
754 208: RSB 

755 

756 30S: MOVZBL PCBS$B_WEFC(R4) ,RO 
757 MOVL PCBSL_EFCS(R4) [20],RO 
758 ADDL #CEBSL WOFL,RO 

759 BRB 10$ 

760 ; 

761 GMASK CEF 

762 GMASK  LEF 

763 GMASK LEFO 

764 GMASK HIB 

765 GMASK HIBO 

766 GMASK FPG 

767 GMASK COLPG 

768 GMASK PFW 

769 GMASK  SUSP 

770 GMASK SUSPO 

771 GMASK MWAIT 

772 WAITMSK:.LONG WAITST 


™e Se we Me Ve Ve Ve Ne Ye NO 


se Ne NO 


ve 


me Me Ne Ne Ne Me Me Me Ne Se Ne Ne 


-SBTTL SCHSUNWAIT - DECREMENT COUNT IN WAIT QUEUE 


SCHSUNWAIT DECREMENTS THE NUMBER OF PROCESSES IN THE WAIT 
QUEUE SELECTED BY THE SPECIFIED PCB AND STATE VALUE. 


RO ~ Address of wait queue header (iff process is in a wait state) 


COUNT IN WAIT QUEUE HEADER IS DECREMENTED IF STATE IS A WAIT 


SCHED DATABASE LOCKED 


SCHSUNWAIT 


DECREMENT PROPER WAIT COUNT 

Get current process state number 

SKIP OUT IF NOT WAIT STATE 

CHECK FOR COMMON EVENT FLAG WAIT 

CEF WAIT 

COMPUTE BYTE INDEX TO WQ HDR 

COMPUTE ADDRESS OF WAIT Q HEADER 
(note state indicies start at 1) 

DECREMENT WAIT QUEUE COUNT 

RETURN 


WAIT CLUSTER NUMBER 

GET CLUSTER ADDRESS 

POINT TO WAIT QUEUE HEADER 
GO DECREMENT WAIT COUNT 


COMMON EVENT FLAG — 
LOCAL EVENT FLAG WAIT 
LOCAL EVENT FLAG WAIT 
HIBERNAT WAIT 
HIBERNATE WAIT 

FREE PAGE WAIT 
COLLISION PAGE WAIT 
PAGE FAULT WAIT 
SUSPENDED WAIT 
SUSPENDED WAIT 

MUTEX WAIT 

MASK OF WAIT STATES 
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775 -SBTTL SITUATIONAL PRIORITY INCREMENT TABLE 

776 ; 

777 ; FIXED DATA: 

778 ; SITUATIONAL PRIORITY INCREMENT TABLE 

7179 3; (INDEXED BY PRIORITY INCREMENT CLASS) 

780 ; 

781 

782 PINC_SPARES=5 ? Spare entries for expansion of table 
783 

784 B PINC: 

785 7 Init all entries for no priority boost 
786 -BYTE O{PRI$ PINC_CNT+PINC_SPARES] 

787 

788 PRIORITY_BOOST NULL,0O 3 No priority boost 

7189 PRIORITY_BOOST IOCOM, 2 7 1/0 completion 

790 PRIORITY_BOOST RESAVL, 3 # Resource available 

791 PRIORITY_BOOST TOCOM, TOCOM BOOST ; Terminal output completion 
792 PRIORITY_BOOST TICOM, TICOM BOOST ; Terminal input completion 
793 PRIORITY_BOOST TIMER, 3 ; Timer request completion 

794 

795 

796 EXESTATE: — ; EXECUTABLE STATE MASK 

797 - LONG <1@SCHSC | COM> !<1@SCHS$C_COMO> 

798 
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800 -SBTTL SCHS$CHSE ~ CHANGE STATE TO EXECUTABLE 

801 ++ 

802 ; FUNCTIONAL DESCRIPTION: 

803 ; SCHSCHSE CHANGES THE STATE OF A PROCESS, AS REPRESENTED BY 

804 ; ITS PCB, TO AN EXECUTABLE STATE. THE RESCHEDULING INTERRUPT 

805 ; WILL BE TRIGGERED IF THE PROCESS IS RESIDENT AND HAS A PRIOITY 
806 ; GREATER THAN THAT OF THE CURRENTLY EXECUTING PROCESS. A 

807 ; PRIORITY INCREMENT CLASS NUMBER SUPPLIED AS A REGISTER CONTAINED 
808 ; ARGUMENT IS USED TO COMPUTE THE NEW PROCESS PRIORITY FROM ITS 
809 ; BASE PRIORITY. 

810 ; 

811 ; CALLING SEQUENCE: 

812 ; BSB/JSB G*SCHS$CHSE 

813 ; 

814 ; INPUT PARAMETERS: 

815 ; RO - NEW PRIORITY (SCH$CHSEP ONLY) 

816 ; R2 - PRIORITY INCREMENT CLASS NUMBER (SCHS$CHSE ONLY) 

817 ; R4 - PCB ADDRESS 

818 ; 

819 ; IMPLICIT INPUTS: 

820 ; SCHSAQ_COMT - COMPUTE QUEUE HEADERS FOR COM,COMO STATES 

821 ; SCHSGB_PRI - CURRENT PROCESS PRIORITY. 

822 ; CPUSB_CUR_PRI - CURRENT PROCESS PRIORITY IN PER-CPU DATA 

823 ; 

824 ; 

825 ; OUTPUT PARAMETERS: 

826 ; R2 - ADDRESS OF PER-CPU DATA BLOCK 

827 ; R3 - R3 (PRESERVED) 

828 ; 

829 ; IMPLICIT OUTPUTS: 

830 ; SCHSAQ_COMH - VECTOR OF COMPUTE QUEUE HEADERS. 

831 ; SCH$GL_COMQS - COMPUTE QUEUE SUMMARY BIT VECTOR. 

832 ; 

833 ; COMPLETION CODES: 

834 ; . NONE 

835 ; 

836 ; SIDE EFFECTS: 

837 ; THE PCB SPECIFIED IS REMOVED FROM ITS PRESENT STATE QUEUE 

838 ; AND INSERTED IN THE APPROPRIATE COMPUTE QUEUE, COM OR COMO, 

839 ; AT THE PRIORITY COMPUTED FOR THE SPECIFIED SITUATION CLASS. 

840 ; THE SUMMARY BIT FOR THE DESTINATION STATE QUEUE IS SET TO 

841 ; NOTE THAT IT IS OCCUPIED. 

842 ; IF THE NEW PRIORITY FOR THE PROCESS IS GREATER THAN THAT OF 

843 ; CURRENT PROCESS AND IT IS RESIDENT, THE RESCHEDULING INTERRUPT 
844 ; WILL BE TRIGGERED. 

845 ; 

846 ; ENVIRONMENT: 

847 ; IPL = IPL$_SYNCH, SCHED DATABASE LOCKED 

848 ;-- 

849 eENABLE LSB 

850 

851 ; 

852 ; NB: The BBS that passed control here CANNOT be changed to branch directly 
853 ; to the instruction ’MOVB PCBSB_ PRI(R4),R0O’. While at first glance this 
854 ; would seem correct, it does not correctly handle the case of the current 
855 ; priority less than the base priority. Other scheduling-related code, 
856 ; notably the $SETPRI logic, wishes to avoid some hard to handle special 
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857 ; cases and depends on SCHSCHSE to behave this way. 

858 ; an 
859 58: CLRL R2 7 Force NULL priority increment class 
860 BRB SCHSCHSE2 

861 
862 BADIPL: BUG CHECK BADRSEIPL, FATAL ; BAD IPL AT ENTRANCE TO RSE 

863 . 

864 UNIVERSAL | SYMBOL SCHSCHSE 

865 ;SCHSCHSE: : #CHANGE TO EXECUTABLE STATE 

866 BBS S*#SCHS$V_NO_CHSE PRIADJ,~; BR if event reporting priority 
867 W°SCHSSGL | CTLFLAGS, 5$ 7 adjustment is disabled 

868 SCHSCHSE2: : ; 

869 CLRL RO 3; CLEAR HIGH SUM BITS FOR ADDB 
870 SUBB3 8B PINC[R2],PCBSB_PRIB(R4),RO 7 ADD PRIORITY INCR 

871 CMPB RO, PCBSB_PRI(R4) 3 CHECK FOR > CURRENT PRI 

872 BLEQ 10$ 3g NO 

873 MOVB PCBSB_ PRI (R4),RO 7; KEEP CURRENT PRIORITY INSTEAD 
874 108: CMPB RO, #16 ? CHECK FOR RESULT >15 

875 BGEO SCHSCHSEP 7 YES, USE COMPUTED VALUE 

876 MOVB PCBSB_PRIB(R4),RO ; KEEP AT BASE IF LESS 

877 . 

878 -DISABLE LSB 

879 

880 ; 

881 ; SCHSCHSEP - SUB-ENTRY POINT WITH PRIORITY PRECOMPUTED IN RO 

882 ; 

883 

884 UNIVERSAL SYMBOL SCHS$CHSEP 

885 ;SCHSCHSEP:: 7; ENTRY WITH PRIO IN RO 

886 MF PR #PRS_IPL,R1 3 GET IPL 

887 CMPL R1, #IPL$_ SYNCH 3 MUST BE AT SYNCH OR GREATER 

888 BLSS BADIPL 3; NO, FATAL ERROR 

889 REMQUE (R4),R1 3; REMOVE FROM CURRENT QUEUE 

890 BNEQ 10$ 3; CONTINUE IF QUEUE NOTEMPTY 

891 MOVZWL PCBSW_STATE(R4),R1 7 GET OLD STATE 

892 BBC R1, EXESTATE, 10$ ; NO SUMMARY BITS 

893 MOVZBL PCBSB PRI(R4),R1 7 GET CURRENT PRI 

894 BLBC PCBSW_STATE (R4) , 5$ 3; SKIP IF RESIDENT 

895 ADDL #32,R1 3 MAKE NONRES PRIO 

896 5S: BBCC R1, G*SCH$GL_COMQS, 10$ ; CLEAR PRESENCE BIT FOR STATE 
897 10S: ‘MOVB RO, PCBSB_PRI(R4) ; SAVE NEW PRIO 

898 MOVIL #SCHSC_COM, R1 7 ASSUME COM STATE 

899 BLBS PCBSL _ STS (R4), 20$ 3 CHECK FOR RESIDENCE 

900 ADDL2 #32,R0 3 COMO HEADERS FOLLOW COM 

901 BBSS RO, G*SCH$GL_COMQS,15$ .; SET SUMMARY BIT FOR NEW QUEUE 
902 15S: BSBW SCHS SWPWAKE 3; WAKE SWAPPER 

903 MOVW #SCHSC_ COMO, PCBSW_STATE (R4) 7; SET NEW STATE 

904 MOVAQ  G*SCHSAQ ) COMT [RO], 7R2 7 COMPUTE HDR ADDR 

905 INSQUE (R4),@(R2)+ 7 INSERT IN NEW QUEUE 

906 RSB 7 RETURN 

907 

908 208: PUSHR #°M<R2,R3,R5,R6> 

909 3 

910 ; We won’t worry if the current affinity mask is out of date in this 
911 ; path. If it is missing a CPU, we will quickly spot it in the next 
912 ; test. If it has an extra CPU, the scheduler code will quickly fix 
913 ; things up. 
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914 
915 


916 


917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 


7 
MOVL PCBSL_CURRENT_ AFFINITY (R4),R5 ; Get fast copy for multiple tests 


BITL R5, G*SCHSGL_ IDLE | CPUS ; Any eligible, idle CPUs ? 

BNEQ 508 ; BR if at least one 

BICL3 R5,G*SCHS$GL_IDLE_CPUS, R2; Any unuseable CPUs 

BNEQ 100$ 7 Yes - go make sure we are up to date 


BITL W“SCHSAL_PREEMPT MASK[RO],- ; Can we preempt anyone 
G“SCH$GL_ACTIVE_PRIORITY 

BEQL 308 ? No 

ASSUME SMPSV_ENABLED EQ 0 

BLBS G*SMPSGL _| FLAGS, 200$ 
258: SOFTINT #IPL$_| RESCHED 
30S: BBSS ‘RO, G*SCHS$GL_COMQS, 35$ 
35$: MOVW R1, PCBSW_STATE (R4) 


No extra checks if uniprocessor 
TRIGGER RESCHEDULE INTERRUPT 
SET SUMMARY BIT FOR NEW QUEUE 
SET NEW STATE 


Se Ye Te we Ye NO 


MOVAQ G*SCHSAQ_COMT[RO],R2 COMPUTE HDR ADDR 
INSQUE (R4),@(R2) + INSERT IN NEW QUEUE 
POPR #°M<R2, R3,R5, R6> 
RSB ; RETURN 
50$: BBC #CPBSV_IMPLICIT AFFINITY,- ; Is implicit affinity involved 


PCBSL | CAPABILITY (R4), 60$ 
BBSC PCBSL | _ AFFINITY (R4) ,- : Yes - see if CPU is idle 
G*SCHSGL_ IDLE_CPUS,30$ ; Yes ~ signal the CPU 
60$: BICL RS, G*SCHSGL_ IDLE | CPUS ? Signal all eleigible CPUS 
BRB 30$ 


1008: CMPL W“SCHSGL_CAPABILITY_SEQUENCE, - 3; Are we up to date 
PCBSL_CAPABILITY_SEQ(R4) 
BEQL 110$ 3; Yes 
BSBW SCHSCALCUOLATE_AFFINITY ; Redo our mask 
MOVL PCBSL_CURRENT AFFINITY (R4), R5 ; Get new copy 
BITL R5, G*SCHSGL_ IDLE | CPUS ? Any eligible, idle CPUs ? 
BNEQ 50$ ; BR if at least one 
1108: BITL W“SCHSAL_PREEMPT MASK(RO],- ; Can we preempt anyone 


G*SCH$GL_ACTIVE_PRIORITY 
BEQL 30$ 7 No 
BRB 2108 


2008: CMPL W“SCHS$GL_CAPABILITY_SEQUENCE,- ; Are we up to date 
PCBSL_| CAPABILITY "_SEQ(R4) 
BEQL 210$ 7 Yes 
BSBW SCHSCALCULATE_AFFINITY ; Redo our mask 
MOVL PCBSL _| CURRENT AFFINITY (R4), R5 ; Get new copy 
2108: FFS #0, #32, - ; Find lowest running priority 
G*SCHS$GL_ACTIVE PRIORITY,R2 ; (external form) 
MNEGL R2,R3 
MOVL W*SCHSAL_CPU_PRIORITY+<4*31>[R3],- 
R3 Get mask of CPUs at this priority 
MCOML RS5,RS5 Get complement of affinity mask 
BICL R5,R3 Candidate CPUs 
BEQL 360$ None 


we 


=e te Ve 


At this point we are assured we will find a CPU. 

If the search for a CPU for which the process can run always 

starts with the low bit of the candidate CPU longword, the algorithm 
would be biased towards low CPU numbers. To try to avoid such weighting, 
the bit corresponding to the CPU on which the transition to COM has 


ee Ve Ye Ve Ve Ye 
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971 ; OCCURRED is rotated into the low position, and the search started from 
972 ; there. Beginning the search with the CPU processing the transition has 
973 3; the additional advantage of being biased toward local (as opposed to remote) 
974 ; preemption. 

975 ; 

976 ; In case of implicit affinity, the search will instead be biased towards the 
977 ; CPU for which the process has affinity. © 

978 ;. 

979 3008: BBC #CPBSV_IMPLICIT AFFINITY,- ; Is implicit affinity involved 
980 PCBSL_| CAPABILITY (R4) , 305$ 

981 MNEGL PCBSL_AFFINITY (R4) ,R5 + Get negative of CPU ID 

982 BRB 308$ 

983 305$: FIND CPU DATA R2 

9864 MNEGL CPUSL_PHY CPUID(R2),R5 ; ID of this CPU 

985 3085S: ROTL R5,R3,R3 3 Get our CPU in low bit 

986 BLBC R3,310$ : 

987 BRW 25$ 7 we have met him and he is us 

988 3108: FFS #0, #32,R3,R3 7 Get CPU ID 

989 - SUBL R5,R3 ? Adjust for the ROTL 

990 BICL #“C<31>,R3 # MOD 32 

991 IPINT CPU RESCHED, R3 7 request RESCHED of that CPU 

992 3208: BRW 305 

993 

994 3608: MOVL  G“SCHS$GL_ACTIVE_PRIORITY,R6 ; Get currently executing priorities 
995 MCOML W“SCHSAL | PREEMPT '_MASK[RO],R3 ; Complement of the preemption mask 
996 BICL R3, R6 7 Priorities we can try to preempt 
997 3708: INCL R2 ? Skip ones we have looked at 

998 SUBL3 R2, #32,R3 3 Bits to check 

999 FFS R2,R3,R6,R2 3 Get next candidate CPU ID 
1000 BEQL 320§ 7 Can’t run it 

1001 MNEGL R2,R3 

1002 MOVL W*SCHSAL_CPU_PRIORITY+<4*31>[R3],- 

1003 R3 ? Get mask of CPUs at this priority 
1004  BICL R5,R3 7 Candidate CPUs 

1005 BEQL 370$ ? Try again 

1006 BRW 3008 3 Got one 
1007 

1008 -SBTTL SWPO - SWAP OUT SIMPLE NON-EXECUTABLE 
1009 ; 

1010 ; SWPO - SWAP OUT ACTION ROUTINE FOR SIMPLE NON-EXECUTABLE STATES 
1011 ; 
1012 SWPO: # NON-EXECUTABLE OUTSWAP 
1013 BSBW SCHSUNWAIT ? REMOVE FROM WAIT QUEUE 

1014 INCW PCBSW_STATE (R4) ? UPDATE STATE NUMBER 
1015 REMQUE (R4),R1 7 REMOVE FROM WAIT QUEUE 
1016 INSQUE (R4),@WOQHSL_WOBL+WQHSC_LENGTH (RO) ? INSERT AT TAIL OF QUEUE 
1017 INCW WOQHSW_WOCNT+WQHSC_LENGTH (RO) 7 NOTE COUNT IN WAIT QUEUE 
1018 | RSB | 7 EXIT 

1019 

1020 ; 

1021 ; SWPOE - SWAP OUT EXECUTABLE ACTION ROUTINE 

1022 ; 

1023 SWPOE: MOVZBL PCBSB_PRI(R4),R0 ¢ GET PRIORITY 

1024 BRW SCHSCHSEP ¢ AND CHANGE TO. COMO 
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1026 -SBTTL SCHSWAIT - PLACE PROCESS IN SELECTED WAIT QUEUE 

1027 

1028 ;++ 

1029 ; FUNCTIONAL DESCRIPTION: 

1030 ; 

1031 ; SCHSWAIT PLACES THE CURRENT PROCESS IN A WAIT QUEUE 

1032 ; SELECTED BY A WAIT QUEUE HEADER ADDRESS SUPPLIED IN A REGISTER 
1033 ; A NEW PROCESS IS THEN SELECTED FOR EXECUTION. 

1034 ; 

1035 ; CALLING SEQUENCE: 

1036 ; 

1037 ; JMP/BR SCHSWAIT 

1038. ; 

1039 ; INPUT PARAMETERS: 

1040 ; 

1041 ; EXE$C_CMSTKSZ+00 (SP) - PC AT WHICH TO RESTART PROCESS AFTER EF WAIT 
1042 ; EXESC_CMSTKSZ+04 (SP) - PSL WITH WHICH TO RESTART PROCESS 

1043 ; 

1044 ; IMPLICIT INPUTS: 

1045 ; 

1046 ; SCHED DATABASE MUST BE LOCKED, IPL = SYNCH 

1047 ; | | 

1048 ; SIDE EFFECTS: 

1049 ; 

1050 ; THE PROCESS SPECIFIED BY THE PCB ADDRESS IN R4 IS PLACED 

1051 ; IN THE WAIT QUEUE LOCATED BY R2, ITS CONTEXT SAVED, 

1052 ; AND A NEW PROCESS SCHEDULED. 

1053 ; 

1054 ;-- 

1055 

1056 UNIVERSAL_SYMBOL SCHSWAIT 

1057 ;SCHSWAIT:: ;PLACE PROCESS IN WAIT STATE 
1058 MOVL 12(SP),FP ;RESTORE FP 

1059 ADDL2 S*#EXESC_CMSTKSZ, SP ;CLEAN UP KERNEL STACK 

1060 SUBL2 #4, (SP) 7BACK UP SAVED PC 

1061 UNIVERSAL_SYMBOL SCHSWAITK 

1062 ;SCHSWAITK:: ;WAIT WITH STACK ALREADY CLEAN 
1063 INCW WOQHSW_WOCNT (R2) ; INCREMENT COUNT FOR QUEUE 

1064 INSQUE (R4),WQHSL_WOFL(R2) ; INSERT IN QUEUE 

1065 MOVW WQHSW_WOSTATE (R2),PCBSW_STATE(R4) ;SET STATE FOR PROCESS 
1066 ; 

1067 ; THE STATE NUMBER IS CONTAINED 
1068 ; IN THE QUEUE HEADER 

1069 ; 

1070 UNIVERSAL_SYMBOL SCHSWAITL 

1071 ;SCHSWAITL:: ;WAIT WITH STATE SET, STACK CLEANED 
1072 SVPCTX ?SAVE PROCESS CONTEXT 

1073 

1074 UNIVERSAL_SYMBOL SCHSWAITM 

1075 ;SCHSWAITM:: sENTRY FOR MEMORY MANAGEMENT WAIT CODE 
1076 MOVL PCBSL_PHD (R4) ,R5 7GET PROCESS HEADER ADDRESS 

1077 MOVZWL G“SCHSGW_IOTA, RO #Get a longword copy of IOTA 
1078 ADDW RO, PHDSW_QUANT (R5) 7;CHARGE QUOTA FOR VOLUNTARY WAIT 
107S SUBL2 RO, PHDSL_TIMREF (R5) ;Adjust AWSA time reference 

1080 MOVL G*EXESGL | ABSTIM TICS,PCBSL_WAITIME(R4) ;RECORD TIME AT WAIT START 
1081 CMPB #4, PHD$B_ASTLVL (R5) #NULL ASTLVL? 

1082 BNEQ 20$ 7NO, DO LONG CHECK 
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1083 10$: BRW 


1084 
1085 
1086 
1087 
1088 
1089 
1090 


1091. 


1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 


ee Me Ve Ye Ye Ye 


20$ 


: MOVZBL 
CMPZV 


BLSS 


SCH$SCHED 7G0 SCHEDULE NEXT PROCESS 


PHD$B_ASTLVL (R5) , RO 7FETCH AND ZERO EXTEND PENDING ASTLVL 

#PSLSV SS UE ORR SUSE CURMOD, PHD$L_PSL(R5S),RO ;COMPARE WITH WAIT 
;ACCESS MODE 

10$ *BRANCH IF AST NOT DELIVERABLE 


Test for assumptions that are being made about the layout of the 


PSL that enables the next instruction to work correctly. 


o IPL field begins on a byte boundary 
o IPL field fits into a single byte 


ASSUME 
ASSUME 


BITB 


BNEQ 
CLRL 
RPTEVT 
BRB 


<<<PSLS$V_IPL/8>*8> - PSLSV_IPL> EQ 0 ; IPL must be byte aligned 
PSLSS_ IPL LE 8 ; IPL field must fit into byte 


#<PSL$M_IPL@-PSLSV_IPL>, - | | 
<PSL$V_IPL/8>+PHD$L_PSL(R5) ;MUST BE AT IPL 0 FOR DELIVERY 


10$ 7BRANCH IF AST NOT DELIVERABLE 
R2 7;SET NULL PRIORITY INCREMENT 
AST ?REPORT AST EVENT 

10$ 7GO SCHEDULE NEXT PROCESS 
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1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 


™e Se Te Ve Ye Be Se Ve Veo Ve Ne Ve Ye Ne Ve 


we Te Me Me Ne SMe Me Ne Me 


LOWPRI: 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


SCHSPIXSCAN is invoked to give selected, COM/COMO 
processes a priority boost. 


JSB 


NONE 


CALLING SEQUENCE: 


SCHS$P IXSCAN 


INPUT PARAMETERS : 


IMPLICIT INPUTS: 


IPL = SYNCH 


SIDE EFFECTS: 


RO=-R6 destroyed. 
Selected processes have received a priority boost. 


-BYTE 


UNIVERSAL _ SYMBOL 


7 SCHSPIXSCAN:: 


583 
778: 


10$ 


BBS 
MOVZWL 
BNEQ 
RSB 
BRW 
PUSHR 


LOCK 


BISL3 


BICL2 
BEQL 


BSBW 


FFS 


31,30 


S*#SCH$V_NO_PIXSCAN, - 
W*SCHS$GL_CTLFLAGS, 5$ 
G*SGN$GW_PIXSCAN, R5 
10$ 


100$ 
#°M<R7,R8,R9,R10,R11> 
LOCKNAME=SCHED, - 
LOCKIPL=#IPL$_SYNCH, - 
CONDITION=NOSETIPL, - 
PRESERVE=NO 
G*SCH$GL_COMOQS, - 
G*SCH$GL_COMOQS, R11 
#°X8000FFFF, R11 

7$ 

200$ 


#16, #15,R11,R11 


=e Me we Xe 


we ve 


we 


we =e me Se -e <e 


=e Se Ne 


SCHSPIXSCAN 


BR if process aging with this 
mechanism is disabled 

Get max no. of processes to boost 
BR if not disabled 

Branch helper 


Save working registers 


Acquire scheduler lock 


OK to destroy RO 
Merge COM/COMO summary longwords 


Mask NULL and real-time processes 
BR if no processes are COM/COMO 


Merge priority(ies) of CUR process (es) 
Find highest priority, non-realtime, 
CUR, COM or COMO process 


(ignoring external priority 0) 
(If none, R11=31; will terminate scan) 
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1166 : 
1167 _ EXTZV S“#SCHSV_PIXSCAN_LOWPRI,-; Determine if (external) priority 0 
1168 #1,W“SCHS$GL_CTLFLAGS,R6 ; processes receive a priority boost 
1169 MOVZBL B“LOWPRI[R6],R3 ? R3 = highest (internal) priority to check 
1170 

1171 EXTZV #0, #1,G*EXES$GL_ABSTIM,R9; Initialize scan state flags 

1172 

1173 — MOVZWL G“SCHSGW_DORMANTWAIT,R10; Convert DORMANTWAIT seconds 

1174 MULL2 #100,R10 . 3 to 10 ms units for comparisons 

1175 - 

1176 ? With a 50/50 probability, decide on 
1177 # whether to start with COM or COMO 
1178 ? processes. 

1179 

1180 258: BLBS R9, 50$ 7 BR if we should do COMO lst this pass 
1181 


Setup to process COM processes 


=e 


1182 30$: MOVAQ G*SCHSAQ COMH,R7 


1183 MOVL G*SCH$GL_COMQS, R8 

1184 BRB 70$ ; 

1185 : 

1186 408: XORL2 #2,R9 | # Toggle scan state flag 

1187 BBS #1,R9,45$ ? BR if scanning same priority 

1188 DECL R3 3 Setup for next priority 

1189 BRB 25$ # Go scan for processes 

1190 

1191 458: BLBS R9, 30$ ? BR if we did COMO first, now do COM 
1192 

1193 50$: MOVAQ G*SCHSAQ_COMOH, R7 7 Setup to process COMO processes 

1194 MOVL G“SCHSGL_COMOQS, R& 

1195 3; BRB 70$ 

1196 

1197 70S: CMPL R3,R11 3 Are we finished ? 

1198 BLEQU 100$ ? BR if yes 

1199 ~ BBC R3,R8, 40$ 3 Look for a non-empty queue 

1200 

1201 MOVAQ (R7) [R3],R6 3 R6 = address of queue header 

1202 MOVL (R6) , R4 7 R4 = address of lst PCB in queue 
1203 BRB 90$ 

1204 

1205 80S: CMPL R4,R6 3 Reached end of list ? 

1206 BEQL 40$ 7 Yes, try higher priority processes or 
1207 switch COM/COMO processing context 
1208 

1209 908: ADDL3 PCBSL_ONQTIME (R4) , - 7 Has this process been waiting for the 
1210 R10, RO 7 CPU a long time ? 

1211 CMPL § G*EXES$GL_ABSTIM TICS, RO 

1212 BLSSU) 100$ 7 No, quit boosting processes 

1213 , 

1214 BISL2 #1, PCBSL_PIXHIST(R4) 7 Show priority boost given 

1215 ASSUME PCBSL_SQFL EQ 0 

1216 PUSHL (R4) 7 Save address of next PCB in queue 
1217 MOVL R11,R0 ; Desired priority must be in RO 

1218 BSBW SCHSCHSEP ? Give temporary priority boost 

1219 POPL R4 7 Get next potential candidate process 
1220 DECL R5 ; Maximum number of processes boosted ? 
1221 BLEQ 100$ 7; BR if yes 

1222 BRB 80$ 7 Else examine more processes 
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1223 

1224 1008: 
1225 

1226 

1227 

1228 

1229 ; 
1230 ; Local 
1231 ; 
1232 

1233 200$: 
1234 

1235 

1236 

1237 

1238 

1239 2028: 
1240 

1241 

1242 2058: 
1243 

1244 

1245 

1246 

1247 

1248 210S$: 
1249 

1250 

1251 

1252 

1253 

1254 

1255 2208: 
1256 2308: 
1257 

1258 

1259 

1260 


UNLOCK LOCKNAME=SCHED, - ; 

PRESERVE=NO ; 
POPR #°M<R7,R8,R9, R10, R11> ; 
RSB 


subroutine to merge priorities of 


BLBS  G“SMPSGL FLAGS,205$ =; 
FIND CPU_DATA Rl 

CVTBL  CPUSB_CUR_PRI(R1),R1 
BLSS  202$ 

BBSS = R1, R11, 202$ 


oe Se Ne 


BICL2 #“XS8O00FFFF, R11 


=e Se 


RSB 
LOCK MUTEX=SMPSGL_CPU_MUTEX, -; 
SHARE=YES, - 
PRESERVE=NO 
CLRL RO ; 
MOVL G“SMP$GL_ACTIVE_CPUS,R2 ; 
MOVAL G“SMPS$GL_CPU_DATA, R3 ; 
SUBL3 RO, #32,R1 ? 
FFS RO, R1,R2,RO0 ? 
BEQL 230$ . ? 
MOVL (R3) [RO], R1 ; 
CVTIBL CPUSB_CUR_PRI(R1),R1 ; 
BLSS 220$ ; 
BBSS R1,R11,220$ 3 
AOBLSS #32,R0,210$ ; 
UNLOCK MUTEX=SMPSGL_CPU_MUTEX, -; 
SHARE=YES, ~ 
PRESERVE=NO 
BRW 202$ 


Release scheduler lock 
OK to destroy RO 
Restore working registers 


CURrent processes on all CPUs 


BR if multiprocessor configuration 


Rl = Priority of current process 
Negative priority means CPU is idle 
Merge current process’ priority 


Mask NULL and real-time processes 
and return with updated bit mask 


Protect active CPU set 


RO = starting bit in active CPU mask 
R2 = copy of in memory active CPU mask 
R3 = addr of CPU database addr table 
Rl = # bits remaining to scan 

Find first active CPU 

BR if none left 

Rl = address of database for this CPU 
Rl = Priority of current process 
Negative priority means CPU is idle 
Merge current process’ priority 

RO points to next starting position 
Release active CPU mutex 
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1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 


-SBTTL SCHSONE_SEC - Perform periodic, 1 second processing 
ett 
; FUNCTIONAL DESCRIPTION: 
; SCHSONE_SEC is invoked every second by EXESTIMEOUT to perform 
? any periodic processing required for the CPU scheduling subsystem. 
+ CALLING SEQUENCE: 
z 
; JSB SCHSONE_SEC 
; INPUT PARAMETERS: | “ . 
; NONE 
; IMPLICIT INPUTS: 
; IPL = SYNCH 
? SIDE EFFECTS: 
; RO-R6 destroyed. 
? Strictly speaking, the word references to SCH$GW_IOTA and SCHSGW_QUAN 
# should be interlocked. However, the probability of their being changed 
3 concurrently (or at all) approaches 0, and the timing window is only 
? a few instructions. Since the results of a wrong decision are harmless 
? and will be corrected momentarily, we'll take our chances !!! 

UNIVERSAL SYMBOL — SCHSONE_SEC 4, 
?SCHSONE_SEC:: 
: MOVW #MINWC, RO 3 Set working MINWC to maximum of 
; CMPW RO, G*SCHSGW_ IOTA # nominal MINWC and IOTA 
; BGEQU 5$ s 
; MOVW G*SCHSGW_IOTA, RO 
758: MOVZWL RO, W*SCHS$GL_MINWC 
; BICB3 #*C<15>, G*SCHS$GB_MINCLASSPRI,RO ; Update local copy of MINCLASSPRI 
: SUBB3 RO, #31,W*SCHS$GB_MINCLASSPRI ; (internal priority form) 
2 b 
; BICB3 #*C<15>, G*SCH$GB_MAXCLASSPRI,RO ; Update local copy of MAXCLASSPRI 
; SUBB3 RO, #31,W*SCHS$$GB_MAXCLASSPRI ; (internal priority form) 
; BICB3 #*C<15>,G*SCHS$GB_MINPRPRI,RO ; Update local copy of MINPRPRI 
; SUBB3 RO, #31,W*SCHS$$GB MINPRPRI ; (internal priority form) 
: MOVL G*SCHS$GL_CTLFLAGS, R1 # R1 = working copy of system parameter 
; CMPL W“SCHS$GL_CTLFLAGS, - # Local copy of control flags same 
; Rl 7 as system parameter ? 
; BNEQ 15$ ? BR if any flags are different 
783 ADDW3 W“SCHS$GW_QUAN, - 3 Has basic quantum value 

G*SCHSGW_QUAN, RO 7 changed since last time ? 

+++ TEMP +++ 
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1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 


; 
BEQL 
MNEGW 


--- TEMP --- 
BNEQ 
BSBW 
RSB 


fd we Ne Ne 


°o 
nm 
ee 


MOVL 
BITL 


~e te 
ray 
on 
<a 
oe 


BEQL 
BRB 


™e te Me Se Me 


17$: MNEGW 
BITL 


BEQL 


=e Ye Ne Ge Ye 


208: LOCK 


we we Ve 


MOVL 
MOVL 
MNEGW 
ASSUME 
EXTZV 
MOVZWL 
CMPW 
BLEQ 
MOVW 
MNEGW 
258: MOVW 


me Ye Teo Ye Ve Ye Yeo 
xe 


me Ye Ne Ve 


7 


we 


me te Ms 


MOVL 
MOVAW 
MOVAW 
MOV2WL 
308: ADDW3 
MOVL 
BBC 
MULL2 
CMPL 
BLEQ 
MOVL 
3538: MOVW 
SOBGEQ 
ADDW3 
MOVZWL 
UNLOCK 


@e 


me Ye Ve Ne Ve 


we Ne Ve Ne Yeo Ye Vo Ne 


we Ne 


BR if no 
Update local copy of basic quantum 


10$ 
W°SCHS$GW_QUAN 


we Ve 


17$ 
SCHSPIXSCAN 


BR if yes 
Do process priority aging 


me Ne 


R1,W*SCHS$GL_CTLFLAGS # Update local copy of control flags 
#<SCHS$M_PRI_QUANT!SCH$M_WAIT_CREDIT>, - 


R1 ? Take easy way out if wait credit and 
7$ # queue dependent quantums both disabled 
20$ 

G*SCHSGW_QUAN, - 7 Update local copy of basic quantum 


W*SCHS$GW_QUAN 
#<SCHSM_PRI_QUANT!SCHSM_WAIT_CREDIT>, - 


R1 3 Take easy way out if wait credit and 
10$ # queue dependent quantums both disabled 
LOCKNAME=SCHED, ~ 7 Acquire scheduler lock 

LOCKIPL=#IPL$_ SYNCH, - 

CONDITION=NOSETIPL, - 

PRESERVE=NO 7 OK to destroy RO 

R1, RO + Update working copy of control flags 
RO, W°SCHSSGL_CTLFLAGS 

G*SCHSGW_QUAN, R6 ; Update working copy of basic quantum 


SCHSV_ WAIT_ CREDIT EQ SCHSV_PRI_QUANT+1 
S*#SCHSV_| PRI _QUANT, #2, R0, Rl; Form index for table lookup 
W* SCHSGW | MAX QUANT [R1], R5; R5 = maximum allowed quantum value 


R6,R5 7 Quantum value in range ? 
25$ ? BR if yes 
R5,R6 No, use maximum value 


R6, G*SCHSGW_QUAN 


a Reset system copy 
R6, W*SCHSSGW_QUAN 


Update local copy of basic quantum 


=e Ye Ve 


Populate quantum and wait credit tables as a function of the base quantum 
value and whether the quantums should be queue dependent. 


#MAX_BOOST-1, R1 
W*SCHSGW_MAXWC+2 [R1] , R2 
W*SCHSGW_QUANTUM#2[R1],R 


Initialize loop control 
Set table end addresses for loop 


™e 


3 
R6,R6 3 Get a LW copy of the basic quantum 
(R2), (R3) ,7~(R2) 3 Set accumulated wait credit for queue 
R6, R4 7 Assume queue-independent quantum 


S*#SCHSV_PRI_QUANT, RO,35$; BR if correct assumption 
W°SCHSGL | QUANT MULT[R1],R4; Scale by queue-dependent multiplier 


R4,R5 7 Quantum within allowable range ? 
35$ BR if within range 

R5,R4 Limit quantum to maximum value 
R4,~(R3) Store resulting quantum in table 
R1,30$ Loop to setup table for all queues 


(R2), (R3),R1 
R1,W*SCHSGL_MAXWC 
LOCKNAME=SCHED, - 


Compute accumulated wait credit for 
entire table and store LW copy 
Release scheduler lock 


me Ve Ve Ve Ve Yo Vo 
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1376 ; PRESERVE=NO ; OK to destroy RO 
1377 3 BRW 10$ | _ 
1378 ; | 
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1380 -SBTTL SCHSQEND - QUANTUM END ROUTINE 

1381 

1382 ++ 

1383 ; 

1384 ; FUNCTIONAL DESCRIPTION: 

1385 ; SCHSQEND IS CALLED BY THE TIMER WHEN THE QUANTUM FOR THE CURRENT 
1386 ; PROCESS HAS BEEN EXHAUSTED. A NEW QUANTUM IS INITIALIZED 

1387 ; THE PROCESS PLACED AT ITS BASE PRIORITY AND THE RESCHEDULING 
-1388 ; INTERRUPT TRIGGERED. A CHECK IS MADE FOR CPU TIME LIMIT EXPIRATION 
1389 ; AND APPROPRIATE EXIT ASTS GENERATED WHEN THE LIMIT IS REACHED. 
1390 ; THE AUTOMATIC WORKING SET SIZE LOGIC IS INVOKED IF ENABLED TO 
1391 ; TRADEOFF WORKING SET SIZE AGAINST PAGEFAULT RATE. 

1392 ; 

1393 ; CALLING SEQUENCE: 

1394 ; BSB/JSB G*SCHSQEND 

1395 ; 

1396 ; INPUT PARAMETERS: 

1397 ; R4 - PCB ADDRESS OF CURRENT PROCESS 

1398 ; R5 - PROCESS HEADER ADDRESS 

1399 ; | 

1400 ; IMPLICIT INPUTS: 

1401 ; PCB OF CURRENT PROCESS 

1402 ; ' PROCESS HEADER OF CURRENT PROCESS 

1403 ; 

1404 ; IMPLICIT OUTPUTS: 

1405 ; PHDSW_QUANT - INITIALIZED TO A NEW QUANTUM 

1406 ; PCBSV_INQUAN - INITIAL QUANTUM FLAG CLEARED 

1407 ; 

1408 ; ENVIRONMENT: 

1409 ; IPL = IPL$_SYNCH, SCHED DATABASE LOCKED 

1410 ;-- 

1411 

1412 UNIVERSAL_SYMBOL SCHSQEND 

1413 ;SCHSQEND:: ? QUANTUM END ROUTINE 

1414 - BBCC #PCBSV_INQUAN, PCBSL_STS(R4),10$ ; CLEAR INITIAL QUAN FLAG 
1415 108: MNEGW W*“SCHSSGW_QUAN, - 7 Set new quantum (Assume that queue 
1416 PHDSW_QUANT (R5) - ¢ dependent quantums are disabled.) 
1417 MOVL  G“*EXESGL_ABSTIM_TICS,- ; Record time placed on COM queue 
1418 -- PCBSL_ONQTIME (R4) 

1419 CMPB PCBSB PRI(R4) , #16 ; CHECK FOR REAL-TIME 

1420 BGEQ 20$ 

1421 RSB 


1422 208: ASHL #1,PCBS$L_PIXHIST(R4),- ; Update PIXSCAN history summary LW 
1423 . PCBSL_PIXHIST (R4) 


1424 ; 

1425 ; 

1426 ; CHECK FOR CPU TIME LIMIT EXPIRATION 

1427 ; 

1428 TSTL PHDSL_CPULIM(RS) 7; IS THERE ANY LIMIT? 

1429 BEQL 40$ ; BR if no 

1430 BRW 60$ 7 Else, go check it out 

1431 40$: BBS #PCBSV_DISAWS,PCBSL_STS(R4),45$ ; BRANCH IF ADJUSTMENT DISABLED 
1432 BBS #PHDSV_NO WS CHNG, - 3 WORKING SET CHANGES NOT ALLOWED 
1433 PHDSW_FLAGS (R5) , 45$ 

1434 MOVL G*SCH$GL_WSINC, R3 7; ASSUME INCREMENT 

1435 BEQL 45$ ; BR IF NO AUTO WS ADJUSTMENT 
1436 BSBW WSADJUST 7 ELSE GO DO IT 
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FIND CPU _DATA R3 


1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 


1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 


45S: 


468: 


49S: 


47S: 


we te 


48s: 


we 
S,] 
at 
zn 


we 


we Te Ve Ve Ve Ve Te Te Yo VO Ve 


Se “ese Ye Ve 


=e 


MOVZBL 
TSTL 
BEQL 
MOVB 
BICL 


BNEQ 
SUBL3 | 
BBCC 


MOVZBL 
MOVB 
BISL 


SUBL3 
BBSS 


PUSHAB 
BRW 
BICL3 


BNEQ 
ASSUME 
FFS 


CMPL 
BGEQ 
CMPB 
BGEQ 
ADDL3 
MOVL 
BSBW 


*RSB 


BISB2 


SOFTINT 
RSB 


BBC 


CMPB 
BLEQU 
INCB 
BICL 
BNEQ 


SUBL3 
BBCC 


BISL 


PCBSB_ PRI(R4),R1 CURRENT PRIORITY - INTERNAL FORM 
G*SCH$GL_COMOQS IS THERE ANY INSWAP PENDING? 

47$ NO 

PCBSB_PRIB(R4),PCBS$B_PRI(R4) 7 YES, FORCE TO BASE PRIORITY 
CPUSL | CPUID_MASK(R3),- ;GET MASK FOR CURRENT CPU ID 
W*SCHSAL_ cev | PRIORITY[R1] ;CLEAR CPU BIT 


~e Se Ne 


46$ ; ANYONE ELSE AT THIS PRIORITY? 
R1,#31,R1 _ 7GET PRIORITY IN EXTERNAL FORMAT 
R1,- 7NO ONE ELSE 
G“SCH$GL_ACTIVE_PRIORITY, 46$ 

PCBSB | PRI(R4), R1 7 NEW PRIORITY - INTERNAL FORM 
Rl, CPUSB | CUR_PRI (R3) 7 NEW PRIORITY FOR THIS CPU 


CPUSL_| CPUID _MASK(R3) , - 7;GET MASK FOR CURRENT CPU ID 
W°SCHSAL_CPU_ PRIORITY [R1] 7;SET CPU BIT 


R1, #31,R2 7GET PRIORITY IN EXTERNAL FORMAT 
R2,- 

G*SCHS$GL_ACTIVE_PRIORITY, 49$ 

B“48$ 

SCHS SWPWAKE 7 AND WAKE SWAPPER 


#*C<SCHSM_QEND PRIADJ!SCH$M_NO_QEND PREEMPT!SCH$M PRI QUANT>, - 


W*SCHS$GL_CTLFLAGS, RO 7 Fetch scheduling control flags to test 
55$ 

PCBSV_QUANTUM_RESCHED LE 7 

#0, #32,- ; Find highest COM priority 
G*SCHS$GL_COMQS, R2 


R1,R2 Check against current priority 


51$ # Resched if equal or greater 
R1,PCBSB_PRIB(R4) # Are we at base 

50$ 7 Don’t adjust - should never be GTR 
#1,R1,R0 7 Move priority towards base 

R3,R1 7 Needed for next routine 


SCHSCHANGE_CUR_PRIORITY 


#PCBS$M_QUANTUM_RESCHED, - 
PCBSL_STS2(R4) 
#IPL$_RESCHED 


Show quantum-oriented reschedule 
TRIGGER RESCHEDULING INT 
AND RETURN 


me Se Yo 


S*#SCHSV_QEND PRIADJ, - 
RO, 56$ 


BR if quantum end should not 
cause a priority adjustment 


-e Ye 


PCB$B_PRIB(R4) , - 
PCB$B_PRI(R4) 

56$ 

PCB$B_PRI (R4) 
PCB$B_PRI(R4) ,- 
CPUSB_CUR_PRI (R3) 
CPUSL_CPUID_MASK(R3),- ;GET MASK FOR CURRENT CPU ID 
W*SCHSAL_CPU_PRIORITY[R1] ;CLEAR CPU BIT 

51S ;ANYONE ELSE AT THIS PRIORITY? 

R1, #31,R1 ;GET PRIORITY IN EXTERNAL FORMAT 

R1,- ;NO ONE ELSE 
G*SCHS$GL_ACTIVE_PRIORITY, 51$ 

MOVZBL PCBSB_PRI(R3),R1 ; NEW PRIORITY - INTERNAL FORM 
CPUSL_CPUID MASK(R3),- ;GET MASK FOR CURRENT CPU ID 


Process already at or below 
base priority ? 

BR if yes 

Decrement process priority 
Announce new priority 


se “Ne Ve Ve Ye, 
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1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
- 1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 


we te te 


5683 


57$: 


we Se Me Me Te Ve Ye Ve Be Ve Ve Ve Ye Yo Yeo Noe Ye Ye Ye Ve Yo Ye Ye Ye Ye Ve 


58S: 


me %e Ye 


we te Se 


598: 


sme Ye Ye Ye Ve Vo 


we Se 


60$8: 


65S: 


W*SCHSAL_CPU_PRIORITY[R1] ;SET CPU BIT 


SUBL3 R1,#€31,R1 ;GET PRIORITY IN EXTERNAL FORMAT 
BBSS R1,- 


G*SCHSGL_ACTIVE_PRIORITY, 56$ 


BBC S“#SCH$V_PRI_QUANT, - 
RO, 57$ 

SUBB3 PCBS$B_PRI(R4),- 
PCB$B_PRIB(R4) , R3 


BR if not using queue dependent 
quantum values 


Compute priority relative to base 


=e te Ne 


BLSS 57$ ; BR is current priority < base 

CMPB #MAX_BOOST, R3 # Is current priority > max boost ? 
BLSS 57§ * BR if yes 

MOVZBL R3,R3 7 Get a LW copy for indexing | 

MNEGW W*SCHSGW_QUANTUM[R3],- # Set correct quantum value for queue 


PHD$W_QUANT (RS) 


BBC S*#SCHSV_NO_OEND PREEMPT,- ; BR if non-preeptive reschedule 
RO, 58$ 7 policy not enabled 

CMPB PCBSB_PRIB(R4) , - # Process priority high enough ? 
W*“SCHS$GB_MINPRPRI 

BGEQU 58$ ? BR if not 

BBC S“#SCH$V_QEND PRIADJ,- ; BR if priority not manipulated here 

. RO, 59$ 

FFS #0, #32, G*SCH$GL_COMQS,RO ; Find highest priority COM process 

CMPB PCBSB_PRI(R4) ,RO 7 If current process is still (strictly) 

BLSS 59$ ? higher priority, avoid reschedule 


ASSUME PCBSV_QUANTUM_RESCHED LE 7 
BISB2 #PCBSM_QUANTUM_RESCHED, - 
PCBSL STS2 (R4) ? Show quantum-oriented reschedule 
; 


SOFTINT #IPL$ _RESCHED Trigger reschedule interrupt 
RSB 


A non-zero limit exists, check for processor time expiration 


If CPU time limit is exceeded then an additional amount of time will 
be allowed for each access mode. An AST will be issued to cause an 
exit for each of the access modes. The additional time allowance will 
be provided for each access mode. 


SUBL3 PHD$L_CPULIM(R5) , PHD$L_CPUTIM(RS),RO ; HAS LIMIT BEEN REACHED 
BGEQU 65S + BR if yes 
BRW 40$ 7 Else, continue normally 


CPU LIMIT HAS EXPIRED, AN AST WILL BE SENT TO NOTIFY THE PROCESS 


ADDL2 G* SGN$GL_EXTRACPU, RO 
ADDL2 RO, PHDSL_CPULIM(R5) 
ADDL2 RO, PHDSL_EXTRACPU (R5) 
MOVAB PHDS$B_CPUMODE (R5) , RO 
PUSHAB W*40$ 

MOVZWL #SS$_EXCPUTIM, R3 


COMPUTE TOTAL AMOUNT OF EXTRA TIME 
GIVE EXTRA TIME FOR CLEANUP 

AND RECORD AMOUNT OF EXTRA TIME 
GET ADDRESS OF AST ACCESS MODE 

SET RETURN ADDRESS 
PASS EXIT STATUS TO SENDAST 


™e Ve 


se Se Ne Ne 


UNIVERSAL SYMBOL SCHS$FORCEDEXIT 


7 SCHSFORCEDEXIT: : 
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1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 


3 
3 


CPU TIME EXPIRATION AST HANDLER 


3 
CPUABRT: . WORD 


10$3 


3 
3 
7? 
3 
3 
3 
3 
3 
; 
; 
3 
3 
3 
; 
; 
3 
3 
; 
3 


SENDAST 


0 
S“#ASTEXIT 


SEXIT_S 4(AP) 


10$ 


e 
e 


=e Se Ye %O 


SEND AST TO PROCESS 


NOLL ENTRY MASK 

EXIT FROM AST ROUTINE (CLEAR AST) 
EXIT TO INVOKE EXIT HANDLERS 
JUST IN CASE 


Adjust working set size automatically to achieve desired tradeoff 
between page fault rate and working set size. There are two page 
fault rate thresholds: G*SCHS$GL_PFRATL, the lower threshold and 
SCHS$GL_PFRATH, the higher threshold. Each time G*SCHSQEND is invoked, 
the page fault rate is computed and compared with these thresholds. 
If it is above the high threshold the working set size is increased 
by SCHSGW_WSINC and if the rate is below the lower threshold, the 
working set size is decreased by SCHS$GW_WSDEC. The actual adjustment 
is performed by a normal kernel mode AST. 


Automatic adjustment of working set size is constrained by the values: 
SCHSGL_AWSMIN and WSEXTENT per process that establish upper and lower 
values for automatic working set size adjustment. Working set size 
adjustment is further constrained by the process quota. 


R3 - Working set increment 


WSADJUST: 


SUBL3 


BLSS 


NOADJUST: 


RSB 


PHDSL_TIMREF (R5) , - 
PHDSL_CPUTIM(RS) , RO 
10$ 
RO 


RO, G*SCHSGL_AWSTIME 
20$ 
PHDSL_PFLREF (R5) , - 
PHDSL_PAGEFLTS (RS), R1 


PHDSL_PAGEFLTS (R5) , PED$L_PFLREF (R5) 
PHDSL_CPUTIM(R5) , PHDSL_TIMREF (R5) 


#1000,R1 


.RO,R1 


R1, PHDSL_PFLTRATE (R5) 
R1,G*SCHSGL_PFRATH 
ADJUSTUP 


0 “Me Ne Ne Ve 


=e Ye Ve Ye 


we No we Se Ne 


AUTO-ADJUST WORKING SET SIZE 
COMPUTE DELTA-T 


BR IF NON-ZERO 
ELSE FORCE TO ONE FOR DIVIDE 


IS THIS A MEANINGFUL INTERVAL? 


BR if no 
COMPUTE DELTA-PGFLT 


SAVE NEW PAGE FAULT REF 
AND SAVE CPUTIME REF 
MULTIPLY BY SCALE FACTOR 

AND COMPUTE PAGEFLTS/10SEC 

SAVE CURRENT RATE 

ARE WE ABOVE HIGH THRESHOLD? 

YES, 


we we 


PCBSL_PPGCNT(R4),G*SCH$GL_AWSMIN ; ARE WE AT LOWER WS LIMIT? 


NOADJUST 
G*SCH$GL_WSDEC, R3 
NOADJUST 
G*SCHS$GL_PFRATL, R2 
CHECK _WSSIZE 

RO, G*SCH$GL_AWSTIME 
NOADJUST 

R1, R2 

ADJUST 


™e Me Me Me Ve 


™e Me “Ne Se te Ne 


YES, NOTHING TO DO 

Get decrement value 

BR if WS decrementing disabled 

R2 = lower PF rate threshold 

BR if possible WS reduction based on free 
IS THIS A MEANINGFUL INTERVAL? 

BR if no 

ARE WE BELOW LOW THRESHOLD? 

BR if yes 
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1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 


1629 . 


1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 


3 
} PFRATL is known to be sero, i.e., swapper trimming 
3 is the preferred memory reclaimation mechanism. 
; 
+ WSDEC is known to be non-zero, indicating that it is valid to attempt 
+ to shrink process working sets here if memory is currently at a premium, 
+ the process has extended its working set beyond WS quota, and the process 
+ PIXSCAN history indicates that it is a low-priority, background process. 
; ; 
CHECK_WSSIZE: 
TSTL PCBSL_PIXHIST (R4) : Possible candidate based upon 
3? PIXSCAN history summary LW ? 
BEQOL NOADJUST ? BR is not 
CMPL G*SCHS$GL_FREECNT, - 7 Available memory still allow pages to 
G*“SCHS$GL_GROWLIM + be added to extended working sets ? 
BGEQU NOADJUST ? BR if yes 
SUBL3 PHDSL_WSLIST(R5),- 
PHDSL_WSQUOTA(R5) ,R1 7 Rl = current WSQUOTA 
INCL Rl 
SUBL2 PHDSL_WSSIZE (RS) ,R1 ? R1 = -(# pages above WSQUOTA) 
BGEQU NOADJUST ; BR if WSSIZE still below quota 
CMPL R1,R3 3; Use smaller of WSDEC and 
BLEQU 10$ z WS size overage 
MOVL R1,R3 # asf amount to reduce WS size 
10$: BRB ADJUST 7 Reclaim some pages beyond WSQUOTA 
ADJUSTUP : 7 
SUBL3 PHDSL_WSLIST(RS),PHDS$L_WSQUOTA(RS) ,R1 Ss 
? ASSUME HIGH LIMIT WILL BE QUOTA 
MOVL PHDSL_WSSIZE(R5), RO ? GET CURRENT WORKING SET SIZE 
CMPL G*SCHS$GL_BORROWLIM, G*SCH$GL_FREECNT ; ARE THERE LOTS OF FREE PAGES? 
BGTRU 10$ ? BRANCH IF MEMORY IS AT A PREMIUM 
SUBL3 PHDS$L_WSLIST (R5) , PHDSL_WSEXTENT (R5) , R1 
# ALLOW LARGER GROWTH SIZE 
108: CMPL RO, R1 7 ARE WE AT MAXIMUM SIZE? 
BGTRU NOADJUST 7 YES, CAN’T GO ANY LARGER 
ADDL3 PCBSL_GPGCNT (R4) , PCBSL_PPGCNT(R4),R1 ? GET CURRENT PHYSICAL SIZE 
CMPL ‘RO,R1 7 Be sure that pages in use don’t exceed WS 
BLSSU WSERR ? BRANCH IF WS SMALLER THAN PAGES IN USE 
ASHL #-2,R0,R2 # Compute 75% of WSSIZE as page threshold 
SUBL2 R2,R0 
CMPL R1, RO 7 If threshold not exceeded, 
BLSSU) NOADJUST ? skip WS adjustment 
ADJUST: MOVAB PHD$B_AWSMODE (R5) , RO 3 GET ADDRESS OF AST ACCESS MODE 
BSBB SENDAST ? SEND AST TO PROCESS 
ADJUWS: .WORD 0 ; 
MOVL G*CTLS$GL_PHD, R1 7 GET PHD ADDRESS sO 
CLRB PHDS$B_AWSMODE (R1) ? ACCESS MODE FLAG CAN BE RESET 
SADJWSL_S 4 (AP) + ADJUST BY PARAMETER IN AST ARGLIST 
RET 7 AND RETURN 


WSERR: BUG CHECK WSSIZEERR, FATAL 


WORKING SET SIZE CALC IN ERROR 


ve 
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-SBTTL SENDAST - Send AST to process 


1662 
1663 
1664 
1665 


1666: 


1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 


3++ 


FUNCTIONAL DESCRIPTION: SENDAST IS CALLED BY G*SCHSQEND TO SEND ASTS TO THE 


PROCESS THAT INVOKE FUNCTIONS UNAVAILABLE TO THE ENVIRONMENT OF Gy SC eSOEND: 


THESE INCLUDE ADJUSTING THE WORKING SET AND EXITING. 


INPUT PARAMETERS : 


‘RO 


R4 
(SP) 
4(SP) 


2 

? 

; 

Hi 

2 

? 

; 

3 R3 

? 

? 

3 

3 

3 ENVIRONMENT: 
Yr 

| food 

SENDAST: 
PUSHL 
PUSHL 
TSTB 
BLSS 
BBS 
MOVZWL 
JSB 
BLBC 
MOVB 
MOVW 
MOVL 
MOVB 
DECB 
MOVL 
MOVL 
PUSHL 
PUSHL 
MOVL 
CLRL 
JSB 
MOVO 
RSB 


- ADDRESS OF ACCESS MODE FOR AST 
(NEGATIVE CONTENTS PREVENT SENDING AST) 


AST PARAMETER 
PCB ADDRESS 
AST ADDRESS 


RO 
R3 
(RO) 
10$ 


se te Ne Ve Ve 


RETURN ADDRESS FOR THIS SUBROUTINE 


IPL = IPL$_SYNCH, SCHED DATABASE LOCKED 


SAVE ADDRESS OF ACCESS MODE 
AND AST PARAMETER 

CHECK VALUE OF ACCESS MODE 
DO NOT QUEUE AST IF NEGATIVE 


#PCBSV_DELPEN, ,PCBSL , STS(R4),10$ ; NOR IF MARKED FOR DELETE 


#ACB$C_LENGTH, R1 ? 
G*EXESALONONPAGED 
RO, 10$ 


#DYNSC_ACB, ACBSB_TYPE (R2) ; 


se wee Me 


R1, ACBSW_SIZE (R2) 
(SP)+,ACB$L_ASTPRM(R2) 
@(SP),ACBSB_RMOD(R2) 
@(SP)+ 
(SP)+,ACBSL_AST (R2) 


™e Se te 


"=e 


SET SIZE REQUIRED 
7; ALLOCATE A BLOCK 

NONE, TRY LATER 

SET TYPE OF STRUCTURE 
AND SIZE OF STRUCTURE 
AND AST PARAMETER VALUE 
SET ACCESS MODE FOR AST 
INDICATE SUCCESS FOR THIS ACCESS MODE 
SET AST ADDRESS 


PCBSL_PID(R4) , ACBSL_PID (R2) 3 SET PID FOR AST 
R5 3; SAVE REGS FOR QAST 

R4 Bi, Sotete 

R2,R5 3 SET ADDRESS OF ACB 

R2 ; NULL PRIORITY INCREMENT 
G*SCHSQAST ; QUEUE AST FOR PROCESS 
(SP)+,R4 ; RESTORE PCB, PHD ADDRESSES 


EXIT 


? Error path if nonpaged pool allocation fails or if AST access mode is 
3 negative, indicating either an AST in progress (for automatic working 
7. set adjustment) or all access modes are done (for CPU time limit expiration) 


10S: ADDL 
RSB 


#12,SP 


me Ve 


CLEAN PARAMETERS FROM STACK 
AND EXIT 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


RSE - REPORT SYSTEM EVENT 10-MAY~-1989 16:47:03 VAX MACRO V5.0~-8 Page 38 
X-3205 SENDAST - Send AST to process 19-SEP-1988 08:23:26 $254§DUA55: (SYS.SRC)RSE.MAR;1 (1 


1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
_ 1739 
1740 
1741 


1742 


1743 


1744 © 
1745 | 


1746 
1747 
1748 
1749 
1750 


-SBTTL SCHSWAKE - WAKE PROCESS INTERNAL 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
SCHSWAKE WAKES THE PROCESS SPECIFIED BY THE PID SUPPLIED. 


CALLING SEQUENCE: 
BSB/JSB G*SCHSWAKE 


INPUT PARAMETERS : 
Rl - PID OF PROCESS TO WAKE 


OUTPUT PARAMETERS: 
RO - COMPLETION STATUS CODE 
R4 - PCB ADDRESS OF PROCESS AWAKENED 


me Ve Te Ye Ve Re Ve Ve Ve Ye We Ve 


@e 


@e Ne 


COMPLETION CODES: 
SS$_NORMAL - NORMAL SUCCESSFUL COMPLETION STATUS 
SS$_NONEXPR - NONEXISTENT PROCESS (INVALID PID) 


ENVIRONMENT : 
IPL = IPL$_SYNCH, SCHED DATABASE LOCKED 


me Te Ve Ve Teo Be Ye 


UNIVERSAL _ SYMBOL SCHSWAKE 


7 SCHSWAKE: : WAKE PROCESS INTERNAL 


me Ye 


MOVZWL R1,R4 . GET PROCESS INDEX (PIX) 
MOVL @L*SCHSGL_PCBVEC[R4], R4 3 LOOK UP PCB ADDRESS 
CMPL’ R1, PCBSL_PID(R4) ? VERIFY PID 
BNEQ 30$ 7 REPORT ERROR 
BBSS #PCBSV_WAKEPEN, PCBSL_STS(R4) ,10$ . 3 SET WAKE PENDING 
10S: ; 
MOVZBL #PRI$_RESAVL, R2 ? SET PRIORITY INCREMENT CLASS 
RPTEVT WAKE ¢ REPORT WAKE EVENT 
MOVZWL #SS$_NORMAL, RO 3 SET SUCCESS CODE 
208: RSB 3 RETURN 
308: MOVZWL #SS$_NONEXPR, RO SET NONEXISTENT PROCESS STATUS 


we Ne 


RSB . 
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-SBTTL SCHS$SWPWAKE ~ WAKE SWAPPER PROCESS 


1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
.1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 


r++ 


NONE 


ENVIRONMENT: 


™e We Ye Te Se Te Ye Ne Te Ye Ye Ye Te Ye Te Ye Ye Yeo Yo Ye 


SIDE EFFECTS: 
A WAKE EVENT IS GENERATED FOR THE SWAPPER PROCESS WHICH CAN 
CAUSE THE PROCESSOR TO BE RESCHEDULED. 


FUNCTIONAL DESCRIPTION: 
SCHSSWPWAKE AWAKENS THE SWAPPER PROCESS TO PERFORM SOME OPERATION. 


CALLING SEQUENCE: 
BSB/JSB G*SCHS$SWPWAKE 


INPUT PARAMETERS: 


OUTPUT PARAMETERS: 
RO-R4 PRESERVED 


THE SCHED SPINLOCK MUST BE HELD ON ENTRY. 


UNIVERSAL_SYMBOL SCHS SWPWAKE 


3? SCHSSWPWAKE : : 
TSTL 
BNEQ 
CMPL 
BGEQ 
CMPL 
BLSS 
TSTW 
BNEQ 
TSTL 
BEQL 

108: BITB 
BNEQ 
PUSHR 
MOVL 
BSBB 
POPR 

20$: RSB 


WAKE SWAPPER PROCESS 


G*SCHS$GL_COMOQS ANY INSWAP CANDIDATES? 


~™e Se Ye 


10$ YES, MUST WAKE SWAPPER THEN 
G*SCHSGL_MFYCNT, G*SCH$GL_MFYLIM ; ARE THERE MODIFIED PAGES TO WRITE? 
10$ 3 YES, MUST WAKE SWAPPER THEN 
G*SCHSGL_FREECNT, G*SCH$GL_FREELIM ; DO WE NEED FREE PAGES? 

10$ ? YES, MUST WAKE SWAPPER THEN 
G*SCHS$GW_DELPHDCT ? ARE THERE DELETED HEADERS TO PURGE? 

10$ + YES, MUST WAKE SWAPPER THEN 
G“EXESGL_PFATIM ? WAS THERE A POWER FAIL RECOVERY? 

20$ + BR IF NONE 
S“*#<<1@SCHS$V_SIP>!<1@SCHS$V_MPW>>, G*SCH$GB_SIP ; SWAPPER ALREADY BUSY 
20$ 7 BR IF YES 

#°M<RO, R1, R2,R3, R4> ; SAVE R1-R4 

G*SCHSGL_SWPPID,R1 ; GET PID OF SWAPPER 

SCHSWAKE ? AND AWAKEN IT 

#°M<RO, R1,R2, R3, R4> + RESTORE R1-R4 


AND RETURN TO CALLER 
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1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1607 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 


18621 


1822 
1823 
1824 
1825 
1826 
1827 
1828 


1829. 


1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 


p++ 


we Ne Se Ne Ne Se Ye Se Ne Ne Ne Ne Ne Se Ye Ye Te Ye Ye Ye Ye Ye 


10$8: 


208: 


308: 


40$: 


_ MOVZBL PCBSB_PRI(R4),R2 


-SBTTL SCHSCHANGE _CUR_PRIORITY <- Modify priority of running process 


FUNCTIONAL DESCRIPTION: 


SCHSCHANGE_CUR_PRIORITY is used when the priority of a running process 
is to be changed. It modifies PCBSB PRI and other scheduler data 
structures. No other PCB fileds are modified. Preemption may take 


place. 


CALLING SEQUENCE: 


BSB/JSB SCHS$CHANGE | CUR_PRIORITY 


INPUT PARAMETERS : 


RO - new priority 
R1 =- CPU database address 
R4 - PCB address 


OUTPUT PARAMETERS : 


RO-R4 PRESERVED 


ENVIRONMENT : 


The SCHED spinlock must be held on entry. 


UNIVERSAL SYMBOL SCHSCHANGE_CUR_PRIORITY 


PUSHL R2 
Current priority - internal form 


& 
BICL CPUSL CPUID MASK(R1),- ; Get mask for current CPU ID 
W*SCHSAL | cPU | PRIORITY[R2}] ; Clear CPU bit 
BNEQ 10$ s«g- Anyone else at this priority? 
SUBL3 R2,#31,R2 + Get priority in external format 
BBCC . R2,- 3 No one else 
G*SCHS$GL_ACTIVE_PRIORITY, 10$ 
MOVB RO, CPUSB_CUR_PRI(R1) 3; New priority for this CPU 
MOVB RO, PCBSB_PRI (R4) 
BISL CPUSL CPUID MASK(R1) ,- ? Get mask for current CPU ID 
_ W*SCHSAL_CPU_PRIORITY[RO] ; Set CPU bit 


SUBL3 RO, #31,R2 + Get priority in external format 
BBSS R2,- 

G*SCHSGL _ ACTIVE | PRIORITY, 20$ 
FFS #0, $32, G*SCHS$GL | COMQS,R2 ; Get highest priority COM process 


-CMPB RO, R2 


Don’t preempt 
Address for this CPU 
Is process on this CPU 


BLEQ 30$ 
FIND_CPU DATA R2 
CMPL R2,R1 


Se Ne Ne Ye 


BNEQ 40$ No 
SOFTINT #IPL$_RESCHED 

POPL R2 

RSB 


IPINT CPU RESCHED,CPUSL_PHY CPUID(R1) ; Reschedule the correct CPU 
BRB 30$ 
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1852 . 


1853 
1854 
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1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
18680 
1881 


+ 
+ 


™e Te Ye Te Ye Ye Ye Te Te Yeo Se We 


1882 © 


1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 


108: 
208: 


1891 . 


1892 
1893 
1894 
1895 
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-SBTTL 


SCHS$CUR_TO_COM - Make the current process COM 


FUNCTIONAL DESCRIPTION: 


SCHSCUR_TO_COM is used to make the current process COM. It must be 
from the context of the affected process. 


CALLING SEQUENCE: 


BSB/JSB SCH$CUR_TO_ COM 


INPUT PARAMETERS : 


R4 - PCB address 
PC/PSL on stack for a SVPCTX 


RO destroyed 


ENVIRONMENT : 


The SCHED spinlock must be held on entry. 


UNIVERSAL_SYMBOL SCHS$CUR_TO_COM 


MOVL 
SVPCTX 
PUSHL 
MOVO 


(SP) +,R0 # return address 
RO # get return address on correct stack 
R2,-(SP) 


FIND_CPU_DATA R3 


MOVZBL 
BICL 


BNEQ 
SUBL3 
BBCC 


BBSS 
MOVW 


MOVAQ 
INSQUE 
CLRL 
MOVQ 
RSB 


- END 


PCBSB |) PRI (R4), RO 
CPUSL_| CPUID MASK (R3),- 
W*SCHSAL | CPU_PRIORITY [RO 


=e 


pick up process’ current priority 
get mask for current CPU ID 
7 Clear the CPU bit for this priority 


we a, 


10$ anyone else at this priority? 
RO, #31, R2 ? get priority in external format 
R2,- 


no one else at this priority 

10$ 

set summary bit 

set state to computable resident. 


G*SCHS$GL_ACTIVE_PRIORITY 
RO, G*SCHSGL_COMQS, 20$ 
#SCHS$C_COM, - 

PCBSW_ STATE (R4) 
G*SCHSAQ_COMT(RO], R3 
(R4) ,@(R3)+ 
G*SCH$GL_IDLE_CPUS 
(SP) +, R2 


se Ne = fC 


pick up address of tail of scheduling queu 
and insert PCB 
Tell everyone else 


=e Ye Ne 


3 SCHED.LIS 
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eTITLE SCHED RESCHEDULING INTERRUPT HANDLER 


eIDENT ‘'X-2006’ 
PRRRRERERRREREREERERERRREEEREREEKREREKEREEREERRERERRERERERREEERERERERRERRERE ERE 


1 

2 

3 

@ 3% * 
5 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
6 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS . * 
7 3* ALL RIGHTS RESERVED. * 
8 3:* * 
9 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
10 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
11 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
12 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
13 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
14 ;* TRANSFERRED. * 
15 ;* * 
16 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
17 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
18 ;* CORPORATION. * 
19 3% ® 
20 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
21 3;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
22 3% & 
23 a * 
24 FERRARA EKEKKRREREKREKEEREKRREERREREERKKERERREKKEKREREKERKEKERKKERHEEKEKRERRKERERNREE 
25 3 

26 ; MODIFIED BY: 

27 3 

28 ; X-2006 WMCOO0U6 Wayne Cardoza 12-Apr-1988 

29 ; Fix typo in REMOVE AFFINITY. 

30 3 

31 ; X-2005 EMB0360 Ellen M. Batbouta 01-Nov-1988 

32 ; While attempting to acquire the SCHED spinlock in SCHSIDLE 
33 ; set a flag in the per-CPU database to indicate this. The 

34 ; purpose of the flag is to help with clock tick accounting. 

35 ; 

36 ; X-2004 WMCOO0U4 Wayne Cardoza 13-Oct-1988 

37 3; Add CPU-specific idle loop support. 

38 ; 

39 ; X-2003 WMCO0U3 Wayne Cardoza 28-Sep-1988 

40 ; Finalize preemption masks. 

41; 

42; X-2002 WMCO0U2 Wayne Cardoza 19-Sep-1988 

43 ; Add support for callback when breaking affinity. 

44; 
45 ; X=-20 wmco020 Wayne Cardoza 12-Sep-1988 

46 ; Add implicit affinity support. 

47 3: 

48 ; X-19 WwMc0019 Wayne Cardoza 02-Sep-1988 

49 ; Fix a truncation error. 

50 ; 

Sl ; X-18 WwMcO0018 Wayne Cardoza 17-Aug-1988 

52 ; Continue the affinity work. 

53 3 Add current affinity calculation. 

54 ; 

55 3 X-17 WMC0017 Wayne Cardoza 12-Aug-1988 

56 ; Add routines for capability management. 

57 ; 
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Ne Ne Se Ne Ne Se Se Se Ne Se Ne Se Ne Se Se Se Se Se Se Se Ne Se Se Se Ne Se Se Ne Ne Se Ne Se Sa Se Ne Me Se Se Ne Se Se Se te Se Ne te Se Ne Se Ne Ne Se Ne Se Se Me Me 


X-16 


X-15 


X-14 


X-13 


X-12 


X-11 


X-10 


X-7,6 


X-2H2 


X-1F2 


X-1A6 


waco016 _ Wayne Cardoza . 30-Jun-1988 
Add data cells for capability enhancements. 

Keep track of all current priorities. 

Use sequence number to get out of idle loop. 


MSHO326 Michael S. Harvey 20-Oct-1967 
Eliminate extraneous MFPPR on high-frequency code path, 
in the FIND_CPU_DATA macro. 


SSA0004 == #£Stan Amway 21-Sep-1987 
Check for lost cluster quorum. 


SSA0003 Stan Amway 86-Sep-1987 
Maintain idle CPU mask for SMP scheduling support. 


RNG5012 Rod Gamache 3~-Mar~-1987 
Make SCB dispatch directly to SCHSRECHED in this module. 


RNG5011 Rod Gamache 27-Feb-1987 
Remove MPHSxxx ASMP multiprocessing hooks. 


SF04001 Stephen Fiorelli 05-Feb~1987 
SCHS$GL_NULLPCB changed to SCHS$AR_NULLPCB. 


SSA0002 Stan Amway 21-Jan-1987 
Comment out test and bugcheck for real-time process 
current priority not equal to base priority. Examination 
of scheduling related code and testing indicates that 
the check is not required. 


WCTO015 Ward C. Travis | 6-Jan-1987 
Update outdated SMPLOCK, SMPUNLOCK uses to LOCK, 
UNLOCK for SMP. 


SUF Stu Farnham 8-Dec-1986 

Skip processes prevented from running on this CPU 

by affinity. Scan instead for the next eligible process. 
Change reference to g*SCH$GL_CTLFLAGS to W“SCH$$GL_CTLFLAGS. 


RNGOOO0S5 Rod Gamache 28-Oct-1986 
Change IPLS$ SCHED to IPL$_RESCHED. 


SSAOO001 Stan Amway 26-Sep-1986 
Add check for process priority decrement, and bugcheck 
for real-time process current priority not equal to 
base priority. The latter check will be removed for 
the SDC release of V5.0. 


SUF Stu Farnham 3-June-1986 
Resolve merge conflicts 


MSH0242 Michael S. Harvey 8-May-1986 
Replace logical CPU ID with physical CPU ID. 


RNG4006 Rod Gamache 5-Feb-1986 
Save logical CPU index in PCB. 
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X-1A5 


X-1A4 


X-1A3 


X-1A2 


V03-006 


V03-005 


V03-004 


V03-003 


V03-002 


Vv03-001 


RNG4005 Rod Gamache 21-Jan-1986 


Don’t run NULL process, instead run idle loop on interrupt 
stack at IPL 3. 


SJUF Stu Farnham 27-Dec-1985 
Change refs to CPUSB PRI to CPU$B_CUR_PRI 


SUF Stu Farnham 27-Dec-1985 
Add per-cpu structure refs 


RNG4002 Rod Gamache 25-Jul-1985 


Change SETIPLs to SMPLOCKS/SMPUNLOCKS and change REI to 
an REIMAC macro. 


KPLOOO1 Peter Lieberwirth 15-Jan~1984 
Fix some broken work displacements, in fact, fix them all. 


TMKOO01 Todd M. Katz 20-Dec-1983 
Fix some broken word displacements. 


WMCO0004 Wayne Cardoza 10-Jan-1982 
Fix some broken word displacements. 


JWHO143 ' Jeffrey W. Horn 30-Nov-1982 
Back-out JWHO136, code that broke references is now in 
another PSECT. 


JWHO136 Jeffrey W. Horn 24-Nov-1982 
Fix broken references. 


KDM0083 Kathleen D. Morse 31-Mar-1982 
Add multi-processing hooks for replacement scheduling routines. 
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150 ; INCLUDE FILES: 


151 

152 S$CPBDEF 3; CPU capability number definitions 
153 SCPUDEF ;PER-CPU DATA BLOCK OFFSETS 

154 $DYNDEF ;STRUCTURE TYPE CODE DEFINITIONS 
155 SIPLDEF ; INTERRUPT PRIORITY LEVEL DEFINITIONS 
156 $SPCBDEF 7PCB DEFINITIONS 

157 SPHDDEF 7;PHD DEFINITIONS 

158 SPRDEF ;PROCESSOR REGISTER DEFINITIONS 

159 SRSNDEF 7 Resource number definitions 

160 SSSDEF STATUS CODES 

161 SSTATEDEF ?;STATE DEFINITIONS 

162 SWOHDEF ;WAIT QUEUES 
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164 _ .SBTTL Scheduler Data 

165 

166 | DECLARE PSECT EXECSNONPAGED_DATA 3 NONPAGED EXEC 

167 

168 ; . 

169 ; Array of priorities preemptable by each priority. 

170 ; Mask assume comparison against external priorities, but is indexed by 
171 ; internal priority. 

172 3 

173 SCHSAL_PREEMPT_ MASK: : 

174 eLONG  %*8B01111111111111111111111111111111 

175 eLONG %B00111111111111111111111111111111 

176 -LONG %*B00011111111111111111111111111111 


177 eLONG  %B00001111111111111111111111111111 
178 -LONG %“B00000111111111111111111111111111 
179 — -LONG %B00000011111111111111111111111111 
180 -LONG %“BO0000001111111111111111111111111 
181 LONG %*B00000000111111111111111111111111 
182 -LONG %*B00000000011111111111111111111111 
183 -LONG %“B00000000001111111111111111111111 
184 LONG %“B00000000000111111111111111111111 
185 -LONG %B00000000000011111111111111111111 
186 -LONG %B00000000000001111111111111111111 
187 -LONG %*B00000000000000111111111111111111 
188 -LONG %“B00000000000000011111111111111111 
189 -LONG %“B00000000000000001111111111111111 
190 -LONG %“B00000000000000000001111111111111 
191 -LONG %“B00000000000000000000111111111111 
192 -LONG %*B00000000000000000000011111111111 
193 -LONG %“B00000000000000000000001111111111 
194 -LONG $%*B00000000000000000000000111111111 
195 -LONG %*B00000000000000000000000011111111 
196 -LONG $%*B00000000000000000000000001111111 
197 -LONG %*B00000000000000000000000000111111 
198 -LONG %B00000000000000000000000000011111 
199° -LONG %“B00000000000000000000000000001111 
200 -LONG %“B00000000000000000000000000000111 
201 -LONG %*B00000000000000000000000000000011 
202 -LONG %“B00000000000000000000000000000001 
203 -LONG %“B00000000000000000000000000000000 
204 ~LONG %“B00000000000000000000000000000000 
205 -LONG “B00000000000000000000000000000000 
206 ; 

207 ; Array of masks indicating which CPU is at each priority. 
208 ; Indexed by priority. Bits are CPU IDs. 

209 ; 

210 SCHSAL_CPU_PRIORITY:: 

211 -BLKL 32 

212 ; 

213 ; Array of capabilities held by each CPU. Duplicates CPU database. 
214 ; Indexed by CPU ID. 

215 ; 

216 SCHSAL_CPU_CAP:: 

217 -BLKL 32 

218 ; 

219 ; Sequence number for changes to CPU capabilities. 
220 ; 
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221 SCHS$GL_CAPABILITY_SEQUENCE: : 
222 LONG 1 
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-SBTTL Initializatien Routine 


224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 


SCHED INIT 


ee Ye te Ye Ye Te 


DECLARE_PSECT EXECSINIT_CODE 


INITIALIZATION _ROUTINE ~ 


SCHED_INIT 
SCHED_INIT: 
MOVL § G*EXESGL_SCB, RO 
MOVAB SCHS$RESCHED, *X8C (RO) 
FIND CPU_DATA RO 
MOVL §§ CPU$L_PHY_CPUID(RO),R1 
MOVL § CPUS$L_CAPABILITY (RO) , - 
SCHS$AL_CPU_CAP{R1] 
MOVL § #SS$_NORMAL, RO 
RSB 


DECLARE _PSECT EXECSNONPAGED_CODE 


&e Se 


=e Ve Ne 


=e 


Initialize the SCB with the RESCHED handler address. 


SCB address 
Fill in RESCHED vector 


Get our CPU database 


CPU ID (primary) 
Primary CPU capabilities 


NONPAGED EXEC 
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251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 


-SBTTL SCHSRESCHED RESCHEDULING INTERRUPT HANDLER 
e++ 
? SCHS$RESCHED - RESCHEDULING INTERRUPT HANDLER 
7 THIS ROUTINE IS ENTERED VIA THE IPL 3 RESCHEDULING INTERRUPT. 
+ THE VECTOR FOR THIS INTERRUPT IS CODED TO CAUSE EXECUTION 
3 ON THE KERNEL STACK. 
o 
7 ENVIRONMENT: 
; IPL=3 MODE=KERNEL IS=0 
? INPUT: 
; 00(SP)=PC AT RESCHEDULE INTERRUPT 
; 04(SP)=PSL AT INTERRUPT. 
-ENABL LSB 
ASSUME PCBSV_QUANTUM_RESCHED EQ 0 
7158: BLBS PCBSL__ _ STS2(R1), 16$ ? BR if not pre-emption reschedule 
; INSQUE (R1),-4(R2) INSERT AT HEAD OF QUEUE 
7151S: BRW 30$ 
e x 
716$: INSQUE (R1),@(R2)+ 7; INSERT AT TAIL OF QUEUE 
; BBSC #PCBSV_QUANTUM_RESCHED, - 
; PCBSL_STS2(R1),151$ 
; BRW SCHSIDLE 
-ALIGN LONG 
UNIVERSAL SYMBOL SCHSRESCHED 
7 SCHSRESCHED: : 7RESCHEDULE INTERRUPT HANDLER 
LOCK LOCKNAME=SCHED, - 7LOCK SCHED DATABASE 
LOCKIPL=#IPL$ SYNCH 7RAISE TO SYNCH IPL 
SVPCTX 7SAVE CONTEXT OF PROCESS 
FIND_CPU_ DATA R3, ISTACK=YES #GET THIS CPU’S PER-CPU DATABASE 
7 (WE CAN ASSUME WE’ RE ON I~STACK) 
MOVL CPUSL_CURPCB (R3),R1 7GET ADDRESS OF CURRENT PCB 
MOVZBL CPUSB | CUR_PRI (R3) , RO ;CURRENT PRIORITY 
BICL CPUSL CPUID | MASK(R3),~- ;GET MASK FOR CURRENT CPU ID 
W*SCHSAL CPU | PRIORITY[RO] ;CLEAR CPU BIT 
BNEQ 5$ #ANYONE ELSE AT THIS PRIORITY? 
SUBL3 RO, #31,R2 7GET PRIORITY IN EXTERNAL FORMAT 
BBCC R2,- 7NO ONE ELSE 
G*SCHS$GL_ACTIVE_PRIORITY, 5$ 
5$: BBSS RO, G*SCHSGL | COMOS, 10$ 7MARK QUEUE NON~-EMPTY 
108: MOVW #SCHSC |_ COM, PCBSW_ STATE(R1) ;SET STATE TO RES COMPUTE 
MOVAQ G*“SCHSAQ ) COMT [RO], R2 ; R2 = address of queue header back link 
; BBS S*#SCHS$V_PREEMPT RESUME, -; BR if pre-emptive resume 
; W“SCHS$GL_CTLFLAGS,15$ ; scheduling enabled 
INSQUE (R1),@(R2)+ 7 INSERT AT TAIL OF QUEUE 
CLRL G*SCHSGL_IDLE_CPUS ;TELL EVERYONE ELSE 
BRW 30$ 7SKIP ACQUIRING SPINLOCK AGAIN 
SCHSIDLE: :NO ACTIVE, EXECUTABLE PROCESS 
BISL2 CPUSL_CPUID_MASK(R3),~ ; Show this CPU as idle 
G*SCHS$GL_IDLE_CPUS 
MOVL G*SCHSAR _ NULLPCB, CPUSL_ CURPCB(R3) ;NOTE NULL PCB AS DEFAULT 
MNEGB #1, CPUSB | CUR_PRI (R3) :SET PRIORITY TO ~1 TO SIGNAL IDLE 
UNLOCK LOCKNAME=SCHED, - 7UNLOCK SCHED DATABASE 
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308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 


NEWIPL=#IPL$_RESCHED #DROP IPL TO RESCHEDULING LEVEL 
MOVL CPUSL_PHY_CPUID(R3),R1 ;GET OUR CPU ID 
608: JSB G“*EXESPROC_IDLE 7SEE IF WE HAVE CPU SPECIFIC IDLE LOOP 
BLBS RO, 61$ . #NO - GO TO STANDARD LOOP 
BBS R1, G*SCH$GL_IDLE_CPUS,60$ ;LOOP UNTIL WE AREN’T IDLE 
BRB 65$ 
618: BBS R1, G*SCH$GL_IDLE_CPUS,61$ ;LOOP UNTIL WE AREN’T IDLE 
65$: BISB #CPUSM_SCHED, CPUSB_FLAGS(R3) ;INDICATE IDLE VYING FOR SCHED 
LOCK LOCKNAME=SCHED, ~- 7LOCK SCHED DATABASE 
LOCKIPL=#IPL$_SYNCH #RAISE TO SYNCH IPL 
BICB #CPUSM_SCHED, CPUSB_FLAGS(R3) ;INDICATE NO LONGER VYING FOR SCHED 
BRW 30$ 7GO TRY FOR PROCESS 
19$: BRB SCHSIDLE 
QEMPTY: BUG CHECK QUEUEMPTY, FATAL # SCHEDULING QUEUE EMPTY 
7+ 
3 SCHSSCHED - SCHEDULE NEW PROCESS FOR EXECUTION 
o 
+ THIS ROUTINE SELECTS THE HIGHEST PRIORITY EXECUTABLE PROCESS 
7 AND PLACES IT IN EXECUTION. 
eo 
?- 
-ALIGN LONG ° 
UNIVERSAL_SYMBOL SCH$ SCHED 
?SCHSSCHED:: | 7 SCHEDULE FOR EXECUTION 
FIND_CPU_ DATA R3,ISTACK=YES ;GET BASE OF PER-CPU DATA 
7 (WE CAN ASSUME I-STACK HERE) 
LOCK LOCKNAME=SCHED, - 7LOCK SCHED DATABASE 
LOCKIPL=#IPL$_ SYNCH 7RAISE TO SYNCH IPL 
MOVZBL CPUSB_CUR_PRI(R3),R0O 7GET PREVIOUS CPU PRIORITY 
BICL CPUSL_CPUID_MASK(R3),- ;GET MASK FOR CURRENT CPU ID 
W“SCHSAL_CPU_PRIORITY[(RO] ;CLEAR CPU BIT 
BNEQ 30$ #ANYONE ELSE AT THIS PRIORITY? 
SUBL3 Rk0, #31,R2 7GET PRIORITY IN EXTERNAL FORMAT 
BBCC R2,- 7NO ONE ELSE 
G*SCHS$GL_ACTIVE_PRIORITY ,30$ 
308: CLRL R7 7 CLEAR IMPLICIT AFFINITY STATE 
FFS #0, #32, G°SCH$GL_COMQS,RO ;FIND FIRST FULL STATE 
BEQL 19$ 7NO EXECUTABLE PROCESS? 
35$: MOVAQ G“SCHS$AQ_COMH[RO],R2 ;COMPUTE QUEUE HEAD ADDRESS 
REMQUE @(R2)+,R4 7GET HEAD OF QUEUE 
38$: BVS QEMPTY 7BR IF QUEUE WAS EMPTY (BUG CHECK) 
BNEQ 40$ 7QUEUE NOT EMPTY 
BBCC RO, G*SCH$GL_COMQS, 40$ 7SET QUEUE EMPTY 
408: ; 
CMPB #DYNSC_PCB, PCBSB_TYPE(R4) ;MUST BE A PROCESS CONTROL BLOCK 
BNEQ QEMPTY 7 OTHERWISE FATAL ERROR 
BICL3 CPUS$L_CAPABILITY(R3),- ;DO THE CPU AND PROCESS MATCH 
PCBSL_CAPABILITY(R4),R1 
BNEQ 200$ 7NO 
458: MOVL R4, CPU$L_CURPCB (R3) 7NOTE CURRENT PCB LOC 
MOVW #SCHSC_CUR, PCBSW_STATE(R4) ;SET STATE TO CURRENT 
MOVL CPUSL_PHY_CPUID(R3),PCBSL_CPU_ID(R4) ; SAVE CPU ID IN PCB 
7 The following assumes that 
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365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 


Se Ve 


50S: 


518: 


BLBS 
CMPB 


BGEQ 
INCB 
MOVB 
MOVB 
MOVL 
BICL2 
BISL 
SUBL3 
BBSS 
MTPR 
LDPCTX 
UNLOCK 
REIMAC 


BADRTPRI : 


SCH$V_NO RESCHED PRIADJ = 0. 
(SYSPARAM documents this assumption.) 
BR if priority adjustment being 


W“SCHS$GL_CTLFLAGS, 50$ 
done at quantum end (or elsewhere) 


~e Ne Ye Ne 


RO, PCBSB_PRIB(R4) 7CHECK FOR BASE PRIORITY=CURRENT 
? = SHOULD NEVER BE GTR 

50$ 7YES, DONT FLOAT PRIORITY 

RO #MOVE TOWARD BASE PRIO 

RO, PCBSB_PRI (R4) # Reflect priority change in PCB 


RO, CPUSB | CUR_PRI(R3) 7;SET GLOBAL PRIORITY 

CPUSL _| CPUID MASK (R3), R2 ;GET CPU MASK 

R2, G*SCHSGL _ IDLE_CPUS ? Show this CPU as not idle 

R2, WSCHSAL_CPU_PRIORITY [RO] 3;SET CPU BIT 

RO, #31, R2 7GET PRIORITY IN EXTERNAL FORMAT 

R2, G*SCHSGL_; ACTIVE | PRIORITY, 51$ ;PRIORITY NOW ACTIVE 

PCBSL _ PHYPCB (R4), #PRS_| PCBB 7;SET PCB BASE PHYS ADDR 
RESTORE CONTEXT 

LOCKNAME=SCHED ;UNLOCK SCHED DATABASE/NO IPL CHANGE 
NORMAL RETURN 


BUG CHECK BADRTPRI, FATAL 


Make assorted checks to determine the type of capabilty mismatch 


2008: 


me Me Ye 


2058: 


2108: 


2208: 


3008: 


3108: 


e 
a 


BICL 
BNEQ 


CMPL 


BNEQ 
ADDB3 


BRB 


DECB 
BNEQ 
BRW 

TSTL 
BNEQ 


‘MOVL 


BRB 
CMPL 


BEQL 
BSBW 
BBS 


TSTL 
BNEQ 
BRB 


#CPBSM_IMPLICIT AFFINITY, R1 
300$ 7 Its more than implicit affinity 


Deal with implicit affinity 


PCBSL_AFFINITY (R4) ,- 3; Does it match this CPU 


CPUSL_PHY_CPUID (R3) 
2108 : No 


G“SCHS$GL_AFFINITY SKIP,-; Reinit the skip count 
#1,PCB$B_AFFINITY SKIP (R4) 


45$ #7 Go run it 

PCBSB_AFFINITY_SKIP (R4) ; Update skip count 

220$ 

700$ 7 Go break affinity 

R7 ?; Do we already have a skipped process 
500$ 7 Yes - go skip this one 

R4,R7 ? No - record this PCB 

500$ ? Go skip the process 


W*“SCHSGL_CAPABILITY_SEQUENCE, - ; Do sequence numbers match? 
PCBSL | CAPABILITY _SEQ(R4) 

310$ + Yes - go ahead 
SCHSCALCULATE_AFFINITY 7 Get new CPU mask 

CPUSL_PHY _CPUID (R3) , - 7 Can it run on this CPU 

PCBSL | CURRENT _AFFINITY (R4) , 205$; Checks explicit affinity only 


PCBSL_CURRENT AFFINITY (R4) ; Can it run anywhere 
500$ ; Yes - try again later 
WAIT _FOR_CAP ; Go wait for capability change 
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422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 


e 
a 
e 
a’ 
° 
o 
5 


00S: 


5208: 


Gi te Se Ne Ne 


508: 


555$: 


5608: 


5658: 


5708: 


580S: 


590$S: 


= me eo Xe Ye 


6008: 


INSQUE 
BBSS 
CMPL 
BEQL 
REMQUE 
BRW 


INCL 
SUBL3 
FFS 
BEQL 
TSTL 
BNEQ 
BRW 
MOVZBL 
MOVL 
SUBL3 
BBC 
MOVL 
REMQUE 
BNEQ 
BBCC 
BRB 


TSTL 
BNEQ 
BRW 
MOVZBL 
BRB 


No CPU in the 
process. Put 


AIT _FOR_CAP: 


MOVL 
BBSSI 
MOVL 
MOVL 
INSQUE 
INCW 
MOVW 


MOVL 


SUBL3 
CMPL 
BEQL 
REMQUE 
BRW 


(R4) , @4 (R4) 

RO, G*SCH$GL_COMQS, 520$ 
R4, (R2) 

550$ 

@(R4),R4 

40$ 


RO 

RO, #32,R5 

RO, R5,G*SCH$GL_COMQS, RO 
580$ 

R7 

560$ 

35$ 

PCBSB_PRI(R7) ,R5 


“es 


me Ye Se Yeo Ge 


=e 8s 


me Ye Ye Ne Ye We 


Process removed from queue does not have affinity for this cpu. Replace 
process in queue and find a new candidate if one exists. 


Replace process in queue 
Mark queue non-empty 
End of queue 

Yes... 

Get the next one 

Go try again 


All processes in current queue lack affinity for this CPU. Select next 
queue unless we have implicit affinity process to run. 


Start scan at this position plus 1 
Remaining bits to scan 

Look for next non-empty queue 

No more queues 

Is there implicit affinity candidate 
Yes 

Process next queue 

Get its internal priority 


SCHSAL | PREEMPT eemer Bone RS 7 Get its preemption mask 


RO, #31,R2 

R2,R6,555$ 

R5,RO 

(R7) ,R4 

570$ 

RO, G*SCHSGL_COMQS, 560$ 
700$ 


R7 

590$ 

SCHS IDLE 
PCBSB_PRI (R7) , RO 
565$ 


we Me Ne 


we We 


.e 6% 


se Ne 


se Me 


External priority of next queue 
Continue if process would not preempt 
Get priority in right xegister 
Remove it from queue 

Queue not empty 

Set queue empty 

Go break affinity 


Do we have implicit affinity 
Yes 


Get its internal priority 
Go run it 


active set has the necessary capabilities to run this 
it in a wait state until something happens. 


#RSN$_CPUCAP, R5 


° 
td 


Resource to wait for 


R5,G*SCHSGL_RESMASK, 600$; Indicate someone is on queue 


R5,PCBSL_EFWM(R4) 
(R4) , RS 
(R4) ,G*SCH$GQ_MWAIT 


; 
° 
a 


; 


Reason for wait 
Save address of next PCB 
Put it on wait queue 


G*SCH$GQ_| MWAIT+WOHSW_ | WOCNT ; Count it 


#SCHS$C_MWAIT, - 
PCBSW_STATE (R4) 
G*EXESGL_ABSTIM_TICS, - 
PCBSL_WAITIME (R4) 
$4,R2,R6 

R6, R5 

550$ 

(R5) ,R4 

38$ 


e 
c 


e 
Cd 


=e Te Ne Se Se 


Now in wait state 
Save time wait started 


Get address of queue header 
Was it the last element 

Yes - go try the next queue 
Get the next PCB 

continue 
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479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 


mJ Te Me Ne 


008: 


7108: 


Break implicit affinity for this process 


ADDB3 G*SCHSGL_AFFINITY SKIP,-; Reinit the skip count 
#1,PCBSB_AFFINITY_SKIP(R4) 

MOVL PCBSL_AFFINITY_CALLBACK (R4) ,R1 3 Was callback requested 

BEQL 710$ 3 No 

PUSHL RO 3s Save register 

PUSHL PCBSL_AFFINITY (R4) 3 Current CPU 

PUSHL R4 3 PCB 

CALLS #2,@PCBSL_AFFINITY_CALLBACK (R4) 3; Call it 

POPL RO ? Restore register 

CLRL PCBSL_AFFINITY_CALLBACK(R4) ; Clear callback 

MOVL CPUSL_PHY_CPUID (R3) ,- 3 Init the current CPU 
PCBSL_AFFINITY (R4) 

BRW 45$ 3 Go run it 

-DSABL LSB 


7 


CONFIDENTIAL AND PROPRIETARY 


76 


‘DIGITAL EQUIPMENT CORPORATION 


SCHED RESCHEDULING INTERRUPT HANDLER 10-MAY-1989 16:39:31 VAX MACRO V5.0-8 Page 13 
X-2006 SCHSREQUIRE CAPABILITY - Add capability 12-APR-1989 08:40:38 _$254$DUA55 : [SYS.SRC) SCE 


499 
500 
501 
502 
503 
_ §04 
505 
506 
507 
508 
- $09 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
$21 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 


3++ 


-SBTTL SCHSREQUIRE CAPABILITY ~ Add capability to required list 


+ FUNCTIONAL DESCRIPTION: 


we 


e@ te eo 


arg2 
arg3 
arg4 


arg5 


we Ne Se Me Se Ne Ye Se Te Ne Ne Te Te Te Ye Ye Ye Se Ne Ne Ye Ve Ye Te Ye Te Xe % 


PCB 
MASK 
CPU 
FLAGS 


SCHSREQUIRE CAPABILITY is called to add the Heqnicemast for a set of 
capabilities to a process. 


CALLING SEQUENCE: 
CALLS #5, SCHSREQUIRE CAPABILITY 


INPUT PARAMETERS : 
argl => PCB of the affected process 


Capability mask 
CPU number if explicit affinity was specified in arg2 


flags word 


=> longword to receive previous capability mask (optional) 


ENVIRONMENT : 
The environment must allow the SCHED lock to be obtained. 


FLAGS WORD: 


CPBSM_FLAG CHECK CPU 


Return an error if the required capabilities will not 
allow the process to execute on any CPU. 


CPBSM_FLAG_ PERMANENT 


Affect the process permanent required capabilities. 


= 4 
= 8 
= 12 
= 16 


OLD_MASK= 20 


UNIVERSAL_ENTRY SCHSREQUIRE CAPABILITY, <“*M<R2, R3,R4>> 


LOCK" 


MOVL 
MOVL 
MOVL 
BEQL 
MOVL 
10$: BISL 
BICL 
BBC 


BBCC 


LOCKNAME=SCHED, - 
SAVIPL=- (SP) ,- 
LOCKIPL=#IPL$_SYNCH 
PCB(AP) , R4 
PCBSL_CAPABILITY(R4), R2 
OLD MASK (AP) , RO 


PCB of affected process 
Get old capability mask 
Is old mask requested 


“ee Ye Me Ne we Ne 


10$ No 
R2, (RO) Return it 
MASK (AP) , R2 New capability requirements 


#CPBSM_IMPLICIT AFFINITY,R2 ; Ignore implicit affinity 

#CPBSV_| FLAG | CHECK _CPU,- ; Should we ensure process is runnable? 
FLAGS (AP) , 100$ 

#CPBSV_EXPLICIT AFFINITY,- ; Is explicit affinity requested 

R2, 408 3; in the new combined mask 
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556 
557 
558 
559 
560 
561 
$62 
563 
564 
565 
566 
567 
568 
569 
570 
571 
$72 
573 
$74 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
§90 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 


208: 


Gl dm Se te Se Se Se Ne Xe 


oo 
mp 
ee ee 


60S: 


1008: 


110$: 


1208: 


1258: 


130$: 


1508: 
4008: 
5008: 


Get old affinity * 

Is explicit affinity requested 
by this cali 

New explicit affinity CPU ID 
Can it run here 

Yes 

No 


MOVL PCBSL_AFFINITY (R4) , RO 

BBC #CPBSV | EXPLICIT AFFINITY, - 
MASK (AP) , 20$ 

MOVL CPU (AP) , RO 

BICL3 W*SCHSAL_CPU_CAP [RO] ,R2, RO 

BEQL 100$ 

BRB 60$ 


te Ne ue Ve 


se Se we, 


The following code does not lock the active set. This is OK, since 
we don’t care about new CPUs being added. We just say the process is 
not runnable and that was true microseconds ago. If a CPU is 
subtracted, it could just as easily have happened microseconds in the 
future. 


CLRL RO 3; Start with CPU 0 

SUBL3 RO, #32,R1 3 Number of bits to check 
FFS RO, R1,G*SMPS$GL_ACTIVE_CPUS, RO 3 Get next CPU ID 
BEQL 60$ 3 No more 

BICL3 W*SCHSAL_CPU_CAP(RO],R2,R1 ; Can we run here 
BEQL 100$ ? Yes 

INCL RO 3; Next 

BRB 50$ ‘ ; Try more 

MOVL #SS$_BADPARAM, RO 3; Return error 

BRW ~ 500$ 


ASSUME CPBSV_EXPLICIT_AFFINITY EQ 31 

TSTL MASK (AP) a 7 Check for explicit affinity 
BGEQ 120$ . ; Not requested 

TSTL PCBSL_CAPABILITY (R4) . 

BGEQ 110$ Not currently in effect 

MOVL PCBSL_AFFINITY (R4) , RO ? Old explicit affinity 

MOVL G*SMPS$GL_ CPU_DATA[RO],RO ; Get the CPU database 

DECW CPUSW | HARDAFF (RO) z Account for the old affinity 
MOVL CPU(AP), Ri 7; Get new affinity 

MOVL G*SMP$GL_CPU_DATA[R1],RO ; Get the CPU database 


oT) 


INCW CPUSW | HARDAFF (RO) Account for the new affinity 

MOVL Ri, PCBSL_AFFINITY (R4) Record the new affinity 

BBC #CPBSV_FLAG PERMANENT,- ; Change the permanent capabilities? 
FLAGS (AP) ,120$ 

MOVL R1, PCB$L_PERMANENT_ CPU | AFFINITY (R4); Record the new affinity 

BISL MASK (AP), , PCBSL , CAPABILITY (R4) 3; New mask 

BBC #CPBSV_FLAG PERMANENT, - ; Change the permanent capabilities? 
FLAGS (AP) ,125$ 


-BISL MASK (AP), PCBSL_PERMANENT CAPABILITY (R4) ; New mask 


BSBW SCHSCALCULATE_AFFINITY ; Calculate new CPU mask 
CMPW PCBSW_STATE (R4),#SCH$C_CUR ; Is it currently executing 


BNEQ 4008S 3 No - all done 
MOVL PCBSL_CPU_ID(R4),R0 ; CPU where it is running 
BBS RO, PCBSL_ CURRENT AFFINITY (R4), 400$ ; Can we still run there? 


Get our CPU database 
Is it this CPU 
No ~ do an expensive RESCHED 


FIND CPU DATA R1_ 

CMPL §_ RO, CPUSL_PHY_CPUID(R1) 
BNEQ 150$ 

SOFTINT #IPL$_RESCHED 

BRB 400$ 

IPINT_CPU RESCHED, RO 

MOVL #SS$_NORMAL, RO 

UNLOCK LOCKNAME=SCHED, - 


=e 


7s Ne 


7 
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613 PRESERVE=YES, - 
614 NEWIPL= (SP) +,- 
615 _ CONDITION=RESTORE 
616 RET os 


78 
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618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 


652. 


653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 


we Ne BO Te Be 


-SBTTL SCHSRELEASE_ CAPABILITY ~ Remove capability from required list 
r++ 
FUNCTIONAL ._DESCRIPTION: 
SCHSRELEASE_CAPABILITY is called to remove the requirement for a set of 
capabilities | to from a process. 


=e 


CALLING SEQUENCE: 
CALLS #5, oche RELSASE CAPABILITY 


~e %e 


INPUT PARAMETERS: 
argl => PCB of the affected process 


arg2 = Capability mask 
arg3 = CPU number if explicit affinity was specified in arg2 


arg4 = flags word 


Se Se te Me Ye Ve “se Ve 


argS => longword to receive previous capability mask (optional) 


-e Se 


? FLAGS WORD: 
; CPBSM FLAG PERMANENT 
; Affect the process permanent required capabilities. 
; 
? ENVIRONMENT: 
; The environment must allow the SCHED lock to be obtained. 
f Sie! 
PCB = 4 
MASK = 8 
CPU = 12 
FLAGS = 16 


OLD_MASK= 20 
UNIVERSAL_ENTRY SCH$RELEASE_ CAPABILITY, <“M<R4>> 
LOCK § LOCKNAME=SCHED, - 


SAVIPL=- (SP), - 
LOCKIPL=#IPL$_SYNCH 


MOVL PCB (AP) ,R4 7 PCB of affected process 
MOVL OLD_MASK (AP) , RO : Is old mask requested 
BEQL 10$ 7 No 

MOVL PCBSL_CAPABILITY (R4), (RO) Return it 


20 ~, 


10$: MOVL  $MASK(AP),R1 
BBC #CPBSV_EXPLICIT_AFFINITY, - 
R1, 1008 
MOVL § CPU(AP),RO 
CMPL § RO, PCB$L_AFFINITY (R4) 
BNEQ  50$ 
CLRL § PCBSL_AFFINITY (R4) 
MOVL § G*SMPSGL_CPU_DATA[RO], RO 
DECW § CPUSW_HARDAFF (RO) 


New capability requirements 

Is explicit affinity released 
by this call 

Get the CPU number 

Does explicit affinity match 

No 

Clear it 

Get the CPU data address 
Account for the loss of affinity 


me we Me Te Ne Ne Ye we 
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675 


676 50$: 


677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 


1008: 


1308: 
1408: 
1508: 


BRB 
BICL 
BICL 
BBC 


MOVL 
BBC 


MOVL 
CMPL 
BNEQ 
CLRL 
BRB 
BICL 
BICL 
BSBW 
MOVL 
UNLOCK 


100$ 
#CPBSM_EXPLICIT_ AFFINITY, Rl 3 Clear the bit 
R1, PCBSL_CAPABILITY (R4) : Record the new mask 


#CPBSV_FLAG_PERMANENT, - 3 Are the permanent ones affected? 
FLAGS (AP) , 150$ 


MASK (AP) , R1 3 New copy of capability requirements 
#CPBSV_EXPLICIT_AFFINITY,- ; Is explicit affinity released 
R1,140$ 3 by this call 
CPU (AP) , RO : Get the CPU number 

_ RO, PCBSL_PERMANENT_CPU_AFFINITY(R4) ; Does it match 
130$ : 3? No 
PCBSL_PERMANENT_CPU_ AFFINITY (R4) ¢ Clear it 
140$ 
#CPB$M_EXPLICIT AFFINITY, R1 3; Clear the bit 
R1,PCBSL_PERMANENT_CAPABILITY (R4) ? Record the new mask 
SCHSCALCULATE_AFFINITY 3 Calculate new set of CPUs 
#SS$_NORMAL, RO 
LOCKNAME=SCHED, ~ 
PRESERVE=YES, - 
NEWIPL= (SP) +, - 
CONDITION={RESTORE 
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699 

100 3++ 
701 
102 
7103 
7104 
705 
7106 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
124 
725 
726 
727 
7128 
129 
730 
731 
732 
733 
134 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 18: 
748 

7149 

750 

751 

752 

753 

7154 

755 5$: 


me Ne Ye Ve Ve Be Ve Ve Ne Se Yeo Ye Ye 


se Se Re Ne Ye Be Be Ve Ve Ve 


me Se Ye te Se Ye 


-SBTTL SCHSADD_CPU_CAP, SCHSREMOVE_CPU_CAP - add or remove CPU capability 


FUNCTIONAL DESCRIPTION: 


SCHSADD _ CPU_CAP and SCHSREMOVE_| CPU_CAP are called to add or remove a 
capabilities from the list of capabilities for a CPU 


If all CPUs are specified (-1 for CPU number), the default CPU 
capability mask is also affected. 


CALLING SEQUENCE: 


CALLS #3,SCHS$ADD_CPU_CAP 
CALLS #3,SCH$REMOVE_CPU_CAP 


INPUT PARAMETERS : 


argl => CPU NUMBER (-1 indicates all cpus) 

arg2 = Capability mask 

arg3 => longword to receive previous capability mask (optional) 
if all CPUs requested, old default will be returned 

FLAGS WORD: 


Not applicable at this time 


ENVIRONMENT: 


The SCHED lock must be held when the noutsne is called. 


CPU =4 
MASK = 8 
OLD_MASK= 12 


-JENABL LSB 


UNIVERSAL ENTRY SCH$ADD CPU CAP, <*M<R2,R3,R4,R5>> 
CLRL RS 4 Indicate ADD 

BRB 1$ 

UNIVERSAL ENTRY SCH$REMOVE CPU CAP, <“M<R2,R3,R4,R5>> 


MOVL #1,R5 — 3 Indicate REMOVE 


LOCK MUTEX=SMPS$GL_CPU_MUTEX,- ; Lock active set 
PRESERVE=NO, - 
SHARE=YES 
INCL W*SCHSGL | CAPABILITY _SEQUENCE ; Something will change 
MOVL CPU (AP), R4 , 7; Get CPU number 
BGEQ 5$ : 
BRW 1008S ; All of them 
BBC R4,G*SMPS$GL_ ACTIVE CPUS,15$ ; Make sure its in active set 


81 
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756 
757 
758 
159 
760 
761 
762 
763 
764 
765 
766 
167 
768 
769 
770 
771 
772 
773 
774 
775 
7176 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
601 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 


10S: 


15$: 


208: 


308: 
40S: 


508: 


fd Ne Me Ye 


00S: 


1108: 


1208: 


1308S: 
1408: 


1508: 


MOVL 
MOVL 
BEQL 
MOVL 
TSTL 
BNEQ 
BISL 
BISL 
MOVL 
JSB 

BRB 


BRW 


BICL 
BICL 
BSBW 


MOVL 
UNLOCK 


RET 


BRB 


Request 


BEQL 
MOVL 
TSTL 
BNEQ 
BISL 


JSB 
BRB 


BICL 


CLRL 
SUBL3 
FFS 
BEQL 
MOVL 
TSTL 
BNEQ 
BISL 
BISL 
INCL 
BRB 


BICL 
BICL 
BSBB 
INCL 


G*SMP$GL_CPU_DATA[R4],R3 ; Get CPU data address 
OLD MASK (AP), R1 3; Does caller want old mask 

10$ ? No 

CPUSL_CAPABILITY(R3), (R1) 

R5 7 ADD or REMOVE 

20$ 3 REMOVE 

MASK (AP) , CPUSL_CAPABILITY (R3) 7; ADD it 

MASK (AP) , W*SCHSAL_CPU_CAP [R4] 3 ADD it 

#RSN$_CPUCAP, RO # Tell everyone about new capability 
G“SCHSRAVAIL 

30$ 


200$ 


MASK (AP) , CPUSL_CAPABILITY (R3) 3; REMOVE it 
MASK (AP) , W“SCHSAL_CPU_CAP [R4] 3 REMOVE it 
300$ 3: See if RESCHED needed 


#SS$_NORMAL, RO 
MUTEX=SMPS$GL_CPU_MUTEX, - 3 Unlock active set 
PRESERVEYES, ~ 

SHARE=YES 


30$ 


was made to affect all CPUs in active set plus default 

OLD MASK (AP), R1 3; Does caller want old mask 

110$ 7 No 

G*SCHS$GL_DEFAULT_CPU_CAP, (R1) 

R5 ? ADD or REMOVE 

120$ 7 REMOVE 

MASK (AP) ,G*SCH$GL_DEFAULT_CPU_CAP ; ADD it 

#RSNS$_CPUCAP, RO ? Tell everyone about new capability 
G“SCHSRAVAIL 

130$ 


MASK (AP), G*SCH$GL_DEFAULT_CPU_CAP ; REMOVE it 


R1 3 Starting bit for search 
R1, #32, R3 7 Field length for search 
R1,R3,G*SMP$GL_ACTIVE_CPUS,R1 ; Next active CPU 
50$ 7 Done 
G*SMPS$GL_CPU_DATA(R1],R3 ; Get CPU data address 
R5 7 ADD or REMOVE 

150$ 7 REMOVE 


MASK (AP), CPU$L_CAPABILITY(R3) ; ADD it 
MASK (AP), W“SCHSAL_CPU_CAP[R1] 3 ADD it 
R1 3 Next 
140$ 3 Continue 
MASK (AP) , CPU$L_CAPABILITY (R3) REMOVE it 

MASK (AP), W*SCHSAL_CPU_CAP[R1] ; REMOVE it 

300$ See if RESCHED needed 
Rl Next ; 


e re 


we te 
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813 


814 


815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
928 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 


2008: 


GW) Se Ne Xe 


3108: 
3508: 


BRB 140$ # Continue 
MOVZWL #SS$_BADPARAM, RO ? CPU not in active set 
BRW 40$ 


See if we need to do a RESCHED after removing a capability 


MOVL CPUSL_CURPCB (R3) , R4 ; Current process of affected CPU 
BICL3 CPUSL_CAPABILITY(R3),- ; Can process still run 
PCBSL_CAPABILITY (R4) , RO 
BEQL 350$ 7 Yes 
BICL #<CPBSM_EXPLICIT AFFINITY- 
!CPBSM_IMPLICIT AFFINITY>, RO 
BEQL 350$ Still ok if only CPU affinity 
FIND_CPU_DATA R4 What CPU am I running on? 
CMPL R4,R3 Is it the one I’m affecting 
BNEQ 310$ No 
SOFTINT #IPL$_RESCHED request a cheap RESCHED 
BRB 350$ 


=e Se Ye Me Ne 


IPINT CPU RESCHED, CPUSL_PHY CPUID(R3) ; Expensive RESCHED 
RSB 


-DSABL LSB 
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640 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 


Me Te Te Ye Ye Te Ne Ne Ye Te Yo Ne Te Ne Ne Ye Ve Ye VO 
+ 


-SBTTL SCHSCALCULATE_AFFINITY - Calculate current affinity for process 


FUNCTIONAL DESCRIPTION: 


SCHSCALCULATE AFFINITY calculates a current affinity mask for the 
process based on its required capabilities. The capability sequence 
mask in the PCB is also updated so a stale mask can be detected. 


Implicit affinity is ignored in this calculation. 


CALLING SEQUENCE: 


JSB SCH$CALCULATE_AFFINITY 


INPUT PARAMETERS : 


R4 -> PCB OF AFFECTED PROCESS 


ENVIRONMENT : 


The SCHED lock must be held when the routine is called. 


SCHSCALCULATE_AFFINITY: : 


™e Ye Se Ye Se Ye Ye 


108: 


208: 


50S: 


2008: 


MOVO RO, ~(SP) 

MOVO R2, -(SP) 

CLRL PCBSL_CURRENT_AFFINITY(R4) ; Initialize the CPU affinity 

MOVL W*“SCH$GL_CAPABILITY_SEQUENCE,-; Save the current capability 
PCBSL_CAPABILITY_SEQ(R4) 7 sequence number 

MOVL PCBSL_CAPABILITY (R4) , RO 

ASSUME CPBSV_EXPLICIT AFFINITY EQ 31 

BLSS 200$ 7 Explicit affinity is set 

BICL #CPBSM_IMPLICIT_AFFINITY,RO ; Ignore implicit affinity 


The following code does not lock the active set. This is permissable 
because the capability sequence number can only be updated under the 
acheduler lock. The same is true for the declaration of the 
capability resource. Thus, even if the active set changes, our 
incorrect decisions will rapidly be reevaluated. 


MOVL G*SMP$GL_ACTIVE_CPUS,R1 Get copy of active set 


CLRL R2 3 Start at bit 0 

SUBL3 R2, #32,R3 7 Bits to check 

FFS R2,R3,R1,R2 ? Find an active CPU 

BEQL 5085 7 Done 

BICL3 W*SCHSAL_CPU_CAP[R2],- ; Can we run here 
RO, R3 

BNEQ 20$ 7 No 

BBSS R2,PCBSL_CURRENT_AFFINITY (R4) ,20$ 3; Set the CPU bit 

INCL R2 3; Next one 

BRB 10$ 3 Continue 

MOVQ (SP)+,R2 

MOVQ (SP) +,R0 

RSB 


.BBCS PCBSL_AFFINITY(R4),- 3 It can only run on one CPU 


PCB$L_CURRENT AFFINITY (R4) , 50$ 
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899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 


-SBTTL SCHSACQUIRE AFFINITY - Acquire implicit affinity 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


SCHSACQUIRE_AFFINITY is called to acquire implicit affinity for a 
specific CPU. 


we Ve Me Ye Ne 


CALLING SEQUENCE: 
CALLS #3,SCHSACQUIRE AFFINITY 


INPUT PARAMETERS : 
argl => PCB of the affected process 


arg2 = Routine to be called on breaking affinity 


arg3 = CPU number 


ENVIRONMENT: 
The SCHED lock must be held. 


CALLBACK (CALLS interface) 
argl => PCB of the affected process 


™e Ye Ve Ye Ye Se Ye Ye Ye Ve Ye Ye Ye Ve Veo Te Ve Ve Ve Ve No Ne Vo 


arg2 = CPU number 
PCB = 4 
CALLBACK= 8 

CPU = 12 


UNIVERSAL_ENTRY SCHSACQUIRE AFFINITY, <“M<R4>> 


MOVL PCB(AP) ,R4 

TSTL PCBSL_AFFINITY_CALLBACK (R4) 

BNEQ 500$ 

ASSUME CPBSV_EXPLICIT AFFINITY EQ 31 

TSTL PCBSL_CAPABILITY (R4) 

BGEQ 208 

CMPL CPU (AP) , PCBSL_AFFINITY (R4) 

BNEQ 500$ 

20$: MOVL CALLBACK (AP), - 

PCBSL_AFFINITY_CALLBACK (R4) 

BISL #CPBSM_ IMPLICIT AFFINITY, - 
PCBSL _ CAPABILITY (R4) 

MOVL CPU (AP) , PCBSL _ AFFINITY (R4) 

MOVB G*SCHSGL __ AFFINITY _SKIP, - 
PCBSB | AFFINITY _SKIP (R4) 

CMPW PCBSW_ STATE (R4) , #SCHSC_CUR 

BNEQ 100$ 

MOVL PCBSL_CPU_ID(R4), RO 

CMPL RO, CPU(AP). 

BEQL 100$ 

FIND CPU DATA R1 


Get PCB address 
Is there already one? 
Yes 


we Ne Xe 


Is there explicit affinity? 
No 

Do they match 

No - error 

Record callback 


™e Ye Yo Vo Xe 


Request implicit affinity 


we 


Record the CPU 
Set skip count 


me Xe 


Is it executing 

No - done 

Get current CPU 

Is it the right place 
Yes 

Get CPU data 


me Ye Ye Ne Ye Se 
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956 
957 
958 
959 
960 
961 
962 
963 
964 
965 


508: 
1008: 


5008: 


CMPL 
BNEQ 


RO, CPUSL_PHY_CPUID(R1) 
50$ 


SOFTINT #IPL$_RESCHED 


BRB 


100$ 


IPINT CPU RESCHED, RO 


MOVL 
RET 


MOVL 
RET 


#SS$ NORMAL, RO 


#SS$_BADPARAM, RO 


we Ne Ye 


me 


=e 


Ie it us 
No 
Yes - resched 


Resched the current CPU 


Error 
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967 
968 
969 
970 
971 
972 
973 
974 


997 

998 

999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1610 
1011 


-SBTTL SCHSREMOVE AFFINITY - Remove implicit affinity 

++ 

FUNCTIONAL DESCRIPTION: 
SCHSREMOVE_AFFINITY is called to remove implicit affinity for a 
specific CPU. 


CALLING SEQUENCE: 
CALLS #3, SCHSREMOVE_AFFINITY 


INPUT PARAMETERS: 
argl => PCB of the affected process 


arg2 = Callback routine spceified in SCHSACQUIRE_AFFINITY 
arg3 = CPU number 


ENVIRONMENT ; 
The SCHED lock must be held. 


oe Ye Ye Se Ye Ye Se Te Ye Te Ye Te Ye Ze Te Te Ye Ne Ye Se Ye 


PCB = 4 
CALLBACK= 8 
CPU = 12 


UNIVERSAL_ENTRY SCHSREMOVE_AFFINITY, <“M<R4>> 


MOVL PCB (AP) , R4 ? Get PCB address 
CMPL CALLBACK (AP) ,- 7 Do routine addresses match 
PCBSL_AFFINITY_CALLBACK (R4) 


BNEQ 500$ 7 No 

CLRL PCBSL_AFFINITY_CALLBACK (R4) 3 # Cancel the request 

BBC #CPBSV_IMPLICIT AFFINITY, - ? Should we keep implicit aff? 
G*SCH$GL_DEFAULT_PROCESS_CAP,100$ ; Done if so 

BICL #CPBSM_IMPLICIT_ AFFINITY, - 3 Clear it 


PCBSL_CAPABILITY (R4) 
100$: MOVL #SS$_NORMAL, RO 
RET 


500$: MOVL #SS$_BADPARAM, RO 3 Error 
RET 


4 SHELL.LIS 
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2 .IF DF, LIBSWITCH 


~ 
ewora ua w 


- TITLE 
- IFF 


SYSS$USRVECTOR - USER ACCESSIBLE Pl CELLS 


-IF DF PRMSW 


- TITLE 
-IFF 
IF 

- TITLE 
-IFF 

- TITLE 
-ENDC 
-ENDC 


- IDENT 


* 


we Me Te Ye Ve Ve Ve Te Ye Ye Ye To Te Ye Te Ye Se Ye Yo Ye YS Ne Ne 
ee eee HHH eH HH HH HS HH HH DH FH 


+ 
+ 


FACILITY: 


ABSTRACT: 


we Me Ne Ve Ve Ve Te Ne Te Te Ve Ye Yo Te Ve Te Vo Ve No Ve 


OTHER PERSON. 
TRANSFERRED. 


PROCESS DEFINITIONS MASK 


NDF, PROCESS PAGE_DEFINITIONS 
SHELL 


PROCESS_PAGE_DEFINITIONS 


'X-4503' 


COPYRIGHT (c) 1978, 1980, 1982, 1984, 1987 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. | 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER | 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Executive, create process/swapper data base 


Shell defines the swap image for the initial process 
started by the create process system service. 


This module produces four object modules: 


1) The shell used initialize the minimal 
process context, which is part of the 


working set_management image. . 


2) An object module containing global 


definitions of pl vector page cells 


and other miscellanous assembly 


definitions needed by other parts of 
the exec. This module is linked into 
the base image (sys.exe), and produces no 


no storage. 


WHAKEKKEKHARHKEKKKEREKKEKKKEKEREKEERKEKEKERERERHEKKKERKREKEKKEREERRHREREREKEKEEREKEKREKEK 


eee yet * ee * % © HH eH HH HH F 


WHERE EKKKEKKKKHKKEKEREEERRERKKKEERREKREKEKEKERRKKKERRKKERKERKKKKRREREKEKEKERKREKE 
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59 
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79 
80 
81 
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87 
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89 
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91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
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103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 


we Me Me Te Se Se Ne Ve Yo Ve Ve Ve Ve Vo 


Se Se Se Se 


=e Se 


™e te Me Ye Se 


we Ne Ne Me Me te 


me Ve To Se Ve We Ye Yo Ve We Ne 


=e Ve 


wa Ne 


Se Ve Se Te We Ve Ye Ve Ve Ve Ve 


SIDE EFFECTS: 


ENVIRONMENT : 


3) An object module containing global symbol 
definitions which can be used by any program 
which does not link against sys.stb. 


4) An object module containing version mask 
values, which will be linked into sys to 
produce double valued version symbols for 
all global symbols in this module. 


When making changes to this module, make sure 
the first two assemblies produce the same global symbol 
definitions. 


The initialization of the minimal process context for 
a newly created process is executed under the context 
of the swapper. 


AUTHOR: RICHARD I. HUSTVEDT, CREATION DATE: 30-NOV-76 


MODIFIED BY: 


X-4503 


X-4502 


X-4501 


X-45 


X-44 


X-43 


X-42 


LSS0080 Leonard S. Szubowicz 06-Oct-1988 

Add latent support cells for RMS/DDTM, namely: 

PIO$GL_RMO RM ID alias for PIOS$GL_RU_HANDLER_ID, 

PIO$GQ | RUB _ LH alias for PIOSGL_! RUB |_FLINK/BLINK, 

cells PIOSGL | NTO_RM_ ID, PIOSGQ | NTRUB } LH, PIO$GQ RUF_TSB_LH, 
PIOSGL | RESERVEDO through 6. 


WMCOU2 Wayne Cardoza 21-Sep-1988 
Add 2 POSIX cells. 


JEJO0524 James E Johnson 27-Jun-1988 
Add latent support cells for DDTM. Notably: 
CTLS$GQ XCB_QUE, CTL$GQ_RMCB QUE, CTLSGL_CUR_XSCB 


JDC0385 * Jon Callas 23-FEB-1988 
Rearrange a couple pages so they don’t get deleted while 
ASTs can still reference them. 


WMc0044 Wayne Cardoza ~ 29-Dec-1987 
Add version categories. 


SF00043 _ Stephen Fiorelli _ 20-Nov-1987 
Collect version masks into the proper psects. 


SF00042 Stephen Fiorelli 11-Nov-1987 
More changes for version stuff. Shorten the name 
of this module for the version assembly so the 
librarian can deal with it. Don’t assemble version 
values for mmg$ar_nullpfl and swp$gl_shellbas since 
they are vectored values and have already been 
defined in system_data cells. 
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172 
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X-41 


X-40_ 


X-39 


X-386 


X-37 


X=-36 


X=-35 


X-34 


X-33 


X-32 


X=-31 


X-30 


X-29 


X~-28 


8SA0013 Stan Amway 28-Oct-1987 
Charge page file quota for kernel stack expansion 
pages by including them in the symbolic constant 
SWPS$C_SHELLPFIL. Not doing this will (generally) 
cause the delete page logic to erroneously return 
page file quota that was never deducted. 


wéco040 Wayne Cardoza 15-Oct-1987 
Add more version stuff. 


wéco039 Wayne Cardoza 12-Oct-1987 
New assembly for version masks. 


HHO300 Hai Huang 09-Oct-1987 
Add per-process (UW) cells for VVIEF support. 


JLV0001 Jake VanNoy 31-Aug-1987 
Add two new byte definitions used for fast $SETAST 
equivalent. CTL$GB_SOFT_AST_ DISABLE is set to 1 

from user mode code to disable user-mode AST delivery. 
CTL$GB_REENABLE ASTS is read at end of critical 
section of user mode code (when disable is cleared), 
If set, the code should call $SETAST(1) because ASTs 
were actually disabled when an AST was queued to the 
process. (Also add 2 page VWS area) 


SF00036 Stephen Fiorelli 04-Sep-1987 
Final large working set support. 


JWTO0298 Jim Teague 27~Aug~1987 
Define a longword for PROCESS START FLAGS. 


JDCO378 Jon Callas 25-AUG-1987 
Add in a quadword of flags to the Pl data region. 


SSA0012 Stan Amway 24-Aug-1987 
Rework the logic that establishes the working set 
related quotas to track changes in PROCSTRT and 
INITUSER. 


SSA0011 Stan Amway 10-Aug-1987 
Final swap file allocation changes. 
Limit WSQUOTA to 64K pages. 


SF00031 Stephen Fiorelli 77-Aug-1987 
WSFLUID cell in the process header is extended to 
a longword. 


LSS0055 Leonard S. Szubowicz 06-Aug-1987 
Add PIOSGB UNL STALL_CNT cell for use by RMS. 


SUF Stu Farnham 27-Jul-1987 
INVALID becomes INVALIDATE_TB. Make TBIS track SRM 
rev H. 


SF00028 Stephen Fiorelli 17-Jul~19867 
Initial large working set support. 
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X-27 


X-26 


X-25 


X-24 


X-23 


X-22 


X-21 


X-20 


X-19 


X-18 


X-17 


X~-16 


X-15 


Xx-14 


$SA0010 Stan Amway 23-Jun-1987 
Preliminary swap file allocation changes. 


WMC0027 Wayne Cardoza 01-Jul-1987 
Decrease PHDS$L_FREPTECNT by 7 to ensure padded page tables. 


SSA0009 Stan Amway 5-May-1987 
Increase SWP$C_SHLP1PT from 2 to 3 pages. LSS0026 
caused the number of Pl pages to exceed 256. 


SSA0008 Stan Amway 9-Apr-1987 
Change NULL pagefile control block to track changes 
in SPFLDEF. Do it in such a way that such manual 
tracking will not be required in the future. 


SSA0007 Stan Amway 1-Apr-1987 
Account for process page table pages in PPGFLVA. 


RNG5023 Rod Gamache 16-Mar-1987 
Initialize CTL$GL_PCB in SHELL, rather than PROCSTRT. 


SSA0006 Stan Amway 16-Mar-1987 
Adjust PPGFLVA to account for mapped, SHELL pages. 


SSA0005 Stan Amway S-Mar~1987 
Change computation of initial, prereserved pagefile 
pages requirement to correctly reflect process 
header pages. 


SF04003 Stephen Fiorelli 05-Feb-1987 
Move the null pagefile from the base image to this 
module. 


LSS0026 Leonard S. Szubowicz 11-Feb-1987 

Increase the size of the RMS directory cache PIOSA_DIRCACHE 

from 2 to 4 pages and delete the RMS tracepoint page PIOS$A_TRACE 
Add global symbols PIOSA_RMS PIOBASE and PIOSA_RMS PIOEND to 
delimit fixed RMS PIO region. 


SSA0004 Stan Amway 28-Nov-1987 
Slight change in call sequence to MMGSASNPRCPGFLP. 


LMP0439 L. Mark Pilant, 28-JAN~1987 10:01 
Add storage for protected subsystem identifiers. 


SF04002 Stephen Fiorelli 26-Jan-1987 
Minor changes necessary to make the shell pageable. 
SWPSGL_SHELLBAS is vectored, and put the shell into 
a pageable read only psect. Initialization of the 

null pagefile structure occurs in INIT. 


DDP0032 Derrell D. Piper 26-Jan-1987 
Add CTL$GQ_JPICTX, CTL$GL_JPICTXCNT, and CTL$GL_UAICTX 
for use by S$GETJPI, S$GETUAI, and $SETUAI. 


DAS David A. Solomon 25-Jan-1987 
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236 
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268 
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283 
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285 
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X-13 


X-12 


X-11 


X-10 


X-9 
-8 


X-5 


Include 


SDYNDEF 
SFWADEF 
SIAFDEF 
SIMPDEF 
SIPLDEF 


Add CTL$GL_RMS_ RUJLCK_FLINK/BLINK (RMS RU journal lock blocks) . 


SSA0003 Stan Amway 12-Nov-1986 
Support for multiple pagefiles per process. 

Add 2 demand zero pages for kernel, process OWN data. 
Add cell to Pl pointer page to contain address of 
kernel data extension area (future use). 


DAS David A. Solomon 06-Dec-1986 

Remove PIOS$GW_LNKCSHCNT. This was being used as an RMS RUNDOWN 
in progress FLAG FOR THE NETWORK CODE. THE NETWORK CODE NOW 
checks IMP$V_IORUNDOWN. 


DAS David A. Solomon 13-Nov-1986 
Change the RMS RUB structure listhead (PIO$GL_RULOCK) to be 
a queue header (PIOSGL_RUB_FLINK/BLINK) . 


SSA0002 Stan Amway T-Nov-1986 
Add ASSUME to catch PHD too large. 


SSA0001 Stan Amway 16-Oct-1986 
Support for exec mode rundown routines. 


PMvV0009 Peter M. Vatne 22-Sep-1986 
Rename PIOSGL_RU_HAN ID to PIOSGL_RU_HANDLER_ID. 


JEJ0360 James E Johnson 7~Sep-1986 
Fix typo in previous edit. 


JEJ0359 James E Johnson 5-Sep-1986 
Add PIO and CTL cells for RMS Journaling and logical link 
caching. 


SFO04001 Stephen Fiorelli 01-Aug-1986 
Changes required in the movement of the shell into 
the image containing the swapper (working _set_management) . 


1) References to MMDAT cells (local copy of read-only 
memory management cells) changed to reference the 
base image version of these cells. 


2) Previous conditional assemblies torn out and replaced 
by new ones that produce the modules described in 
the abstract. 


3) Elimination of the cell SWPSGL_SHELIO. Cell is 
no longer needed, an assembly time constant will 
be used in its place. 


files 


;DYNAMIC DATA STRUCTURE TYPE DEFINITIONS 
?RMS FILE WORK AREA CONSTANTS 

; IMAGE ACTIVATOR FIXUP VECTOR OFFSETS 
7RMS INTERNAL STRUCTURE DEFINITION 
;DEFINE INTERRUPT LEVELS 
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287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 


S$JIBDEF 
SNSAIDTD 
SPCBDEF 
SPFLDEF 
SPFNDEF 
SPHDDEF 
SPQBDEF 
SPRTDEF 
SPSLDEF 
$PTEDEF 
$SECDEF 
SSGNDEF 
$VADEF 
SWSLDEF 


-IF DF PRMSW 


-ENDC 


we te Ne 


-IF NDF 


-ENDC 


SSYSVERS 


-MACRO 
-IF NDF 


- IFF 


EQUATES: 


PFILPGCN 


PFILPGCNT NDZRO=0 


KSTACK=3 
KSTACK_E 
ESTACK=1 
SSTACK=3 
IMGACTBU 


KRP_COUN 


EF 


IONDEF 


DEFINE CONSTANT 


PRMSW 


7JOB INFORMATION BLOCK DEFINITIONS 

7SECURITY AUDITING IMPURE DATA TABLE OFFSETS 
7PROCESS CONTROL BLOCK DEFINITIONS 

7PAGE FILE DEFINITIONS 

7PFN DATA BASE DEFINITIONS 

7PROCESS HEADER DEFINITIONS 

7PROCESS QUOTA BLOCK DEFINITIONS 

7;DEFINE PROTECTION CODES 

7DEFINE PSL FIELDS 


7PAGE TABLE ENTRY 


DEFINTIONS 


7SECTION DEFINITIONS (GSTE/PSTE) 
7SYSGEN VALUE DEFINITIONS 
7DEFINE VIRTUAL ADDRESS FIELDS 


#;WORKING SET LIST 


SYM == CONSTANT 


SYM == 0 
- IRP 


-- -—SUBVERSION...,<VERSION 


DEFINITIONS 


SYM, CONSTANT, VERSION MASK 


MASK> 


SYM == SYM!<1@SYS$K_’ ...SUBVERSION...> 


- ENDR 


T=0 


X=a4 
6 
2 
F=8 


T=4 


DBGPTCNT=1 


LIBSWITCH 
DEFINE CONSTANT SWP$C_DBGPTCNT, DBGPTCNT, STABLE 
DEFINE_|' ; CONSTANT SWPSC_| KSTACK, KSTACK, MISC 
DEFINE | CONSTANT SWPSC_ KSTACK_EX, KSTACK_EX, MISC 
DEFINE | CONSTANT CTLSC | KRP _ COUNT, KRP_ COUNT, MISC 
DEFINE , CONSTANT CTLSC_| KRP_SIZE,512,MISC ; EACH KRP PACKET IS 512 BYTES LONG 


COMMON=4 


Se Ve Se Te Ve Ne Ve Se Ve Ne Ve 


me Me 


INITIALIZE COUNT OF PAGE FILE PAGE. 
Init count of page file pages 

(not demand zero) 

THREE PAGES OF KERNEL STACK 
KERNEL STACK EXPANSION PAGES 
SIXTEEN PAGES OF EXEC STACK 
THIRTY TWO PAGES OF SUPER STACK 
EIGHT PAGES FOR IMAGE ACTIVATE BUF 
FOUR FOR TOP LEVEL CALL, FOUR FOR 
ONE RECURSIVE CALL. 

SIZE IN PAGES OF P1 LOOKASIDE LIST 


NUMBER OF DEBUG AREA PAGE TABLES 


DON’T ASSEMBLE FOR USRVECTOR MODUL 


FOUR PAGES FOR USER COMMON 
FOUR PAGES FOR DEC COMMON 
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360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 


we Se Ye 


-IF NDF, 
-IF NDF 


 IFF 


-ENDC 
- IFF 


-ENDC 


MACROS : 


-MACRO WSL SYM, TYPE # MAKE VALID WS LIST ENTRY 
-LONG SYM!WSLSM_VALID!WSLSC_’ TYPE 3 SET VALID BIT 
-ENDM WSL 


eMACRO CTL SYM, VERSION MASK 

LIBSWITCH # NO GLOBALS FOR USRVECTOR MODULE 
PRMSW 

CTLS$ ’ SYM== .~CTLVECPAG+VECTORS 


CTL$’ SYM== 1@SYS$K_SHELL 

- IRP . -- SUBVERSION. ..,<VERSION MASK> 

CTL$’ SYM == CTL$’ SYM!<1@SYSSK_’ ...SUBVERSION...> 
-ENDR 


CTLS$’ SYM=. -CTLVECPAG+VECTORS 
-ENDM CTL 


«MACRO PHD SYM 
-=PHD...+PHD$’ SYM 
-ENDM PHD 


eMACRO PFL SYM, VALUE 

-show meb 

=MMGSAR_NULLPFL+PFL$ * SYM 

-IIF IDN, <tEXTRACT (0,1,SYM)>,<B>, .BYTE VALUE 
LIF IDN, <tEXTRACT (0,1,SYM)>,<W>, .WORD VALUE 


TIF IDN, <tEXTRACT (0,1,SYM)>,<L>, .LONG VALUE 


-IF NDF 


- IFF 


-ENDC 


PIOL’ SYM=P IOBASE+<.-PIO> 


enoshow meb 
-ENDM PFL 


eMACRO PIO SYM, VERSION _MASK ; DEFINE PROCESS I/O SEGMENT SYMBOL 
PRMSW 
PIOS’ SYM==P IOBASE+<. -PIO> ; 


PIO$’ SYM== 1@SYS$K_SHELL 

~IRP - - SUBVERSION...,<VERSION_MASK> 

PIO$’ SYM == PIO$’ SYM!<1@SYS$K_’ ...SUBVERSION...> 
-ENDR 


-ENDM PIO 


«MACRO PIOL SYM DEFINE PROCESS I/O LOCAL SYMBOL 


we Ye Ve 


-ENDM PIOL 


eMACRO PIO2 SYM DEFINE PROCESS I/O LOCAL SYMBOL 


we 


PIO2’ SYM=PIOTBLt+<.~-TBL> 


-ENDM PIO2 
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437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 


-MACRO DEFINE SYMBOL SYM, VERSION MASK 
-IF NDF PRMSW 


_ SYM ==. 
.IFF 
SYM == 1@SYS$K_SHELL 
-IRP . . SUBVERSION. ..,<VERSION_MASK> 
SYM == SYM!<1@SYSSK_’ ...SUBVERSION...> 
- ENDR 
-ENDC 
-ENDM 
3 PIPTE - GENERATE PTES FOR CONTROL REGION PAGE TABLE 
eMACRO P1PTE NUM, ACCESS=NA, OWNER=K, STATE, SYM 
IF NB, SYM 
SYM=VA... 
-ENDC 
-REPT NUM 
= 4 rote ee 
IF IDN, <STATE>, <VALID> 
TMP. ..=<1@31> 
-IFF 
TMP...=0 
-ENDC 
IF IDN, <STATE>, <DZRO> 
PF ILPGCNT=PF ILPGCNT+1 
eENDC 
IF IDN, <STATE>, <PFIL> 
TMP...=PTESM_ TYP1 
PF ILPGCNT=PF ILPGCNT+1 
PFILPGCNT_NDZRO=PFILPGCNT_NDZRO+1 
-ENDC 
-LONG PTESC_’ACCESS!PTES$C_’OWNER’OWN!TMP... 
om. 4 
VA...™VA...~=*X200 
-ENDR 
e-ENDM £P1PTE 
-IF NDF, PRMSW 3 Don’t assemble for version masks 
-IF NDF, LIBSWITCH 3 FOR USRVECTOR MODULE 


-IF NDF, PROCESS PAGE DEFINITIONS 
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450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 


462 
463 
464 
465 
466 


467 
468 
469 
470 


471 
472 


—™e Be Ye Be We Vo Vo 


+ 


=e “Se Ve 


-ENDC 
-ENDC 


-SBTTL Null pagefile 


The null pagefile structure serves two purposes. 
First, it serves as a placeholder in the pagefile 
vector. Second it is used to locate the shell 
within the working set_management image, when it 
is necessary to swap the shell in. 


DECLARE_PSECT EXECSNONPAGED_DATA, ALIGNMENT=LONG 


UNIVERSAL_SYMBOL MMGSAR_NULLPFL 
-BYTE 0 (PFLS$C_LENGTH] : Reserve pre-zeroed space for structure 


Initialize non-zero fields of structure 


PFL W_SIZE, PFL$C_LENGTH 3; Structure size 
-™=MMGSAR_NULLPFL+PFLSW_SIZE 

LIF IDN,<W>,<W>, WORD PFLSC_LENGTH 

PFL B_TYPE, DYNSC_PFL ; Structure type 
-IIF IDN,<B>,<B>, .BYTE DYNSC_PFL 

PFL L_MAXVBN, PTESM_PGFLVBN 3 Page file VBN mask 
-™MMGSAR_NULLPFL+PFLSL_MAXVBN 

-IIF IDN,<L>,<L>, .LONG PTESM_PGFLVBN 

-ENDC 
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474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 


-SBTTL SHELL PROCESS HEADER 


IF DF, LIBSWITCH # FOR USRVECTOR MODULE 
-PSECT. SABSS, ABS ; DO NOT GENERATE ANY STORAGE 
-=0 : 
.IFF ? EXCLUDE USRVECTOR MODULE 
~IF NDF, PRMSW : for version masks 
-IF DF, PROCESS PAGE DEFINITIONS 
-PSECT SABSS,ABS ? DO NOT GENERATE ANY STORAGE 
-=0 
-IFF ? ELSE, 
DECLARE_PSECT EXECS$PAGED_CODE, ALIGNMENT=PAGE 
UNIVERSAL_SYMBOL SWP$GL_SHELLB 
-ENDC 
-IFF 
-PSECT SABS$, ABS 3 If version mask assembly 
-ENDC 


WARNING: SWP$C_SHLP1PT MUST BE MANUALLY COMPUTED SINCE IT IS USED 
TO ALLOCATE THE SPACE FOR P1 PAGE TABLE ENTRIES. IF UPDATES 
ARE MADE THAT INTRODUCE MORE Pl PAGE TABLE ENTRIES, THEN 
VERIFY THAT THEY STILL FIT IN THE NUMBER OF PAGES PROVIDED 


=e Me te Se Be Ye 


7 COUNT OF BASIC Pl PAGE TABLES FOR SHELL 
DEFINE CONSTANT SWPSC_SHLP1PT, 3, MEMORY_MANAGEMENT 
SHELL: ? BASE OF SHELL SWAP IMAGE 


PROCESS HEADER FOR SHELL PROCESS 


=e Yo Ye 


PHD...=. ? BASE OF PROCESS HEADER 
-BLKB PHDS$C_LENGTH + RESERVE SPACE FOR HEADER 
WORKING SET LIST . 


PAGES DESCRIBED IN THE WORKING SET LIST MUST OCCUR IN THE SAME ORDER 
WITHIN THE PROCESS BODY. 


™e Ve Se Ye Te Ve 


.IF NDF PRMSW 
.IF NDF PROCESS PAGE DEFINITIONS 
-ALIGN LONG 3 AT LONGWORD RESOLUTION 
.IFF 
. -™<.+3>6°XFFFC 
-ENDC 
-ENDC 
DEFINE CONSTANT SWP$C_KSTACK_EX_WSL, <<.-PHD...>@-2>, MISC 
-BLKL KSTACK EX ; EXTRA SLOTS FOR KERNEL STACK EXPANSION 
WSL...=. ‘= : BASE OF WORKING SET LIST 
DEFINE CONSTANT SWP$C_KSTACK_WSL, <<.-PHD...>@-2>,MISC 
~ WSL <<KSP INI-<1*512>>!WSL$M_WSLOCK>, PROCESS; KERNEL STACK PAGE 1 
WSL <<KSP INI-<2*512>>!WSLSM_WSLOCK>, PROCESS; KERNEL STACK PAGE 2 
wsL <<KSP INI-<3*512>>!WSL$M_WSLOCK>, PROCESS; KERNEL STACK PAGE 3 
NOT KSTACK WSL=. : REST OF WSL IS NOT KERNEL STACK 
a WSL <VECTORS!WSL$M_WSLOCK>, PROCESS ; VECTOR PAGE 
DYNWSL=. ; START OF DYNAMIC WORKING SET 
WSL <PIOBASE!WSL$M_ MODIFY>, PROCESS ; PROCESS I/O SEGMENT BASE PAGE 1 
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531 
532 
$33 
534 
535 
536 
537 
538 
539 
540 
$41 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
$71 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581i 
582 
583 
584 
585 
586 
587 


FWSL...™. ? FREE WORKING SET LIST 

NDYN=<FWSL.. _-DYNWSL>@-2 3 NUMBER OF DYNAMIC ENTRIES IN SHELL 
SHUFFLE_COUNT=<FWSL. ..-NOT_KSTACK_WSL>@-2 ; AMOUNT OF SHUFFLING BY SHELINIT 
DEFINE_| CONSTANT SWPS$C_NDYN |, NDYN, MISC 3 GLOBAL NAME FOR NUMBER OF DYNAMIC PAGES 


IF NDF PRMSW 
IF NDF PROCESS PAGE DEFINITIONS 
eALIGN PAGE 3 GET TO END OF PAGE 
-lFF 
o™<.+511>6“XFE00 
-ENDC 
-ENDC 


3 REKRKERKKKERRERERKKERERRRRERRRERRRRERRERRRARRRRHRRRAEEKRKHERARARRKRRRRERRERKRERERKRKE 


? NB: Until SWPSSHELINIT is generalized, this ASSUME statement must remain. * 
PERRERRERRRRERERRERERRERREERRRRERERERERRERERERRERRERERERERRAREREREREREEEERERE 
-IF NDF PRMSW 
ASSUME <<? PHD...> LE §12 


.ENDC 
SAV...=. | | ? 
TMP .. .=<DYNWSL-PHD. . .>@-2 ? BASE OF FLUID WORKING SET LIST 
PHD L_WSLOCK ; POINTER TO START OF LOCKED PAGES 
- LONG TMP... 3 
PHD L_WSDYN : POINTER TO START OF DYNAMIC PAGES 
-LONG ‘TMP... ; 
PHD L_WSLIST ; 
LONG <WSL...-PHD...>@-2 : START OF WORKING SET LIST 
PHD L WSNEXT ; NEXT WORKING SET ENTRY 
; 


-LONG <TMP...+NDYN-1> 


PHD L_FREP1VA 3 VA OF FIRST FREE PAGE IN Pl SPACE 
»~ LONG VA. ee -512 


~@e 


PHD Q PRIVMSK 
LONG -1,-1 


ENABLE ALL PRIVILEGES 


we 


ee 


PHD W_QUANT 
-WORD -100 


QUANTUM OF ONE SECOND 


@e Yeo 


PHD L_KSP 
-LONG KSPINI 
-LONG ESPINI 
-LONG SSPINI 


STACK POINTERS 

KERNEL STACK POINTER 
EXECUTIVE STACK POINTER 
SUPER STACK POINTER 

NO INITIAL USER STACK 


™e Ye Ye Sse Ys 


PHD L_PC 
-LONG EXESPROCSTRT 


INITIAL PROGRAM COUNTER 
START PROCESS 


eq Te 


PHD L_PSL ? PROGRAM STATUS LONGWORD 
- LONG IPL$_ASTDEL@PSLSV_IPL # MUST RUN AT ASTDEL 
PHD L_POBR 7 PO BASE REGISTER 
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588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 


599. 
600 


601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 


- LONG 


PHD 
- LONG 


PHD 
- LONG 


PHD 
- LONG 


PHD. 
- LONG 


PHD 
- WORD 


PHD 
- LONG 


PHD 
-BYTE 


PHD 
-BYTE 


-™SAV... 


0 


L_POLRASTL 
<4@PHDS$V_ASTLVL> 


L_P1BR 
-<1@23> 


L_P1LR 
<1@21>-P1PTLEN 


. L PREPTECNT 


~<14+<<1@31-VA. ..>@-9>> 


W_PRCLM — 


L_WSFLUID 
10 


B _DFPFC 
16 


.B_CPUMODE 


PSL$C_USER 


3 


ee Ye 


te Xe 


=e 


we Ye ee Se = 


me Ye 


®e 


bf) 


RELATIVE OFFSET 


NO AST PENDING, POLR = 0 


SVA OF Pl PAGE TABLE BASE 


P1 LENGTH REGISTER 


FREE PTE’S BETWEEN PO AND Pl PT 


(NUMBER OF AVAILABLE LONGWORDS 


SUB PROCESS LIMIT 
ALLOW FOUR 


GUARANTEED FLUID PAGE COUNT 
GUESS AT TEN FOR NOW (WAG) 


DEFAULT PAGE FAULT CLUSTER 
ACCESS MODE FIELD FOR CPU TIME LIMIT 
EXPIRATION AST STARTS WITH USER MODE 


RESTORE LOCATION COUNTER 
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616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 


627... 


628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
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-SBTTi, SHELL PROCESS PAGE TABLES 
; SHELL PROCESS PAGE TABLES 
; 
; 
P1PTBAS=. ; 
- IF NDF PROCESS PAGE DEFINITIONS 
TMP=<SWPSC_SHLP1PT*512> ; 
-BLKB TMP ; 
- IFF 
-=.+<swp$c_shlplpt *512> 
-ENDC 
SAV...™. ; 
- IFTF ? 
3 
; INITIALIZE VIRTUAL ADDRESS BASE 
VA. e -21@31 2 
3 P1PTE 128*DBGPTCNT 
VA...=VA...~<DBGPTCNT*128*512> 
DBGAREA=VA... 


P1PTE 
VECTORS=VA... 


1, URKW,K,PFIL 


we we MO we VO 


-IFF 


ve 


DEFINE_CONSTANT CTLSGL_ VECTORS, VECTORS 
P1PTE 16 
DEFINE CONSTANT P1SYSVECTORS, VA... 


70 we 


THE FOLLOWING PAGE IS A USER~MODE 


we Ye Se Yo Yo 


P1PTE 
UWVECPAG=VA... 


1, UW, K, DZRO 3 


™e Ye Ye Ve Ve 


ALLOCATE SPACE FOR PAGE TABLES 
ALLOCATE SPACE FOR PAGE TABLES 


REMEMBER BASE OF PAGE TABLES 


ALL ASSEMBLIES 


DEBUGGER CONTEXT AREA 
ACCOUNT FOR IT IN VA... 
ADDRESS OF DEBUG AREA 
VECTOR PAGE 


EXCLUDE USRVECTOR MODULES 


BASE OF VECTOR PAGE 
PAGES FOR SYSTEM SERVICE VECTORS 


WRITABLE CONTEXT PAGE 


FOR MISC. USER-MODE PACKAGES THAT ARE MAINTAINED BY VMS. 
(SEE DETAILED ALLOCATION OF PAGE BELOW) 


GLOBAL USER-MODE OWN STORAGE PAGE 


The following pages are for use by VMS kernel mode 
facilities for uninitialized, process OWN storage. This page also 
serves as the guard page for the supervisor stack. 
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673 P1PTE 2, URKW,K,DZRO ; Kernel mode, demand zero data pages 

674 DEFINE CONSTANT CTLSA_| PRCPRM_KDATA, VA...,<PROCESS SCHED, SHELL> 

675 P1IPTE SSTACK, URSW, S, DZRO, SSPINI ? SUPERVISOR STACK 

676 P1PTE ESTACK, SREW, E,DZRO, ESPINI 3 EXECUTIVE STACK 

677 P1IPTE KSTACK, SRKW, K, PFIL, KSPINI 3 KERNEL STACK 

678 DEFINE CONSTANT CTL$GL_KSTKBAS, VA...,<PROCESS_SCHED, SHELL> 3 MAXIMUM TOP OF KERNEL S$ 
679 P1PTE KSTACK_EX, NA, K, PFIL 3; EXPANSION FOR KERNEL STACK 


680 DEFINE_CONSTANT CTLSGL _ KSTKBASEXP, VA...,<PROCESS_SCHED, SHELL> ; MAXIMUM TOP OF EXPAN 
681 DEFINE | CONSTANT CTLS$GL_! KSP INI, KSPINI,<PROCESS | SCHED, SHELL> ; INITIAL KERNEL STACK 


682 P1PTE 1 ; NULL STOPPER PAGE 

683 P1PTE KRP_ COUNT, URKW, K, DZRO ; Pl LOOKASIDE LIST FOR KERNEL MODE 

684 DEFINE CONSTANT CTLSGL_| KRP,VA...,<PROCESS SCHED,SHELL> ; ADDRESS USED BY PROCSTRT T 
685 P1PTE 1, URSW,E,DZRO ; IMAGE HEADER BUFFER 

686 DEFINE_CONSTANT MMGS$IMGHDRBUF, VA...,<IMAGE_ACTIVATOR,SHELL> ; ADDRESS OF IMAGE HEADE 
687 P1PTE 3, UREW, K, DZRO ; VECTORS FOR USER SYS SRV & ERR MSGS 

688 DEFINE_CONSTANT CTLSA_DISPVEC, VA...,<IMAGE_ACTIVATOR, SHELL> ; ADR OF VECTOR PAGES FO 
689 P1PTE 4,0W,U,DZRO ; DEBUGGER CONTEXT 

690 P1PTE IMGACTBUF , UREW, E, DZRO ; IMAGE ACTIVATOR SCRATCH PAGES (8) 


691 DEFINE_CONSTANT IACSAL_IMGACTBUF,VA...,<IMAGE_ACTIVATOR, SHELL> ; ADR OF IMAGE ACTIV 
692 CLIDATAEND=VA... 


693 P1PTE 12, URSW, S, DZRO 3; COMMMAND INTERPRETER DATA PAGES 

694 CLIDATAPAG=VA... 3 BASE ADDRESS OF CLI DATA PAGE 

695 P1IPTE 1, UREW,E,DZRO ? IMAGE ACTIVATOR CONTEXT 

696 IMGACTCTX=VA... 

697 P1PTE NSASK_IDT_PAGES, KW, K,DZRO ; SECURITY AUDITING IMPURE DATA TABLE 
698 DEFINE CONSTANT NSAST_IDT, VA..., SECURITY 

699 ; 

700 ; THE FOLLOWING PAGE IS A WRITABLE CONTEXT PAGE FOR 

701 ; TRE USE OF THE COMPATIBILITY MODE EMULATOR AND EXCEPTION 

7102 ; 

703 P1PTE 2, UW, K,DZRO 3; WRITABLE PAGES FOR COMPATIBILITY MODE 
104 DEFINE CONSTANT CTLSAG_CMEDATA, VA. ..,<PROCESS SCHED, SHELL> 

705 3 

7106 ; THE FOLLOWING PAGES ARE FOR USE BY BASIC/BASIC-PLUS TO PROVIDE 

707 3 THE CORE COMMON REQUIRED TO PASS DATA WHEN CHAINING FROM IMAGE 

708 ; TO IMAGE. AN IDENTICAL AREA, NEGATIVELY DISPLACED HAS BEEN ALLOCATED 
7109 ; FOR USERS AND CSS. 

710 ; 

711 P1IPTE COMMON, UW, K, DZRO 3 DEC CORE COMMON PAGES 

712 DEFINE CONSTANT CTLSA_ COMMON, VA...,<PROCESS | SCHED, SHELL> ; BASE ADDRESS 

713 P1IPTE COMMON, UW, K, DZRO 3 USER CORE COMMON PAGES 

714 

715 DEFINE CONSTANT PIOSA_| RMS _| PICEND ,VA...,<PROCESS | SCHED, FILES VOLUMES , SHELL> 
716 P1PTE 1, UREW,E, DZRO ? PROCESS IFB/IRB TABLES 

717 PIOTBL=VA... 

718 P1PTE 4, UREW,E,DZRO 3 RMS DIRECTORY CACHE PAGES 

719 DEFINE CONSTANT PIOSA_! DIRCACHE, VA...,<PROCESS | SCHED, FILES | VOLUMES, SHELL> 

720 © ~ P1IPTE 1, UREW, E,DZRO ; EXTENSION TO RMS POINTER PAGE 

721 P1PTE 1, UREW,E,PFIL 3 RMS POINTER PAGE 


722 DEFINE CONSTANT PIOSA_RMS_ PIOBASE, VA...,<PROCESS SCHED, FILES_VOLUMES, SHELL> 
723 


724 PIOBASE=VA... ; 

725 P1PTE 2, UW, K,DZRO : VWS area 

726 DEFINE CONSTANT CTLSA_VWS, VA...,<PROCESS SCHED, SHELL> 

727 USPINI=VA... : USER STACK AREA 

7128 

729 END...=. 3 END OF CONTROL REGION 
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730 
731 
732 
733 
734 
735 
736 
737 
738 
739 


740° 


741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 


P1PTLEN=<1@31-VA. ..>@-9 3 ENTRIES IN PiPT 

? 

3 Make sure there are enough system page table pages 

7 to cover SHELL Pl pages. 

-IF NDF PRMSW 

ASSUME <<P1PTLEN+127>/126> EQ SWPSC_SHLP1PT 

-ENDC 

DEFINE CONSTANT SWPS$C_SHLFPTE, <<.-P1PTBAS>@-2>,MEMORY_ MANAGEMENT ; FREE PiPT IN BASI 


° 
eo 


° 
¢ 


RESTORE LOCATION POINTER 


-™SAV... ? FINISHED WITH PAGE TABLES 
NOPFIL_CHARGE=KSTACK+1 3 No page file for kernel stack or vector pa 
PFILPGCNT=PFILPGCNT-NOPFIL CHARGE 

3 DEFINE GLOBAL VALUE FOR SHELL PAGE FILE REQUIREMEN 
DEFINE_CONSTANT SWP$C_SHELLPFIL, PFILPGCNT, PROCESS SCHED 


3 Define global value for shell page 
3 file requirement for non-dzro pages 
DEFINE_CONSTANT SWPS$C_SHELLPFIL_NDZRO, PFILPGCNT_NDZRO, PROCESS SCHED 
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755 
786 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
7167 
768 
769 
770 
771 
772 
773 
7174 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 


-SBTTL BODY OF SHELL PROCESS 


BODY OF SHELL PROCESS 


we Se “oe 


VECTOR PAGE 


REKKK 
REKKK 
REKKK 
RKKKK 
REKKK 


we Ye Ne Ye Se Te Ye Yo Ye Ye 


¢ 


IFT 
.=VECTORS 
.IFTF 
CTLVECPAG=. 
CTL GW_NMIOCH, IO 
-WORD 0 
CTL GW_CHINDX, IO 
-WORD 0 
CTL GL_LNMHASH, LOGICAL_NAMES 


- LONG 0 
CTL 
- LONG 0 


ARRAY OF STACK POINTERS 


EXTENT OF THE KERNEL STACK. 


Se Me Te Ve Ve Yo 


- LONG CTL$GL_KSTKBAS 
CTL AL_STACK, STABLE 
- LONG KSPINI 

- LONG ESPINI 

- LONG SSPINI 

- LONG USPINI 


ee Ye Ye 


subsitute a 
you add a cell either replace a SPARE cell or 
add it to the end. 


‘THE -1 ENTRY OF CTLSAL_STACK IS 


xekk* NOTE: The cells in this page must not move. 
facilities which locate cells via offsets from 
the top of this page. 


POSITION TO END OF HEADER 


There are 


If you delete a cell 


-LONG 0 and comment it as SPARE. If 


° 
o 


we 


=e 


we “Ne Ye 


=e Ve 


° 
4 


GL_LNMDIRECT, LOGICAL NAMES ; 


e 
e 


DEFINE_CONSTANT SWPSAL_PTRPAG, .-SHELL, PROCESS SCHED ? ADDRESS IN SWAPPER MAP 


ONLY USRVECTOR MODULE 
SHOW ACTUAL ADDRESSES IN LISTING 


ALL ASSEMBLIES 


BASE OF VECTOR PAGE 
NUMBER OF CHANNELS 
FILLED IN IN PROCSTRT 


MAXIMUM CHANNEL INDEX 
FILLED IN IN PROCSTRT 


process Logical Name HASH table 
pointer 

process Logical Name DIRECTory 
pointer 


USED TO DETERMINE THE MAXIMUM 


™e Se Ye Ve Ye Ye 


MAXIMUM TOP OF KERNEL STACK 
STACK POINTER RESTART ARRAY 
KERNEL STACK POINTER 

EXEC STACK POINTER 
SUPERVISOR STACK POINTER 
USER STACK POINTER 


LOGICAL NAME TABLE TRANSLATION CACHE QUEUE HEADER 
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812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
647 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 


106 


we Ne %e 


we 


me 


CTL 
- LONG 
- LONG 


THE FOLLOWING 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 

«LONG 
- LONG 
- LONG 
- LONG 
- LONG 
- LONG 
- LONG 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


GQ_LNMTBLCACHE, LOGICAL NAMES ; QUEUE HEADER FOR LOGICAL NAME TABLE 


CTL$GQ_LNMTBLCACHE 
CTL$GQ_LNMTBLCACHE 


e 
¢ 
e 
’ 


TRANSLATION CACHE (FORWARD LINK) 
‘BACK LINK) 


THREE VECTORS MUST BE ADJACENT 


GL_CMSUPR, STABLE 
0 


GL_CMUSER, STABLE 
0 


GL_CMHANDLR, STABLE 
0 


AQ_EXCVEC, STABLE 


eoooooo°o 


GL_THEXEC, STABLE 
0 


GL_THSUPR, STABLE 
0 


GL_THUSER, STABLE 
0 


we Se 


we Me 


we 


=e Se Me Ve Ye Me Ne Me FO 


=e Ve 


we Ye 


=e Ne 


SUPERVISOR CHANGE MODE DISPATCHER 
NULL 


USER CHANGE MODE DISPATCHER 
NULL 


COMPATIBILITY MODE HANDLER 


PRIMARY/SECONDARY EXCEPTION VECTORS 
KERNEL MODE PRIMARY 

KERNEL MODE SECONDARY 

EXEC MODE PRIMARY 

EXEC MODE SECONDARY 

SUPERVISOR MODE PRIMARY 

SUPERVISOR MODE SECONDARY 

USER MODE PRIMARY 

USER MODE SECONDARY 


EXECUTIVE TERMINATION HANDLER 
NULL 


SUPERVISOR TERMINATION HANDLER 
NULL 


USER TERMINATION HANDLER 
NOLL 


FORMER LOCATION OF COMPATIBILITY MODE CONTEXT 


CTL 
- LONG 
- LONG 


CTL 
- LONG 


CTL 

- LONG 
- LONG 
- LONG 
- LONG 


CTL 
- LONG 


CTL 


- LONG 


GQ_COMMON 
512* COMMON 
CTL$A_COMMON 


GL_GETMSG, MISC 
0 


AL_STACKLIM, STABLE 
CTL$GL_KSTKBAS 
KSPINI 

ESPINI 

0 


eo Se Me 


se Ne 


~e Ne Se Ne Ne 


GL_CTLBASVA, PROCESS_SCHED 


0 


es 
a 


CORE COMMON DESCRIPTOR 
SIZE IN BYTES 
AND ADDRESS 


PER~PROCESS VECTOR TO USER MESSAGE 
DISPATCHER 


STACK LIMIT ARRAY (INDEXED BY MODE) 
KERNEL STACK LO (TOP) LIMIT 

EXEC STACK LO (TOP) LIMIT 

SUPER STACK LO (TOP) LIMIT 

USER STACK (NOT CHECKED) 


; BASE CONTROL REGION ADDRESS 
FILLED IN BY PROCSTRT 


GL_IMGHDRBF, IMAGE_ACTIVATOR ; ADDRESS OF IMAGE ACTIVATOR’S IMAGE 


0 


e 
a 


e 
¢ 


HEADER BUFFER, IF IMAGE IS ACTIVE; 
O IF NO IMAGE ACTIVE 
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869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 


CTL 


- LONG 


CTL 
- LONG 


CTL 
- LONG 


cTL 


- LONG 
- LONG 


me Yo Ve Ve 


cTL 
-BLKB 


cTL 
-BLKB 


-IF NDF PRMSW 


ASSUME <CTLST_ACCOUNT - CTLS$T_USERNAME> 


-ENDC 


cTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


cTL 
- LONG 


CTL 
- LONG 


GL_IMGLSTPTR, - 
<IMAGE_ACTIVATOR> 
IACS$GL_IMAGE LIST 


GL_PHD, PROCESS SCHED 
0 


2 
v 
e 
a’ 


ADDRESS OF ICB LIST (FOR DEBUGGER) 


ADDRESS OF PHD WINDOW 
INIT BY INSWAP 


GQ_ALLOCREG, MEMORY_MANAGEMENT ; HEAD OF PROCESS ALLOCATION REGION PO 


0,0 


GQ_MOUNTLST, - 

<FILES_VOLUMES> 
CTL$GQ_MOUNTLST 
CTL$GQ_MOUNTLST 


T_USERNAME, STABLE 
JIB$S_USERNAME 


T_ ACCOUNT, STABLE 
JIB$S_ACCOUNT 


GQ LOGIN, STABLE 
0,0 


GL_FINALSTS, STABLE 
0 


GL_WSPEAK, COUNTERS 
0 


GL_VIRTPEAK, COUNTERS 
0 


GL_VOLUMES, COUNTERS 
0 


GQ_ISTART, COUNTERS 
0,0 


GL_ICPUTIM, COUNTERS 
0 


GL_IFAULTS, COUNTERS 
0 


GL_IFAULTIO, COUNTERS 
0 


, 
; 


° 
a 
° 
e 


=e Ne 


me Ne 


(Filled in by PROCSTRT) 
MOUNTED DEVICE LIST 


FORWARD LINK 
BACKWARD LINK ( LIST EMPTY ) 


RREKKKEKEKKKEKREKHREEKREKEKKREKEKEREKERHEKKKEEKKERREKEKKEKEKRERRERERKKEKKEKREKREERREKKKKEKE 


NOTE: The order of the accounting data between CTL$T_USERNAME and 
CTL$T_REMOTEID should be preserved! 
RHEE KEKREREREREREEEREKEREKEREKEKKEEKREEKEKREREKRHEKKEERERERKEREKRKEKK 


USERNAME 
Filled in by PROCSTRT 


ACCOUNT NAME 
Filled in by PROCSTRT 


EQ <JIBST_ACCOUNT - JIBST_USERNAME> 


we Ne 


=e xe =e me Ve we Ye -e te we Ye 


a) 


SYSTEM TIME AT PROCESS CREATION 
FINAL EXIT STATUS: FOR PROCESS 
PEAK WORKING SET SIZE 

PEAK VIRTUAL SIZE 

COUNT OF VOLUMES MOUNTED 

IMAGE ACTIVATION TIME 

INITIAL IMAGE CPU TIME 

INITIAL IMAGE FAULT COUNT 


INITIAL IMAGE FAULT I/O COUNT 
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926 
927 
928 
929 
930 
931 
932 
933 
934 


952 
953 
954 
955 
956 
957 
958 
959 


961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 


cTL 
- LONG 


CTL 
- LONG 


- LONG 
-BYTE 
-BLKB 
CTL 

-BYTE 
-BLKB 
CTL 

-BYTE 
-BLKB 


-BLKB 


GL_IWSPEAK, COUNTERS 
0 


GL_IPAGEFL, COUNTERS 
0 


GL_IDIOCNT, COUNTERS 
) 


GL_IBIOCNT, COUNTERS 
0 : 


GL_IVOLUMES, COUNTERS 
0 


T_NODEADDR, NETWORKS 
0 
6 


+ 


NODENAME , NETWORKS 


bag 


T_REMOTEID, NETWORKS 
0 
16 


1 


FARARAERRAREKEKRHRRERKREKREERERERKEKEEKE 


3 End of adjacent accounting data 
PRRRRAERERERERERREREREREERERREREER 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL - 
- LONG 
CTL 

-BYTE 


CTL 
-BYTE 


CTL 
-BLKB 


-BLKB 


GQ PROCPRIV, STABLE 
=1,~1 


GL_USRCHMK, STABLE 
0 


GL_USRCHME, STABLE 
0 


GL_POWERAST, STABLE 
0 

GB_PWRMODE, STABLE 
0 


GB_SSFILTER, STABLE 
0 


GB_REENABLE_ASTS, VOLATILE 


1 


1 


@e me 


@e 


7 


=e 


me Ye 


ze Me 


we Ye Ye Xe 


=e 


we 


IMAGE WORKING SET PEAK 

IMAGE PAGE FILE PEAK USAGE 
INITIAL IMAGE DIRECT I/O COUNT 
INITIAL IMAGE BUFFERED I/O COUNT 
INITIAL IMAGE VOLUME MOUNT COUNT 


REMOTE NODE ADDRESS (BINARY) 
? BYTE COUNT BYTE 


REMOTE NODE NAME (ASCII) 
BYTE COUNT BYTE 


LONGWORD ALIGN SECTION 


PROCESS PRIVILEGE MASK 
ALL PRIVILEGES PERMITTED 


PER-PROCESS VECTOR TO USER CHANGE MODE 
TO KERNEL HANDLER 


PER-PROCESS VECTOR TO USER CHANGE MODE 
TO EXECUTIVE HANDLER 


POWER FAIL AST ADDRESS 


ACCESS MODE FOR POWER FAIL AST 


SYS SERV INHIBIT FILTER MASK 


3 USER MODE THREAD MUST CALL $SETAST (1) 


SPARE 
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982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 


997. 


998 


—e Ve Ye Ne Be Ye We 


=e Ye Ye 


999 


1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 


1012, 


1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 


=e Ye Ne 


we Ye Ne 


ARRAY OF FINAL EXCEPTION VECTORS 


- ONE PER MODE 


THESE VECTORS ARE USED TO LOCATE AN. EXCEPTION HANDLER WHEN ALL 


OTHER METHODS FAIL. 


WHEN THE STACK IS CLOBBERED. 


CTL 

- LONG 
-LONG .. 
- LONG 
- LONG 


POINTER 


CTL 
- LONG 
CTL 
- LONG 
- LONG 


AL_FINALEXC, STABLE 
EXESEXCP TN 
EXESEXCP TNE 

0 

0 


Se Ne Te Ne Ne 


TO BASE OF CHANNELS 


GL_CCBBASE, I0 

0 

GQ_DBGAREA, MISC 
64*1024 
DBGAREA 


me Me Me Ne Ne 


POINTER TO RMS IMAGE 


CTL 
. LONG 


PROCESS 


CTL 
-QUAD 


CTL «| 
-BYTE 


CTL 
-BYTE 


CTL 
» WORD 


CTL 
- LONG 


cTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


cTL 


'GB_MSGMASK, MISC 


GL_RMSBASE, FILES_VOLUMES 
O° ; 


PERMANENT MESSAGE SECTION 


GL_PPMSG, MISC 


we Ne 


we Ye 


15 


GB_DEFLANG, MISC . 
0 


we Ye 


GW_PPMSGCHN, MISC 
) 


ee Re 


GL_USRUNDWN, MISC 
0 


™e Ne 


GL_PCB, PROCESS SCHED 
0 


~e Re 


GL RUF, FILES VOLUMES 
0 


me 


GL_SITESPEC, MISC 


we 


0 
_ GL_KNOWNFIL, FILES_VOLUMES 
0 

AL_IPASTVEC, MISC ; 


PERMITS DEBUGGERS TO RECEIVE CONTROL EVEN 


FINAL EXCEPTION HANDLER ARRAY 
KERNEL MODE 

EXECUTIVE MODE 

SUPERVISOR MODE 


USER. MODE 


BASE OF I/O CHANNELS 
FILLED IN IN emoceare 
DEBUG AREA 

SIZE 

ADDRESS 


POINT TO RMS IN SYSTEM SPACE 
POINTER AND DEFAULT DISPLAY FLAGS 


ADDRESS OF PROCESS PERM. MSG SECTION 
STARTING/ENDING ADDRESS OF SECTION 


DEFAULT MESSAGE DISPLAY FLAGS 
DEFAULT: FAC,SEV, IDENT AND TEXT (ALL) 


DEFAULT MESSAGE LANGUAGE 
(CORRENTLY UNUSED) 


CHANNEL TO PROCESS PERM. MESSAGE 
SECTION (MAPPED IN CTLS$GL_PPMSG) 


PER-PROCESS VECTOR TO USER RUNDOWN 
SERVICE 


ADDRESS OF PROCESS CONTROL BLOCK 
INIT BY PROCSTRT 


POINTER TO RECOVERY UNIT BLOCKS 


SITE-SPECIFIC PER-PROCESS CELL 


; PROCESS KNOWN FILE LIST POINTER 


VECTOR OF IPAST ADDRESSES 
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1039 


1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 


- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 


CTL 
- LONG 
CTL 
~ LONG 


CTL 


- LONG 


CTL 


- LONG 
- LONG 
- LONG 


CTL 
- LONG 
- LONG 


CTL 
- LONG 
- LONG 


- LONG 
CTL 
- LONG 


- LONG 


GQ POALLOC, MISC 


_GQ_ TERMCHAR, IO 


0,0,0,0, 0, 0, 0,0 


GL_CMCNTX, MISC ; ADDRESS OF AME CONTEXT PAGE 
CTLS$AL_CMCNTX 


GL_IAFLNKPTR, IMAGE_ACTIVATOR ; ADDRESS OF IAF LIST (FOR DEBUGGER) 
CTL$GL_IAFLINK 


GL_F11BXQP, FILES VOLUMES ; ADDRESS OF F11B XQP QUEUE AND 
0 # DISPATCH VECTORS 


HEADER OF PO EXTENTION TO PROCESS 
ALLOCATION REGION 


we Ne 


0,0 


GL_PRCALLCNT, MISC COUNT OF BYTES OF PROCESS ALLOCATION 


me Ve 


0 REGION USABLE BY IMAGE REQUESTS. 
GL_RDIPTR, SECURITY ¢ POINTER TO RIGHTS DATABASE IDENTIFIER (RDI 
0 : 


GL_LNMDIRSEQ, LOGICAL NAMES ; SEQUENCE NUMBER FOR CACHE OF LOGICAL 
0 ? NAME TABLE TRANSLATIONS 


GQ_HELPFLAGS, MISC 
0,0 


HELP FLAGS, ONE LONGWORD FOR USE 
NOW, ONE FOR LATER 


me Re 


HOME FOR TERMINAL CHARACTERISTICS 


we 


0,0 3; NEED A QUADWORD 
GL_KRPFL,MISC ; P1 POOL LOOKASIDE LIST FORWARD LINK 
CTL$GL_KRPFL ~ 
GL_KRPBL,MISC ; P1 POOL LOOKASIDE LIST BACKWARD LINK 
CTL$GL_KRPFL 
GL_CREPRC_FLAGS, PROCESS SCHED ; $CREPRC FLAGS 

0 ; 

GL_THCOUNT, STABLE ; COUNT OF TERMINATION HANDLERS FOR 

0 3; EXEC MODE, 

0 : SUPERVISOR MODE, AND 

0 : USER MODE 


“ee 


GQ_CWPS Q1, VOLATILE 
CTL$GQ_CWPS Q1 
CTL$GQ_CWPS Ql 


CWPS temporary 


GQ_CWPS 02, VOLATILE 
CTL$GQ_CWPS_02 
CTL$GQ_CWPS_Q2 


CWRS temporary 


ve 


GL_CWPS Ll, VOLATILE 
0 
GL_CWPS_L2, VOLATILE 
0 
GL_CWPS_L3, VOLATILE 
0 


CWPS temporary 


ve 


=e 


CWPS temporary 


CWPS temporary 


we 
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1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 


CTL 
- LONG 


CTL 
- LONG 
- LONG 


cTL 
- LONG 


CTL 
- LONG 


oe Xe Se Ye 


GL_CWPS_L4, VOLATILE ; 
0 
GQ_XCB_QUE, VOLATILE ; 


CTL$GQ_XCB_QUE 
CTL$GQ_XCB_QUE 


GL_PRCPRM_ KDATA2, STABLE ; 
0 


GL_USRUNDWN_EXEC, VOLATILE 
0 ; 


END OF VECTOR PAGE 


CWRS temporary 


Process list of active transactions 


Address of kernel data extengion area 


? Per-process vector to user rundown 
service (EXEC mode) 


RRERKKKHKREEREERKEREREKKHEKEKKREREKREKREREKREEREKEEKEKREHERKREREREEKEEREEHEEKEKEKEKRKKREKK 


PRAM KRRERKERREREREREKKEKKEKRKEKKKEKKEKRERKEERHEKEKRKEKRREKREREKREKRERERKREKEEERERKEKEKKERREKK 


NOW LARGER THAN A PAGE *** 


CTLVECEND=. 
-IF GREATER <CTLVECEND-CTLVECPAG>-512 
- ERROR 3 *** VECTOR PAGE 
-ENDC 

-IFF ; 


EXCLUDE USRVECTOR MODULE 
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1123 
1124 


1125 
1126 
1127 
1128 


1129 
1130 
2131 
1132 
1133 
1134 
1135 


' 1136 


1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 


-SBTTL 


PROCESS I/O SEGMENT 


3 So oe ED OS oe om OD En ee OD ee Ge Pe oD Ge ee oe ee eS ee © ee ee 9 ee ee ee Ye i oe ee eo ow PO em ee ae 


we Te Ye Ne 


IF §DF PRMSW 

-IF NDF -— PROCESS_PAGE_ DEFINITIONS 
ALIGN PAGE ; 

IEF 
.=<.+511>6“XFE00 

-ENDC 

-ENDC 

PIO: ; 
PIO --«-<GL_PMLH, FILES VOLUMES; 
-LONG PIO$GL_FMLH, PIO$GL FMLH ; | 
PIO —- GL_ IIOFSPLH, FILES_VOLUMES 
-LONG  PIO$GL_IIOFSPLH : 
-LONG PIO$GL_IIOFSPLH ; 
PIO —« GW_ STATUS, STABLE ; 
WORD 0 ; 


DEFINE_CONSTANT 
PIO 
-BLKB 


PIO 
WORD 


PIO 
-BLKB 


PIO 
-BLKB 


PIO 
-BLKB - 


PIO 
-BLKB 


PIO 
-BLKB 


“ PIO 
-BLKB 


PIO 
-BLKB 


PIO 
-BLKB 


PROCESS I/O SEGMENT INITIAL CONTENT 


PAGE BOUNDARY 


BASE OF PROCESS I/O SEGMENT 


FREE MEMORY LIST HEAD . 
(Empty List) 


+ FREE LIST HEADER FOR IMAGE I/O SEG 


RMS OVERALL STATUS 


PIO$S_EODSTR, 16,<FILES_VOLUMES> ; SIZE OF STRING + COUNT BYTE 


GT_ENDSTR, FILES VOLUMES 
PIO$S_EODSTR 


we Xe 


GW_DFPROT, FILES VOLUMES ; 
“XFA0O ; 


GB_DFMBC, FILES VOLUMES 
1 


we 


GB_DFMBFSDK, FILES_VOLUMES 
1 


GB _DFMBFSMT, FILES VOLUMES 
1 


GB_DFMBFSOUR, FILES VOLUMES 
1 


GB_DFMBFREL, FILES VOLUMES 
1 


GB_DFMBFIDX, FILES VOLUMES 
1 


GB_DFMBFHSH, FILES VOLUMES 
1 


GB_DFNBC, FILES VOLUMES ; 
1 


END OF DATA STRING 
(COUNTED STRING) 


DEFAULT FILE PROTECTION 
SYS:RWED, OWN:RWED, GROUP: RE, WORLD:N 
DEFAULT MULTI-BLOCK COUNT 

; DEFAULT MOLTI-BUFFER COUNT SEQ. DISK 
; DEFAULT MULTI-BUFFER COUNT MAGTAPE 


3 DEFAULT MULTI-BUFFER COUNT UNIT REC. 


3 DEFAULT MULTI-BUFFER COUNT RELATIVE 


# DEFAULT MULTI~BUFFER COUNT INDEXED 


e 


+ DEFAULT MULTI-BUFFER COUNT HASHED 


Network block count transfer size 
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1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 


IF 
-IF 


 IFF 


-ENDC 
eENDC 


PIO GB_RMSPROLOG, FILES VOLUMES ; Structure level for RMS files 

-BLKB 1 

PIO GW_RMSEXTEND, FILES VOLUMES ; Extend quantity for RMS files 

-BLKW 1 

PIO GB_JNL_STALL_CNT, FILES VOLUMES ; Count of journal stalled threads 
-BLKB 1 

NDF PRMSW 

NDF PROCESS PAGE_DEFINITIONS 

-ALIGN LONG . 

o™<.+3>6“XFFFC 

PIO GL_DIRCACHE, FILES VOLUMES ; DIRECTORY CACHE LIST HEAD 

-LONG PIOSGL_DIRCACHE ; EMPTY LIST 

-LONG $PIO$GL_DIRCACHE 

PIO GL_DIRCFRLH, FILES VOLUMES ; FREE LIST FOR DIRECTORY CACHE NODES 
-LONG 0 ; (NOTE: SINGLY LINKED) 

PIO GQ RUB LH, FILES VOLUMES # RMS Recovery Unit Block (RUB) list head 
PIO GL_RUB_FLINK,FILES VOLUMES ; RUB queue forward link 

-LONG PIO$GQ RUB LH 

PIO GL_RUB_BLINK, FILES VOLUMES ; RUB queue backward link 

-LONG PIOS$GQ RUB LH 

PIO GL_NXTIRBSEQ, FILES_VOLUMES ; Next sequence number for IRBSL_IDENT | 
-LONG 0 


113 
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1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 


IF 
-IF 


.IFF 


-ENDC 
-ENDC 


e 
Cd 


@e fe 


NDF 
NDF 


PRMSW 
PROCESS_PAGE_DEFINITIONS 


-ALIGN QUAD 


=< .+7>8°XFFFS 


PROCESS I/O SEGMENT CONTEXT AREA 


PIO 

-WORD 
«WORD 
- LONG 


PIOL 

- LONG 
-BLKL 
- LONG 
- LONG 
- LONG 


GW_PIOIMPA, FILES VOLUMES 
0 

PRTSC_UREW 

0,0 


Al 

PIOLA1, PIOLAI 

1 

PIO2A10 

PIO2A20 
IMP$C_NPIOFILES 


we Ne Ne 


we Te Ye Se te Ve 


FLAGS 
I/O BUFFER PROTECTION 
PIO SEGMENT, SET UP BY PROCSTRT 


FREE PAGE LIST HEAD 
FREE LIST HEADER 

SP SAVED LONGWORD 
IFAB TABLE ADDRESS 
IRAB TABLE ADDRESS 

# OF SLOTS PER TABLE 
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1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 


; 


-e we 


IF 
IF 


- IFF 


-ENDC 
-ENDC 


IMAGE I/O SEGMENT CONTEXT AREA 


NDF 
NDF 


PRMSW 
PROCESS PAGE DEFINITIONS 


-ALIGN QUAD 


o™<.+7>&“XFFFS 

PIO GW_IIOIMPA, FILES VOLUMES ; IMAGE I/O IMPURE AREA 

-WORD 1 # FLAGS WITH IIO SEGMENT SET 

-WORD PRTSC_UREW # PROTECTION STO SET ON PAGES 

-LONG 0 ; MUST BE INITIALIZED BY THE IMAGE 
# ACTIVATOR TO THE ADDRESS OF THE FIRST 
PAGE IN THE IMAGE I/O SEGMENT. 
+ (NOTE: THIS LONGWORD IS REFERENCED BY: 
# PIO$GW_IIOIMPA+IMPSL_IOSEGADDR) 

-LONG 0 ;. LENGTH OF IMAGE I/O SEGMENT IN BYTES 
+ MUST BE INITIALIZED BY THE IMAGE ACTIVATOR 
# (NOTE: THIS LONGWORD IS REFERENCED BY: 
# PIOS$GW_IIOMPA+IMPSL_IOSEGLEN) 

PIOL Bl ; 

-LONG PIOLB1,PIOLB1 3; FREEPAGE LIST HEAD 

PIOL B2 ; 

-BLKL 1 3; SP SAVE LONGWORD 

-LONG PIOLB10 ; IFAB TABLE ADDRESS 

-LONG PIOLB20 7 IRAB TABLE ADDRESS 

-LONG $IMPS$C_ENTPERSEG 7 # OF SLOTS PER TABLE 

PIOL B10 ; 

-LONG 0 7 LINK TO NEXT TABLE SEGMENT 

-BLKL IMPS$C_ENTPERSEG ; IFAB TABLE SLOTS 

PIOL B20 ; 

-LONG 0 ; LINK TO NEXT TABLE SEGMENT 

-BLKL IMP$C_ENTPERSEG ; IRAB TABLE SLOTS 

PIO AL_RMSEXH,FILES_ VOLUMES ; EXIT HANDLER CONTROL BLOCK 

-BLKL 2 ; 

- LONG 1 ? ARGUMENT COUNT 

- LONG PIOSAL_RMSEXH+8 ? STORE EXIT CODE OVER ARGUMENT COUNT 

PIO GQ_IIODEFAULT, FILES VOLUMES ; DEFAULT IMAGE I/O AREA 

-LONG 0,0 

PIO GL_LNKCSHADR, FILES VOLUMES ; Logical link cache entry listhead 

- LONG 0 

PIO | GL_RMO_RM ID,FILES VOLUMES ; RMS/DDTM resource manager ID ~ 

PIO GL_RU_HANDLER_ID, FILES VOLUMES ; RMS/RUF recovery unit handler ID 

- LONG 0 ; (mutually exclusive usage) 
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1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
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PIO GL_RU_FAILURE COUNT, FILES VOLUMES ; 
- LONG 0 
PIO GL_RU WAIT Q FLINK, FILES VOLUMES ; 
- LONG 0 
PIO GL_RU_WAIT Q BLINK, FILES VOLUMES ; 
- LONG 0 
PIO GQ_NTRUB_LH,FILES VOLUMES ; 
_.LONG PIO$GQ_NTRUB_LH ; 
| .LONG  PIO$GQ_NTRUB_LH : 
PIO GL_NTO_RM_ID, FILES VOLUMES ; 
- LONG 0 
PIO GL_RESERVEDO, FILES VOLUMES ; 
- LONG 0 
PIO GQ_RUF_TSB_LH,FILES VOLUMES ; 
-LONG PIO$GQ_RUF_TSB_LH ; 
-LONG PIO$GQ_RUF_TSB_LH : 
PIO GL_RESERVED1, FILES VOLUMES ; 
- LONG 0 
PIO GL_RESERVED2, FILES VOLUMES ; 
- LONG 0 
PIO GL_RESERVED3, FILES VOLUMES ; 
- LONG 0 
PIO GL_RESERVED4, FILES VOLUMES ; 
- LONG 0 
PIO GL_RESERVED5, FILES VOLUMES ; 
- LONG 0 
PIO GL_RESERVED6, FILES VOLUMES ; 
- LONG 0) 
-IF NDF PRMSW 
-IF NDF PROCESS PAGE_DEFINITIONS 
eALIGN LONG 
-IFF 
o®<.+3>6*XFFFC 
-ENDC 
3 
; DEFAULT DIRECTORY INFORMATION 
PIO GT_DDSTRING, FILES VOLUMES 
DEFINE CONSTANT FIL$GT_DDSTRING, PIO$GT_DDSTRING 7 


° 
o 
° 
’ 
e 
4 


#1 (6) 


Recovery unit failure count 


Recovery unit wait queue flink 


Recovery unit wait queue blink 


RMS Network Recovery Unit Block (NTRUB) 
NTRUB queue forward link 
NTRUB queue backward link 


RMS/DDTM Network resource manager ID 


Reserved for future use by RMS 


Reserved for 
Reserved for 
Reserved for 
Reserved for 
Reserved for 


Reserved for 


RUF Transaction Stack Block (TSB) 
RUF_TSB queue forward link 
RUF_TSB queue backward link 


future use by RMS 


future 


future 


future 


future 


future 


use 


use 


use 


use 


use 


by RMS 
by RMS 
by RMS 
by RMS 


by RMS 


? DEFAULT DIRECTORY STRING 


FILE READ DEFAULT DIRECTORY STRING 


THE DEFAULT DIRECTORY STRING IN THE PROCESS QUOTA BLOCK MOVED FROM A 
CREATOR PROCESS TO A NEWLY CREATED PROCESS MUST BE AT LEAST AS LARGE 
AS THE LARGEST DIRECTORY STRING ALLOWED BY RMS. 


ASSUME PQBS$S DDSTRING GE FWAS$C_MAXDIRLEN 
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1352 
1353 
1354 


1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 


TEMPS...=. 


™e Ne te Se Be Ve Ve Se Ne Ve Ve 


-ASCIC \[SYSEXE]\ # DEFAULT DIRECTORY STRING 


RAEKKEKKEKKKEKEREREEKEKEEKKKEKEKKEER NOTE WEL], SHR RRR KKKKEKKHKRKEKKKKEKREKEKKKKEK 


THE DEFAULT DIRECTORY STRING MUST BE THE LAST ELEMENT TO APPEAR IN THE 
RMS. CONTEXT AREA. IN FACT, IT HANGS OFF THE END OF THE PAGE. IF STORAGE 
WERE ALLOCATED, THE SHELL WOULD GROW IN SIZE BY ONE PAGE, AN UNNECESSARY 
WASTE OF SPACE. THE .BLKB DIRECTIVE HERE IS SYMBOLIC, TO EXPRESS THE SIZE 
OF THE DIRECTORY STRING IF SPACE WERE REALLY ALLOCATED. 


-BLKB PQBSS_DDSTRING-<.-TEMPS...> ¢ FILL TO MAXIMUM POSSIBLE SIZE 


RKEKKEKEKKEKKEKKKEKEKKEEKKREREKKEKKK END OF NOTE sk XERREREKKKKKKKKEKKREKKKEKEKKEK 
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1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 


Me Xe Ne Ve Ve Te Se Te Ve Te Yo Te Ve Ye Ye Ve Vo “Ve Se 


IF 
IF 


- IFF 


-ENDC 
-ENDC 


FUNCTIONAL DESCRIPTION: 


SWPSSHELINIT IS CALLED BY THE SWAPPER FOLLOWING THE INSWAP OF A SHELL 
PROCESS TO APPLY THE SYSGEN PARAMETERS AND CONFIGURE THE PROCESS 
FOR THE PROPER WORKING SET SIZE AND VIRTUAL ADDRESS SPACE. 


JSB 


CALLING SEQUENCE: 


@#SWPSSHELINIT 


INPUT PARAMETERS : 


R4 ~ PCB ADDRESS 
R9 - SWAPPER MAP POINTER 
R10 - PTCS$M_VALID!PTE$C_ERKW!PTESM MODIFY 


Rll - SWAPPER END MAP POINTER 


OUTPUT PARAMETERS : 


PHD AND CONTROL REGION FOR THE NEW PROCESS 


NDF 
NDF 
- ALIGN 


PRMSW 


PROCESS PAGE DEFINITIONS 


PAGE 


-=<.+511>6*XFE00 


DEFINE CONSTANT SWPSSHELINIT, .-SHELL 


108: 


208: 


308: 


40S: 


ee Ve 


MOVL 
MOVL 
MOVAL 
ASHL 
SUBL3 
SUBL 
ROTL 
ROTL 
CLRQ 
CLRQ 
SOBGTR 
MOVL 
JSB 
MOVL 
MOVZWL 
BEQL 
DECL 
MOVL 
SOBGTR 
MOVZWL 
MOVAL 
MOVZWL 
MOVL 
SOBGTR 


PCBS$L_PHD (R4) ,R5 
G*SWPSGL_SHELLSIZ, RO 
(R9) [RO], R11 

#2, #SWPS$C_SHELLSIZ, RO 
R9,R11,R1 

RO, R1 

#3,R1,R1 

#9, #SWPS$C_SHELLSIZ, RO 
(RO) + 

(RO) + 

R1,10$ 

R5, R2 
G“MMGS$SVAPTECHK 

(R9) +, (R3)+ 
G*SWPS$GW_WSLPTE, Rl 
30$ 

R1 

- (R11), (R3) + 

R1, 20$ 
G*SWPSGW_EMPTPTE, RO 
(R3) [RO] ,R3 

G* SWPSGW_BAKPTE, RO 
-(R11), (R3)+ 

RO, 40$ 


INVALIDATE_TB MODE=<@#> 


e 
o 


—e Se Se Me Te Te Se Te Te Te TO Te Se Ye Te Te Se we Se Ve Ve te Ye YO NO 


ALL OF THE HEADER PAGES LESS PAGE 


START OUT ON PAGE BOUNDARY 


GET PROCESS HEADER BASE ADDRESS 

GET PAGES ALLOCATED FOR SHELL 

COMPUTE END ADDRESS IN MAP 

GET I/O SIZE OF SHELL 

COMPUTE SIZE OF EXTENSION PAGES 

LESS I/O SIZE 

CONVERT TO DOUBLE QUAD COUNT 

COMPUTE ADDRESS AT END OF I/O TRANSFER 
CLEAR PAGES 

NOT READ FROM SHELL 


VA OF PHD 

GET SVA OF FIRST PHD PTE 

MAP PROCESS HEADER FIXED PAGE 
GET COUNT OF ADDED PAGES FOR WSL+PST 
BR IF NONE 

LESS FIXED HEADER PAGE 

MAP A WSL PAGE 

DO THEM ALL 

GET COUNT OF EMPTY PAGES 

UPDATE MAP POINTER 

GET COUNT OF BAK/WSL/VAL/LCK PTE 
MAP BAK/WSL/VAL/LCK PAGES 


INVALIDATE TRANSLATION BUFFER 


TABLES HAVE NOW BEEN MAPPED 
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1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 


° 
e 


oe te Ne 


we 


Se Ye Ve Se Me 


ee te 


MOVZWL 
MOVW 
CVTWB 


G*SWPSGW_IBALSETX, R8 ; 
R8, PHD$W_PHVINDEX (R5) ; 


G*SGN$GW_DFPFC,PHD$B_DFPFC(R5) ; 


GET BALANCE SLOT INDEX 
SET INTO PROCESS HEADER 
SET DEFAULT PAGE FAULT CLUSTER 


Assign initial process pagefile and reserve SHELL pages. 
Pass requested page file (if any) as a PREFERENCE ONLY. 


ASSUME 


MOVAL 
MOVL 
-REPT 
MOVL 
-ENDR 


MOVZBL 
JSB 


MOVZWL 
ADDL2 
MOVZWL 
ADDL2 
MOVZBL 
ADDL2 
ADDL3 
BICL2 
JSB 
SUBW2 
MOVW 


SUBL2 
ADDL3 


' SUBL2 


MOVB 
MOVZWL 
MOVL 
MOVZWL 
ASHL 
ADDW 
ASHL 
MOVL 
ADDL 
ADDL3 


<PHD$S_PRCPGFLREFS/4> - ; 
EQ <1@PTESS PRCPGFLX> ; 


PHD$L_PRCPGFLREFS(R5) , RO; 
#<1@PTES$S_PGFLVBN>, R1 
<PHD$S_PRCPGFLREFS/4> 

R1, (RO) + 


PCBSB_PGFLINDEX(R4),R1 ; 
G“MMGSASNPRCPGFLP ; 


G*SWPSGW WSLPTE, R2 ? 


#SWPS$C SHELLPFIL NDZRO,R2 


G* SWPSGW_BAKPTE, R1 


R1,R2 : 
G*SWPS$GB_SHLP1PT,R1 
R1,R2 ; 
#127,R2,R1 ; 
#127,R1 , 
G*MMGS$RSRVPRCPGFL2 ; 


R2, PHD$W_PRCPGFLPAGES (R5) 
PHD$W_PRCPGFLPAGES (R5) , -7 
PHDS$W_PRCPGFLOPAGES (R5) 

R2,PHD$L_PRCPGFLREFS (R5) ; 
#SWP$C_SHELLPFIL, - ; 
G*SGNS$GL_PTPAGCNT,R1 ss; 
Rl, PHD$L_PPGFLVA (RS) ; 


Insure that page file accounting 
works correctly 


Init process page file ref counts 


Get requested SYSTEM page file index 
Assign process page file 


WSL PTE pages 
+ + SHELL page file pages (not DZRO) 


+ BAK PTE pages 


+ SHELL Pl page table pages 
Round up to multiple of 128 


Unconditionally reserve rounded pages 
Show actual pages as assigned 
and propogate into total ref count 


™e 


[Rx=0] (implicitly process PF #0) 

Rl = Total mapped pages with PF BS 
(SHELL P1 + process page table pages) 
Account for mapped pages 


G*SGNS$GB_PGTBPFC, PHDSB_PGTBPFC(R5); SET SYSTEM DEFAULT PT CLUSTER 
#SWPSC_KSTACK_WSL, PHD$L_WSLIST(R5); INIT POINTER TO LIST BASE 


G*SGN$GL_PHDPAGCT, R7 
G*SWP$GW_WSLPTE, R6 
#9,R6,PHDS$L_PSTBASOFF (R5 
G*SWPS$GW_EMPTPTE, R6 
#7,R6,R6 

R6, PHD$L_WSLX (R5) 
G*SGNSGL_PTPAGCNT, R7 
#1,R7,R0 


me Se Ve Ve Re ws Vo Ve 


GET TOTAL COUNT OF HEADER PAGES 
GET COUNT OF WSL HEADER PAGES 

+ SET END AS BASE FOR PST 
ASSUMES NO OVERFLOW POSSIBLE 
CONVERT TO LONGWORD COUNT 
SET BASE OFFSET TO WSLX AREA 
ADD PAGE TABLES TO COUNT 
ROUND TO LONGWORD SIZE 


If we have a longword wslx array (mmg$gw_bigpfn equals 1) 


then we do not not bias the number of entries (in r0). 


If 


we have a word wslx array, we divide by 2 to get the proper 


number of word length entries. 


as an index, not a byte offset. 


PFN _DISP_IF_BIGPFN THEN 


Note: phd$l_bak is store 


END BIGPFN_CODE=45$ 


7This code executes if the PFN link arrays are longword arrays. 
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PFN_DISP_ELSE 


1480 


14861 
1482 


1483 
1484 
1485 
1466 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 


50$: 


608: 


ELSE_CODE=45$, COMMON CODE=46$ 


?This code executes if the PFN link arrays are word arrays. 


DIVL 


#2,R0 


PFN DISP_ENDIF 
#End of code that depends on size 


ADDL 
MOVL 
ADDL 


SOBGTR 


MOVZWL 
BSBW 
MOVL 


RO, R6 

R6, PHDSL_BAK(R5) 

R7,R6 | 

#4,R6 

R6, PHDSL_PTWSLELCK (R5) 
G*SGNSGL_PTPAGCNT, R7 


(R6) [R7] ,PHDS$L_PTWSLEVAL (R5) 
@PHDSL_PTWSLEVAL (R5) [R5] , RO 


#1,R2 


@PHDSL_PTWSLELCK (R5) [R5],R1 


R2, (RO) + 

R2, (R1) + 

R7, 50$ 
#KSTACK+1, -2 (R1) 
#KSTACK+3 , -2 (RO) 
G“SGNSGL_PHDAPCNT, R6 
G*SWPSGB_SHLP1PT, RO 
RO, PHD$W_PTCNTLCK (R5) 
RO, PHDSW_PTCNTVAL (R5) 
RO, PHDSW_PTCNTACT (R5) 
RO, PHDSW_PTCNTMAX (R5) 
RO, R6 
PHDSL_WSDYN (R5) , R7 
R7 

R6, PHDS$L_WSLOCK (R5) 
R6, PHD$L_WSDYN (RS) 
R6, PHDSL_WSNEXT (R5) 
R6,R7,R1 
#SWPS$C_NDYN, RO 

(R5) [R7], (R5) [R1] 

R1 

R7 

RO, 60$ 
#<WSL$M_VALID- 
!WSLSM_WSLOCK- 
!WSLSC_PPGTBL- 

! VASM_SYSTEM>, R8 

RS, R2 

G*MMGS$ SVAPTECHK 

R8, RO 
G*SWPSGW_WSLPTE, R1 
(SP)+,R2 

FILLPHD 
G*SWPS$GW_EMPTPTE, Rl 
(R3) [R1},R3 

#9,R1,R1 

R1,R0 
G*SWPS$GW_BAKPTE, R1 
FILLPHD 
G“SGNS$GL_PTPAGCNT, R1 


3 


we Me Ve Se Ve Ve 


Se %e te Ye Te Se Te Ye Ye Ne Yo Ne To 


Se Se Se Me Ne Me Ve Ne Ne Ne Te Be Ve Te Veo Ye Ye Te Ye Ye Ye Ye Ye Ne Ye Ye Yo 


set as wslx as word array 


COMMON _CODE=46$ 


of PFN link arrays 

ALLOCATE SPACE IN WHOLE LONGWORDS 

SET BASE OF BACKING STORE VECTOR 
ALLOCATE SPACE FOR BACKING STORE VECTOR 
CONVERT TO BYTE OFFSET 

SET BASE OF LOCKED COUNT VECTOR 

GET COUNT OF PAGE TABLES 

? ALLOCATE AND SET BASE OF VAL CNT 
? SET BASE FOR VALID COUNT VEC 

7 MINUS ONE FOR BACKGROUND 

7 AND BASE FOR LOCKED COUNT 

INIT BOTH COUNT VECTORS TO MINUS ONE 


FOR ALL PAGE TABLE SLOTS 

COUNT OF LOCK PAGES FOR SHELL 
COUNT OF VALID PAGES 

GET ACTUAL HEADER SIZE 

NUMBER OF PERM PAGE TABLES 

COUNT OF PT CONTAINING LOCKED PAGES 
COUNT OF PT CONTAINING VALID PAGES 
COUNT OF ACTIVE PAGE TABLES 

COUNT OF PT WITH NON-ZERO ENTRIES 
MAKE ROOM IN WSLIST FOR HDR+PGTBLS 
GET INDEX TO CURRENT DYNAMIC ENTRIES 
SAVE POINTER FOR LATER USE 

CORRECT LOCK WSL INDEX 

AND DYNAMIC INDEX 

AND NEXT POINTER 

SET DESTINATION INDEX 

SET COUNT OF DYNAMIC PAGES 

MOVE A DYNAMIC WORKING SET PAGE 
NEXT DESTINATION 

NEXT WSL ENTRY 

MOVE ALL DYNAMIC PAGES 

WSL ENTRIES FOR HEADER ARE VALID 
LOCKED, 

PROCESS PAGE TABLE, 

AND SYSTEM SPACE 

SET PHD ADDRESS TO GET SVAPTE 
SVAPTE TO R3 

MAKE WORKING COPY 

COUNT OF WSLPTE 

RESTORE WORKING SET INDEX TO LOCKED 
SET UP FOR VALID PHD PAGES 

GET COUNT OF EMPTY PTE AGAIN 
ADVANCE SPT ADDRESS 

CONVERT TO BYTE COUNT 

AND UPDATE CURRENT VA 

GET COUNT OF REMAINING HEADER PAGES 
SET UP FOR VALID PHD PAGES 

GET COUNT OF PAGE TABLES 
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£533 65g 


1534 


1535 


1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 


1569 | 


1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 


70$: 


80S: 
90S: 


MOVL 
SOBGTR 
MOVZBL 


‘MNEGL 


DECL 
ADDL. 
MOVAL 
ASHL 
ADDL 
PUSHR 
SUBL 
BLEQ 
MOVL 
SOBGTR 
MOVL 
MOVL 
SOBGTR 
POPR 
BSBW 
ROTL 
ADDL 
ROTL 
ADDL | 
ADDL . 
SUBL - 
SUBL 
ASHL 
SUBL — 
ASHL 
SUBL 


SUBL 


ADDL 


RO,R1 


#PTESC_ERKW, -4 (R3) [R1) SET A DEMAND ZERO PAGE FOR PAGE TABLES 


R1,65$ INIT ENTIRE PAGE TABLE AREA 
G*SWPS$GB_SHLP1PT,R1 GET COUNT OF Pl PAGE TABLES 
R1,R6 NEGATE COUNT 

R6 LESS ONE MORE FOR DEBUGGER PAGE 


PAGE OFFSET TO PAGE TABLE 
COMPUTE SVAPTE 


G*SGNS$GL_PTPAGCNT, R6 
(R3) [R6] ,R3 


™e Ne Yo Ye Teo Ne Ye Ne Ne Ne Ne Ye we 


#9,R6,R6 CONVERT TO BYTE OFFSET 

R6, RO ADD TO CURRENT BASE WSL 
#“M<R1,R3> SAVE KEY REGS 
S“*#SWPSC_SHLP1PT, R1 LESS STANDARD Pl PAGE TABLES 
80$ BR IF NO EXTENSIONS 

~(R11), (R3)+ STORE A PTE FOR EXTENSION 
R1, 70$ DO ALL EXTENSION PAGE TABLES 


SET COUNT OF STANDARD 
STORE PTE FOR STANDARD 


S*#SWPSC_SHLP1PT, R1 
(R9)+, (R3) + 


R1,90$ — DO ALL STANDARD P1PT 
#°M<R1, R3> RESTORE KEY REGISTERS 
FILLPHD SET UP FOR VALID PHD PAGES 


OFFSET FOR POBR 
FORM POBR BASE VALUE 
OFFSET TO P1BR 


#9, G*SGNSGL_PHDPAGCT, RO 
RO, PHDSL , POBR (R5) 
#9, G*SGNSGL | PTPAGCNT, Ri 


™e we Ye Ve Ye Ye Ye Ye 


FORM P1BR BASE VALUE 
‘COMPUTE ‘CORRECT FREP1VA 


R1, PHDSL , P1BR(RS5) 
RO, PHDSL | EPRER IVA (RS) 


RO,R1 EXTRACT PT SIZE TOTAL 

#-9, RO, RO _ BACK TO PAGE COUNT 

RO, PHDSL __P1LR (R5) NOW CORRECT Pl LENGTH REGISTER. 
#-2,R1,R1 se COUNT OF AVAILABLE PTES 

RO, R1 DIMINISH BY PHD WINDOW SIZE 

#7,R1 GUARANTEE 7 FREE PTES FOR TB PREFETCH 


Se Se Ne Ne Me Ne Ne Ne Me: Se we 


HARDWARE 


R1, PHD$L_FREPTECNT (R5) AND FORM COUNT OF FREE PTES 


se 


THE FOLLOWING SHUFFLE OF THE WORKING SET LIST REARRANGES ALL WORKING SET 


100$: 


-REPEAT SHUFFLE _ COUNT 


MOVL 


-ENDR 


CLRL 


ADDL3 


- PHD$L_WSLIST(R5) , RO 


; ce 
3 LIST ENTRIES THAT ARE NOT KERNEL STACK PAGES. THE SWAPPER MAP IS BEING 
3 REORDERED TO AGREE_ WITH THE WORKING SET LIST DEFINED IN THE SHELL. 


COUNT FROM wsL TEMPLATE 
REARRANGE SWAP PAGE LIST 


we Ye 


(R9)+, (R11) + 


(R11) + ; SET STOPPER IN MAP 


#512, PHDS$L_FREP1VA(RS) ,- 3 SET ADDRESS OF WINDOW 
G*<SWPSAL_ PTRPAG+- 3 INTO POINTER PAGE 


<CTL$GL_PHD-CTL$GL_VECTORS>> + THROUGH SWAPPER MAP 
R4, G*<SWPSAL_PTRPAG+- ? SET PCB ADDRESS 

<CTL$GL _ PCB-CTLSGL_| VECTORS>> ? THROUGH SWAPPER MAP 
#PCBSV | PHDRES, PCBSL dh 100$; MARK PHD RESIDENT 


we 


GET INDEX TO WS BASE 


we Ne 


RO 

RO, G*SGNS$GL_MAXWSCNT, R1 
R1, PHD$L_WSEXTENT (R5) 
R1, PHD$L_WSAUTHEXT (R5) 


Calculate maximum working set, 
store as extent 
store as authorized extent 


—e Re 


RO, #<1@16>,R2 


=e 


Limit working set quota to 64K pages 
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1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 


1058: 


me Se Se 


1108: 


ee te Ye Ye %e Be Ye Ye Ve 


=e Se 


7 


CMPL R1,R2 

BLEQU  105$ 

MOVL  R2,R1 

MOVL = R1, PHD$L_WSQUOTA(R5) 
MOVL = R1, PHDSL_WSAUTH (R5) 


** This limit cannot be removed until 
** pagefile allocation routines can 
** handle arbitrary request sizes 
store as working set quota 

store as authorized working set quota 


we te Se Ne Me 


MOVL G“SGNS$GL_MINWSCNT, PHDSL_WSFLUID (R5) SET FLUID REQUIREMENT 


ve 


MOVL § G“SGNS$GL_DFWSCNT, R1 
ADDL _—R1, RO 

MOVL = RO, PHDSL_WSLAST (R5) 
MOVL §_ RO, PHD$L_DFWSCNT (RS) AND DEFAULT COUNT 
MOVL _—R1, PHDSL_WSSIZE(R5) SET WS SIZE 

ADDL _—R5, PHDSL_POBR(R5) ; BIAS PO BASE REGISTER 

ADDL _—R5, PHDSL_P1BR(RS5) + AND Pl BASE REGISTER ALSO 


GET DEFAULT WS SIZE 
CALC LAST 
SET LAST 


™e Ne Te VO Ne 


REMAP SYSTEM SERVICE VECTORS FOR THIS PROCESS 


MOVL #P1SYSVECTORS, R2 PUT THEM HERE 

JSB G“MMGSSVAPTECHK GET ADDRESS OF PTE FOR VECTORS 
MOVL G*SGNSA_COMPVALUES+MMG GL SPTBASE, RO ? SYSTEM PAGE TABLE 
MOVZBL #SGNS$C_SYSVECPGS,R1 7 NUMBER OF PAGES 

BISL3 #PTESM_WINDOW, (RO) +, (R3) + 

SOBGTR R1,110$ 


me Se 


THE PAGE TABLE ARRAY FOR LOCKED WSLE’S MUST BE INCREMENTED ONE 
FOR EACH WINDOW PTE. THIS BALANCES THE LOGIC IN $CREPAG/SDELPAG 
THAT PLACES THE PAGE TABLE PAGE IN THE. LOCKED PORTION OF THE 


WORKING SET FOR USER PFNMAPPED PAGES. 


THIS LOGIC ASSUMES THAT THE VECTOR PAGES ALL LIVE IN THE SAME 
PAGE TABLE PAGE. 


SUBL3 PHD$L_POBR (R5) , R3,RO 7;BYTE OFFSET OF PTE 


ASHL #-9,R0,RO 7BYTE INDEX OF CONTAINING PAGE TABLE 
ADDL PHDS$L_PTWSLELCK(R5),RO ;COMPUTE THE ADDRESS OF THE LOCKED 
ADDL R5, RO 7 WORKING SET LIST PAGE TABLE BYTE 


ADDB #SGN$C_SYSVECPGS, (RO) # ARRAY AND INCR BY NUMBER OF VEC PAGES 


CLEAR THE PCB FIELDS THAT WERE USED TO CARRY PAGE FILE 
INFORMATION TO THE NEW PROCESS. THESE FIELDS WILL BECOME THE COMMON EVENT 
FLAG CLUSTER POINTERS. 


-IF NDF PRMSW 

ASSUME PCBSL_EFC3P EQ <PCBSL_EFC2P + 4> 
ASSUME PCBSW | PGFLCHAR EQ PCBSL | EFC2P 

ASSUME PCBSB | PGFLINDEX EQ <PCBSL_| EFC2P + 2> 


-ENDC 
CLRQ PCBSL_EFC2P (R4) 3 START WITH NO COMMON EF CLUSTERS 
RSB 7 RETURN 
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1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 


-SBTTL FILLPHD - SETUP A VALID PHD PTE 
; RO ~ WORKING SET LIST ENTRY, ADDRESS AND FLAGS (UPDATED) 
; R1 - COUNT OF PAGES TO FILL (UPDATED) 
; R2 - WORKING SET LIST INDEX (UPDATED) 
; R3 - SVAPTE FOR PHD PAGE (UPDATED) 
; R4 - PCB. ADDRESS 
3 R5 - PHD ADDRESS 
3 R7 - SCRATCH 
; R8 ~ SCRATCH 
; R10 - PFNS$C_ERKW!PFNSM_MODIFY!PFNS$M_ VALID 
e 
FILLPHD: — . ; SETUP VALID PHD PTES 
10$: MOVL _ RO, (R5) [R2] ; STORE WORKING SET LIST ENTRY 
BICL3 R10, (R3)+,R7 ; GET PFN FROM SPT 
PUSHL G*SGNSA_COMPVALUES+PFN_AB_ STATE ? STACK ADDRESS BASE FOR PFN 
MOVB #<PFNSC _, ACTIVE! PFNSM | MODIFY>, @ (SP) +{R7] 7 MARK PAGE ACTIVE 
PUSHL G*SGNSA_. COMPVALUES+PFN | AB_TYPE 3 STACK ADDRESS BASE FOR PFN 
MOVB #PFNSC | PPGTBL, @ (SP) +(R7); "SET PAGE TYPE TO PAGE TABLE 
PUSHL G*SGNSA_ COMPVALUES+PFN AL BAK 3 STACK ADDRESS BASE FOR PFN 
MOVZBL PHDSB ) PAGFIL(RS5), R8 ; GET PAGE FILE NUMBER 
ROTL #PENSV | PGFLX, R8, @ (SP) +[R7] 7 SET BACKING STORE ADDRESS 
PUSHL G*SGNSA_ COMPVALUES+PFN AL PTE ; STACK ADDRESS OF PFN PTE B 
MOVAL ~4(R3), @(SP)+(R7]} ; SET PTE BACK POINTER FOR PAGE 
7 The following use of the PFN_REFERENCE macro must force absolute addressing 
? because of the peculiar method in which this code executes. In addition, 
+ this code is not a part of the nonpaged executive and cannot have its opcode 
7 automatically fixed up by INIT. 
Cd 
PUSHL G*SGNSA_COMPVALUES+PFN_Ax_WSLX ; STACK BASE ADDRESS OF WSLX 
PFN REFERENCE = 
MOVW <R2,@ (SP) +(R7]>,- + SET WSLX FOR PAGE 
LONG OPCODE=MOVZWL, ~ 
IMAGE=SHELL, - 
MODE=G* 7 FORCE POSITION INDEPENDENCE 
INCL R2 # NEXT WORKING SET LIST ENTRY 
MOVAL 512 (RO) ,RO ; NEXT VA 
SOBGTR R1,10$ ? FILL ALL REQUESTED PAGES 
RSB 3 AND RETURN 
-IF NDF PRMSW 
IF NDF PROCESS _PAGE_DEFINITIONS 
-ALIGN PAGE ? PAGE ALIGN 
- IFF 
o@<.+511>&*XFEOO 
-ENDC 
-ENDC 
DEFINE_CONSTANT SWPS$C_SHELLSIZ, <<.-SHELL>@-9>,SHELL ; SIZE OF SHELL PROCESS IN PAGES 


-IF NDF PRMSW 


-IF GT 
- ERROR 
-ENDC 
- ENDC 


SWPS$C_SHELLSI2-8 
SWP$C_SHELLSIZ; Shell size changed, update swapper and FREELIM 
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1701 

1702 ; 

1703 ; Process IFI/ISI Tables 

1704 ; 

1705 

1706 ; The rest of this module merely defines global symbols and offsets into 
1707 ; various Pl pages. No more storage is added to the SHELL module. 
1708 

1709 -PSECT SABSS$,ABS 

1710 

1711 -=PIOTBL 

1712 TBL: . 

1713 PIO2 Al10 3 LINK TO NEXT TABLE SEGMENT 
1714 -BLKL 1 ? INITIALLY ZERO 

1715 -BLKL §$IMPS$C_NPIOFILES ? IFAB TABLE SLOTS 

1716 

1717 PI02 A20 ? LINK TO NEXT TABLE SEGMENT 
1718 -BLKL 1 ? INITIALLY ZERO 

1719 -BLKL IMP$C_NPIOFILES 7 IRAB TABLE SLOTS 

1720 
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-SBTTL COMMAND LANGUAGE INTERPRETER DATA. AREA | 


“1722 
1723 


1724 
1725 


1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 


-=CLIDATAPAG 


“DEFINE SYMBOL 


-BLEL 
-BLKL 
DEFINE_SYMBOL 
-BLKL 
DEFINE_SYMBOL 
-BLKL 


DEFINE_SYMBOL 
-BLKL 


DEFINE_SYMBOL 
-BLKB 
DEFINE SYMBOL 
.BLKB 
DEFINE_SYMBOL 
.BLKB 
DEFINE SYMBOL 
-BLKB 


-IF NDF PRMSW 


ASSUME <CTLSGT_TABLENAME -cTLSeT_. CLINAME> 
ASSUME <CTLS$GT_SPAWNCLI 
ASSUME <CTLSGT_SPAWNTABLE-CTLS$GT_CLINAME> 


-ENDC 


DEFINE_SYMBOL 


CTLGAL_CLICALBR 
1 
1 
CTLSAG_CLIMAGE 
2 
CTLSAG_CLITABLE 
2 


CTL$GL_UAF_FLAGS 
1 


CTL$GT_CLINAME 
POQB$S_CLI_NAME 
CTL$GT_TABLENAME 
POB$S_CLI_TABLE 
CTL$GT_SPAWNCLI 
PQB$S_SPAWN_CLI 
CTL$GT_SPAWNTABLE 


POBSS SPAWN TABLE 


CTLS$AG_CLIDATA 


=e Ve Se ™e Se Re Ye 


we 


=e Ye Ye Me Ye Ne Ye oe 


-CTL$GT_CLINAME> 


SET BASE VALUE FOR REGION 
CALL BACK VECTOR FOR CLI 


ALLOW FOR EXPANSION 


VA RANGE INTO WHICH CLI IS MAPPED 
VA RANGE INTO WHICH CLI TABLE IS 
MAPPED. 


FLAGS FROM AUTHORIZATION RECORD 


CLI NAME (FILE NAME ONLY) 

STORED AS COUNTED ASCII 

CLI TABLE NAME (FULL FILE SPEC) 
STORED AS COUNTED ASCII 

SPAWN CLI NAME (FILE NAME ONLY) 
STORED AS COUNTED ASCII 

SPAWN CLI TABLE NAME (FULL FILE SPEC) 
STORED AS COUNTED ASCII 


EQ <POBS$T_CLI_TABLE -PQB$T_CLI_NAME> 
EQ <PQBST SPAWN_CLI -PQBST_CLI_NAME> 
EQ <PQBST_ SPAWN TABLE-PQB$T_CLI_NAME> 


7 START OF DATA AREA 


SIZE OF DATA AREA 


DEFINE_CONSTANT CTL$C_CLIDATASZ, <CLIDATAEND-CTLSAG_CLIDATA>, SHELL 
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1759 -SBTTL COMPATIBILITY MODE EMULATOR CONTEXT PAGE 

1760 : Se See re Te ee oem eee Ge tee EY OED ee GE One ee CORE OE cee A Me EE Om ee Oe ee Ge ES OP OS ee a wen coms OE HS a Re Se oe a oe > ee ee cole ey Oe Sie ee OD Me SD Oy Rt ND Op eee ED ey SES OD soe a ee 
1761 ; COMPATIBILITY MODE EMULATOR CONTEXT PAGE 

1762 penn nn nn nn nn nn nn nn nn nnn nn ne on nn oo nn nn oo no nn ne ne nn nn nn nn nn nn enn nn nnn n= 
1763 -*CTLSAG_CMEDATA 3 POINT TO START OF AREA 

1764 DEFINE_SYMBOL CTLSAL_CMCNTX 7 COMPATIBILITY MODE REGISTER CONTEXT 
1765 -BLKL 10 7 SAVED BY EXCEPTION 

1766 
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-SBTTL GLOBAL USER-MODE CONTEXT PAGE 


1768 
1769 


1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 


1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 


=e Ne Ne Ns Ne =e 


se Se 


ve 


-=UWVECPAG 


DEFINE_SYMBOL 
-BLKL 
DEFINE_SYMBOL 
-BLKL 
DEFINE_SYMBOL 
-BLKL 
DEFINE SYMBOL 
.BLKL 
DEFINE_SYMBOL 
-BLKL 
DEFINE _SYMBOL 
.BLKL 
DEFINE SYMBOL 
-BLKL 


DEFINE_SYMBOL 


-BLKB 


; THE REST OF 


GLOBAL USER-MODE-ONLY CONTEXT PAGE 


This page may ONLY be used by user-mode code, since the data 
has absolutely no protection from errant user-mode programs. 
Do NOT use this area for cells which cannot be wiped out by 
any user-mode program at any time during image execution, 
except when it only prevents that program from running. 


=e 


POINT TO START OF AREA 


CTLS$GL_DCLPRSOWN ADDRESS OF DCL WRK AREA CREATED 


1 ; BY DCL OR CLISDCL_PARSE . 
CTLSGL_CLINTOWN ; ADDRESS OF CONTEXT BLOCK USED BY 

1 i ; CLISINTERFACE PACKAGE IN DCL/MCR 
CTLS$GL_PSTFLAGS, PROCESS_SCHED ; Process start flags 

1 
CTLS$GL_VVIEF_BASE, VOLATILE ; Base address of VVIEF 

1 ai. . 
CTL$GL_VVIEF_END, VOLATILE ; End address of VVIEF 

1 F; * cA . F : 


CTL$GL_VVIEF_ADDR, VOLATILE ; Transfer address of VVIEF 
1 


‘CTLS$GL_VVIEF_FLAGS, VOLATILE ; Flags longword for VVIEF 


1 E 
CTL$GB_SOFT_AST_DISABLE, VOLATILE ; ADDRESS OF LONGWORD USED FOR 


1 7 FAST $SETAST FLAGS 


THIS PAGE IS UNUSED 
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1800 
1801 


1802 
1803 
1804 
18605 
1806 
1807 
1808 
18609 
1810 


1611 
1812 
1613 
1614 
1615 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1955 
1856 
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IMAGE ACTIVATOR CONTEXT PAGE 


The following page contains image activator context that must 
remain behind after an image is activated. The IAFLIST survives 
across successive activations. The IAFEXE and IAFMERGE lists are 
cleared when a new image activation is initiated. The FIXUP link 
is cleared as soon as a given fixup pass completes. 


“Me Se te Ye Ye Yeo Ye Ve 


Zeer eeeere ew ew am a a em ow 2 PED an ap 6D an AD aD ene ep an Gan en ee er aneran Ee OW OW ON WS wBee weaw > Op @D GD ob OD Ee OD OD On om oD ae a ow 


e®IMGACTCTX : Point to start of area 


DEFINE SYMBOL CTL$GL_IAFLINK, IMAGE_ACTIVATOR ; Listhead of linked list of fixup vect 

: -BLKL 1 3% (containing shareable image lists) 
DEFINE SYMBOL CTLS$GL_IAFLAST, IMAGE ACTIVATOR ; Address of last fixup vector in list 
-BLKL 1 7 (used in normal and merged image activati 


DEFINE_SYMBOL CTLS$GL_FIXUPLNK, IMAGE ACTIVATOR ; Listhead of linked list of fixup 
-BLKL 1 7 vectors used during fixup pass 


DEFINE SYMBOL CTLSGL_P1MERGE, IMAGE_ACTIVATOR ; Listhead of linked list of fixup vect 
-BLKL 1 3 for images merged into Pl space 


? The following data structure is an empty fixup vector that facilitates 
? the fixup vector list manipulation. It is plugged into the fixup vector 
7 lists by PROCSTRT when a process is first created. 


DEFINE _ SYMBOL CTLSGL | IAFPERM, IMAGE_ACTIVATOR 
-BLKB IAF SK _ LENGTH 


3 The following label locates the link field in the just allocated structure. 
¢ While an image is active, it locates the fixup vector for an executable image. 
7 It is cleared as part of the image activation initialization code path. 


DEFINE CONSTANT CTLS$GL_IAFEXE ,<CTLSGL_IAFPERM + IAF$L_IAFLINK>, - 
<IMAGE_. "ACTIVATOR, SHELL> 


DEFINE_SYMBOL IACS$GL_IMAGCTX, IMAGE ACTIVATOR 
-BLKL 1 7 Context that exists for life of image 


DEFINE SYMBOL IAC$GL_PROCCTX, IMAGE ACTIVATOR 
-BLKL 1 3 Context that exists beyond image exit 


DEFINE SYMBOL IACSAL_VECADDR, IMAGE ACTIVATOR 
-BLKL 4 7; Array of altered opcode addresses 


DEFINE SYMBOL IACSAL_VECOPCOD, IMAGE_ACTIVATOR 
-BLKB 4 ; Array of saved opcodes 


DEFINE SYMBOL IACSAW_VECRESET, IMAGE_ACTIVATOR 
-BLKW 6 ; Array of offsets used to reset vectors 


DEFINE_SYMBOL IACSAW_VECSET, IMAGE ACTIVATOR 
-BLKW 6 ; Array of offsets used to locate vectors 


? The following linked list contains image control blocks for all of the 
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1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 


1881 


1882 
1883 
1884 
1885 
1886 
1887 
1888 


1889 


1890 
1891 


3; images currently mapped into a process’ address space. 


DEFINE _SYMBOL IAC$GL_IMAGE_ LIST, IMAGE_ACTIVATOR 
-BLKL 2 _ 3 Room for forward and backward links 


? The following linked list is used by the image activator to record work 
# in progress. It is empty while an image is executing. 


DEFINE SYMBOL IAC$GL_WORK_ LIST, IMAGE_ACTIVATOR 
-BLKL 2 # Room for forward and backward links 


The following list is a potential source of unused image control blocks. 
Although empty when a process is created, it grows to reflect the largest 
number of images activated at the same time. 


we Ye Ye 


DEFINE_SYMBOL IACSGL _ ICBFL, IMAGE _ ACTIVATOR 
-BLKL 2 3 Room for forward. and backward links 


7 The following two cells locate the ICB for the main image and the ICB for 
7 the image most recently merged into the address space. 


DEFINE SYMBOL IACS$GL_MAIN_ICB, IMAGE_ACTIVATOR 
-BLKL 1 | -; ICB of main image 


DEFINE_SYMBOL IACS$GL FIRST ICB, IMAGE ACTIVATOR 
-BLKL 1. . = 7 ICB of image just merged 


DEFINE SYMBOL IACSGL_STACK_SIZE, IMAGE_ACTIVATOR 
-BLKL 1 ? Amount by which to espana user stack 


# The following cell isa descriptor pointing.’ to a list of identifiers, built 
7 by the image acrivator.. These identifiers go away at image rundown. 


DEFINE_: SYMBOL TAC$GQ_ IMAGE _ IDS, IMAGE ACTIVATOR 
-BLKQ 1 —_ . - ¢ Your basic descriptor 
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1893 
1894 


1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 


1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
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4 


me Be Ye Yo Be Ve Ve Ye Ye Ve Ye Ye No 


@e 


-=CTL$A_PRCPRM_KDATA 


KDATA_BEGIN=. 


DEFINE_SYMBOL 
-BLKL 


DEFINE_SYMBOL 
-BLKQ 
DEFINE_SYMBOL 
-BLKL 
DEFINE_ SYMBOL 
~BLKL 
DEFINE_SYMBOL 
~BLKL 


DEFINE_SYMBOL 
-BLKQ 
DEFINE_SYMBOL 
-BLKL 
DEFINE_SYMBOL 
-BLKL 
DEFINE _SYMBOL 
-BLKL 


DEFINE_SYMBOL 
-BLKL 
DEFINE_SYMBOL 
~BLKL 


DEFINE_SYMBOL 
.BLKL 
DEFINE_SYMBOL 
-BLKL 


KDATA_END=. 
.IF NDF PRMSW 


Kernel mode, process OWN data pages 


The following pages are for use by VMS kernel mode 

facilities for process OWN storage. The decision to place a 
data cell here should be predicated on the same criteria 
used for the Pl pointer page. However, preference should be 
given to this location, since these pages are not permanently 
locked in the process working set. 


Note that these pages are demand zero, implying that if non-zero 
initial contents are required, then the initialization must be 
done by code in EXESPROCSTRT. 


3 Point to start of area 


CTL$GL_LICENSE_CNT, VOLATILE ; 
1 ; 


LMF - count of licensed products 
currently active for this process 


CTL$GQ_RMS_RUREC_LKSB, FILES VOLUMES ; 
1 

CTLS$GL_RMS_RUJ_COUNT, FILES VOLUMES ; Active recovery unit journal coun 
1 

CTLS$GL_RMS_RUJLCK_FLINK, FILES VOLUMES ; RU journal lock block (RUJLCK) 
1 # (note: initialized by RMS, not PROCSTRT) 

CTLS$GL_RMS RUJLCK_BLINK, FILES VOLUMES ; RU journal lock block (RUJLCK) 


Recovery unit doorbell lock LKSB 


1 2 «(note: initialized by RMS, not PROCSTRT) 
CTLSGQ_JPICTX, MISC 3 JPI context segment queue header 

1 
CTL$GL_JPICTXCNT, MISC 3 Count of allocated context segments 

1 : 
CTLS$GL_UAICTX, SECURITY 3? Pointer to UAI context segment 

1 
CTL$GQ_MISC_P1_FLAGS,MISC ; Miscellaneous P1 flags. The values 

2 , 3 used are defined in $CTLP1FLAGSDEF in 

? SYSDEFAE.SDL. 


CTL$GQ_RMCB_QUE, VOLATILE ; Process list of resource managers — 


2 
CTL$GL_CUR_XSCB, VOLATILE ; Current default transaction pointer 
1 
CTL$GL_POSIX_1,MISC 3 POSIX cell 1 
1 
CTL$GL_POSIX_2,MISC 3 POSIX cell 2 
1 


ASSUME <KDATA_END - KDATA_BEGIN> LE <2*512> ;Kernel data area > 2 pages 
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1950 


1951 


1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 


1960 . 


~~ 1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 


we te 


me te Ne te Se Ne 


IFT 


These symbols (SYS$...) specify which cells in the P1 pointer page may 
be used by any program, regardless of system version, without having 
to link with SYS.STB (and thus, make it system dependant). 


These symbols will remain constant forever and will continue to be supported 
from release to release. 


7 FOR USRVECTOR MODULE ONLY 


.MACRO USRSYM SYM, VALCHECK, CTLSYM: 


IF B, CTLSYM 
SYS$'SYM == CTLS$’ SYM 
IF NB, VALCHECK 
IF NE, CTL$’ SYM’ -*X’ VALCHECK’ 


-ERROR ; *** CTLS$’SYM’ MUST EQ AX" VALCHECK’ TO REMAIN COMPATIBLE WITH PREVI 
-ENDC 


-ENDC 
-IFF 
SYS$'SYM == CTLS’ CTLSYM 
-IF NB, VALCHECK 
IF NE, CTLS$’ CTLSYM’ ~*X’ VALCHECK’ 


~ENDC 


«ERROR ; *** CTLS$’CTLSYM’ MUST EQ “X’VALCHECK’ TO REMAIN COMPATIBLE WITH PR 
-ENDC 
-ENDC 
-ENDC 
-ENDM 


-DISABLE TRACEBACK 


we 


Address of 2 pages of AME storage 
Points to IMGACT fixup listhead 


USRSYM GL_CMCNTX, 7FFEFF88 

USRSYM GL_IAFLINK, 7FFEFF8C, - 
GL_IAFLNKPTR 

USRSYM GL_IMGLSTPTR, 7FFEFE84 7 Points to ICM list (for debugger) 


=e 


“e 


OF LIBSWITCH CONDITIONAL STARTED AT PSECT 


«END 
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DECLARATIONS 

EXESSUSPND ~- SUSPEND SYSTEM SERVICE 

KERNEL AST THAT SUSPENDS PROCESS 

G“*EXESRESUME - RESUME SYSTEM SERVICE 

G“EXESHIBER - HIBERNATE SYSTEM SERVICE 

G*EXESWAKE - WAKE SYSTEM SERVICE 

G“EXESNAMPID - CONVERT PROCESS NAME TO PID 

EXESCHECK_PCB_PRIV ~ Check ability of one process to affect anoth 
CWPSSCHECK_NODE - check epid for valid remote node 


. EXESxPID | TO ) xxx - CONVERT PID TO OTHER PID OR PCB aooress 


G*EXESSETPRN - SET PROCESS NAME 
CWPSSPARSE_PRCNAM - CWPS PARSE PROCESS NAME 
PARSE_} NODE - PARSE NODE NAME 

CWPSSPCNTRL Cluster pentrl dispatcher 
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+ 
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' .TITLE SYSPCNTRL PROCESS CONTROL SERVICES 
- IDENT "X-14" 


Pace) 


COPYRIGHT (c) 1978, 1980, 1982, 1984, 1988 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS. SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. . 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


‘DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FACILITY: EXECUTIVE, PROCESS CONTROL SYSTEM SERVICES 


ABSTRACT: 


THIS MODULE CONTAINS THE ROUTINES WHICH IMPLEMENT THE PROCESS 
CONTROL SERVICES, SUSPEND, RESUME, HIBERNATE AND WAKE. 


AUTHOR: | 


R. HUSTVEDT 


MODIFIED BY: 


X-14 PTO0035 Pankaj Tandon 04-Apr-1989 
Clear suspen bit necessarily on preemption exit 
and eliminate state causing Ssuspnd to be short 
circuited. 


X-13 CWH5113 CW Hobbs 77-Dec-1988 
Move the process name check, so that we look for a 
process named TIGNES: :LELAC on the local node before 
we look for a process named LELAC on node TIGNES. 
Remove group specification code from process naming. 
Remove CWPS conditionals. 

Streamline the path through EXESNAMPID for the 
current process, since 80 to 90% of the calls 

to EXESNAMPID default both parameters. 

Check that EXESNAMPID is called at IPL 0, and fix 
some inconsistent IPL usage in CWPS code. 

Use EXESAR_UPCASE_DAT table to upcase nodenames. 
Correct inconsistent case conventions. 


PETTITT TTT TITTLE LILI LITT LITT LiTiiirrititiiritin 


a a ae a a a a ar ar ar ee er | 


RIKKI RIKKI KK KHEKK IKKE EKKEKEKRKEKKEKKERRKEKKKKEKEREKKKEKEKKKKREKKREKKKK EK 
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59 
60 
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62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
719 
80 


114 


Re Ve Me Me te Ye Ve Ne Ye Te Ye Ye Te Te Ye Te Ye Ve Ye Ye Te Ye Yo Ye Ve Ye Ve Ye Be Te Se Ye Wo Ye Vo 


™e Ye Be Be Ve Se Ye Ve Ve Ve Ze Ve 


Me Se Se Ye Ye Se Ne Ye Yo Ve 


X-12 


_CWH5112 .CW Hobbs . 25-Oct-1988 


Remove special case treatment of node field of zero 
being the local node. Now that the services are 


' clusterwide, that could lead to a hit against the 


X-11 


X-10 


X-7 


vo4-001 


Vv03-013 


v03-012 


vo3-011 


wrong process. The entire PID will have to be used. 


- $SA0001 Stan Amway 13-Sep-1988 


Honor NOSUSPEND bit in $SUSPND. 


CWHS5110 CW Hobbs 29-Aug-1988 
Add support for CWPS. . 


RNG5009 Rod Gamache 16-Jun-1987 
Release SCHED spinlock before call to ALLOCIRP. 


JWT0276 Jim Teague 15-Jan-1987 
Fix what was a reference to pageable code after 
returning from EXESNAMPID. Also, fix bug that 
occurs when a process is resumed after a hard 
suspend had overriden a soft suspend. 


JWT0275 Jim Teague — 12-Jan-1987 
Fix bug in some error paths. 


JWT0263 - Jim Teague | 11-Nov-1986 
Implement SOFT SUSPEND: wait the process at SUPER 
AST mode. ASTs at EXEC mode or KERNEL mode thereby 
become deliverable. After delivery, the process 
re~suspends itself at SUPER AST mode. 


RNGOOO4 Rod Gamache 11-Nov-1986 
Fix code broken by previous edit. 


RNGOOO4 Rod Gamache 29-Oct-1986 
Fix branch errors. 


SF04001 Stephen Fiorelli 24-Oct-1985 
System_service macro used to declare entry point 
and build system service descriptor block. 

Added $SYSVECTORDEF. 


LJKO0256 Lawrence J. Kenah 77-Dec-1983 
Only allow ASTs if XQP thread is active. Clear SUSPEN bit 
if pool allocation fails. 


CWH3012 CW Hobbs 27-Sep-1983 
In G*EXESIPID TO EPID treat a null IPID as a special case, 
and return the null. 


LJKO250 Lawrence J. Kenah 31-Aug-1983 
Set the SUSPEN bit before lowering IPL to zero to insure 
that the PCB of the target process has not disappeared. 


Make the SUSPND AST a regular kernel AST so that it properly 
interlocks with the XQP. Include the interlocking code. 
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115 
116 
117 
118 
119 
120 
121 
122 

123 
124 

(125 
126 
127 
128 
129 
130 


131 


132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 


148 


Re Ne Ne Ne Se Se Se Ne Ye Se te Ne Ye 


me Be Se te 


me Me Me Se Me Me Me Se Me Se Ne 


se Ye Fe Me Ne Ne 


Vv03-010 


V03-009 


-V03-008 


V03-007. 


V03-006 


V03-005 


V03-004 


Vv03-003 


CWH1007 CW Hobbs = 2 14-May-1983 
Enable the storing of the actual cluster node info in the 
high bits of the EPID. 


CWH1003 CW Hobbs 27-Apr-1983 
Change pid conversion routines to do more checking 
of pid against pids stored in PCB. Make sure that 
condition codes reflect final value in RO. 


LJKO197 Lawrence J. Kenah 25-Mar-1983 
Insure that all success paths raise IPL to SYNCH. 


ACGO0321 Andrew C. Goldstein, 24-Mar-1983 0:19 
Allow non-privileged control over processes of equal UIC 


ROWO0168 Ralph O. Weber 3~MAR-1983 
Change W* references to G*. 


CWH1002~ = CW Hobbs . -- 19-Feb-1982 
Modify G*EXESNAMPID to use extended PIDs, add PID conversion 
routines: 
G*EXESIPID ' TO PCB 
G*EXESEPID | TO | PCB 


‘J intevnel pid to peb addres 
- extended pid to peb addres 


G*EXESIPID | TO | ) EPID - internal pid to extended pid 
G*EXESEPID ' TO_ IPID - extended pid to internal pid 
LJK0188 Lawrence J. Kenah 22-Oct-1982 


Do not allow processes that are being. deleted to also 
be suspended. 


KDM46395 _ Kathleen D. Morse 28-Jun-1982 
Change word displacement to longword. oe ey 


135 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SYSPCNTRL PROCESS CONTROL SERVICES :10-MAY~-1989 16:43:21 VAX MACRO V5.0-8 Page 4 
X-14 DECLARATIONS 7-APR-1989 13:14:34 [SYS.SRC]SYSPCNTRL.MAR;1 (2) 


.SBTTL DECLARATIONS 


150 
151 
152 
153 
154 
i155 
156 
157 
158 


159. 


160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 


188° 


189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 


202 
203 
204 
205 
206 
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INCLUDE FILES: 


we Se te 


SACBDEF 

' $CLUBDEF 
S$CPUDEF 
SCSBDEF 
SCWPSDEF 
SDYNDEF 
SIPLDEF 
SLOGDEF 
SPCBDEF 
SPRDEF 
S$PRIDEF 
SPRVDEF 
SPSLDEF 
SRSNDEF 
S$SBDEF 
SSFDEF 
SSSDEF 
S$STATEDEF 
$SYSVECTORDEF 
SUICDEF 


EQUATED SYMBOLS: 


we Se Ye 


2 

PID=4 
PIDADR=4 
PRCNAM=8 
FLAGS=12 


we Ye Ve 


-DISABLE GLOBAL 


™e Ye %e 


- EXTERNAL 


External routines 


™e Ve Ne 


- EXTERNAL 


DEFINE AST CONTROL BLOCK 
CLUSTER BLOCK 

PER-CPU DATA BLOCK OFFSETS 
CLUSTER SYSTEM BLOCK 
CLUSTER-WIDE PROCESS SERVICE DEFINITIONS | 
DYNSC_ structure codes 

IPL DEFINITIONS 

Logical Name definitions 

PCB OFFSET DEFINITIONS 

PROCESSOR REGISTER DEFS 

PRIORITY INCREMENT DEFINITIONS 
PRIVILEGE BIT DEFINITIONS 

PSL definitions 

RESOURCE NUMBER DEFINITIONS 

SYSTEM BLOCK DEFINITIONS 

Saved call frame definitions 

STATUS DEFINITIONS 

SCHEDULER STATE DEFINITIONS 

Define system service vector offsets 
UIC FORMAT DEFINITIONS for CWPS 


Re Me Se te Me Me Ye Ne te Ne Se Se Ye Ne Ye Se Ne Ye Ve Ye 


DISPLACEMENT TO PID ARGUMENT 
DISPLACEMENT TO PID ARGUMENT 
DISPLACEMENT TO PROCESS NAME 
Displacement to flags longword 


we Ne Ne Yo 


Make sure that we know that externals are intentional 


External data and addresses 


BUGS$_CWSERR, BUG$ SSRVEXCEPT, CLUSGL_CLUB, - 
CLUSGL , CLUSVEC, CLUSGW | MAXINDEX, SCHSGL ) MAXPIX, - 
SCHS$GL | , PCBVEC, SCHSGL _ PIXWIDTH, SCHSGQ ) HIBWO, = 
SCHS$GQ | ) SUSP, SCHSGW | LOCALNODE, EXESAR _| UPCASE DAT, - 
EXESC | CMSTKSZ, SYS$S0_| VECTOR_BASE 


EXESALLOCIRP, SCHSNEWLVL, SCHSQAST, SCHSRSE, SCHSRWAIT, - 


SCHSWAIT, SCHSWAITK, SCHSWAKE, SMP$GET_CURPCB, - 
CWPSSALLOCATE_SRV, CWPS$SSND_PCNTRL_ROST 


3 A macro to conditionally check current IPL. If IPL is greater 
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207 ; than the max permitted, a bugcheck is taken 


208 ; - 
209 

210 -MACRO CHECK IPL | MAX_IPL PERMITTED, ?L1 

211 

212 -if NE, cwps$_scared 

213 . mfpr ._ s“#pr§$_ipl, -(SP) - | # Push the current IPL 
214 compl #<MAX_IPL_PERMITTED>, (SP)+ z Is it what we want? 
215 bgequ Ll. : OK, we can continue 
216 bug_ check CWSERR, FATAL # Too high, make noise 
217 Ll: -endc 

218 

219 -ENDM 

220 

221 -MACRO CHECK IPL EQL IPL REQUIRED, ?L1 

222 

223 -if NE, cwps$_scared 

224 mfipr s*#tpr$_ipl, -(SP) 7 Push the current IPL 
225 cmpl - #<IPL_REQUIRED>, (SP) + 3 Is it what we want? 
226 beql Ll 3; OK, we can continue 
227 bug_check: CWSERR, FATAL ? Too high, make noise 
228 L1: -ende 

229 

230 -ENDM ae 

231 0 

232 

233 DECLARE_PSECT EXECSNONPAGED CODE ; NONPAGED EXEC 

234 
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246 
247 
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254 
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257 
258 
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260 
261 
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263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 


ve 


we Me Ye Me Se Ye MS Ye Me Me Ye Me Me Ne ee Me Xe Me Me Me Se Ve Ne Te Ve Se Yo Ve Ve ™e te Ve Yo Ne Ne 


™e Ne Ne Ye Ye Te Te Ne Vs Ve 


=e 


CHECK _PRIV: 


+ 
+ 


-SBTTL EXESSUSPND ~ SUSPEND SYSTEM SERVICE 


G“EXESSUSPND - SUSPEND SYSTEM SERVICE 


FUNCTIONAL DESCRIPTION: 


G“EXES$SUSPND IMPLEMENTS THE SUSPEND PROCESS SYSTEM SERVICE. 
THIS SERVICE CAUSES THE SPECIFIED PROCESS TO BE SUSPENDED 
BY INITIATING A KERNEL MODE AST IF NOT THE CURRENT PROCESS. 
A SUSPENDED PROCESS CANNOT RECEIVE ASTS AND WILL ONLY BE 
RESUMED AS A RESULT OF THE RESUME SYSTEM SERVICE OR A 
DELETE PROCESS REQUEST. 


CALLING SEQUENCE: 


CALLG ARGLIST, G*EXESSUSPND 


INPUT PARAMETERS: 


04(AP) - PROCESS IDENTIFICATION POINTER (PID) 

08 (AP) - PROCESS NAME DESCRIPTOR POINTER 

12(AP) - FLAGS input. Bit # 0 being set 
indicates that this should 
be a HARD suspend against 
delivery of all ASTs. 


R4 - PCB ADDRESS OF CURRENT PROCESS 


IMPLICIT INPUTS: 


PCB OF CURRENT PROCESS 
PCB OF TARGET PROCESS 


OUTPUT PARAMETERS: 


RO - COMPLETION STATUS 
@PID(AP) - PROCESS IDENTIFICATION OF TARGET PROCESS 


COMPLETION CODES: 


SS$ NORMAL - NORMAL SUCCESSFUL COMPLETION 

SS$_NOPRIV - INSUFFICIENT PRIVILEGE FOR REQUESTED OPERATION 
SS$ NONEXPR - NON-EXISTENT PROCESS 

SS$_ACCVIO - ACCESS VIOLATION ON WRITE DESTINATION 
SS$_INSFMEM - INSUFFICIENT DYNAMIC MEMORY FOR REQUEST 


( ONLY RETURNED IF NO RESOURCE WAIT ENABLE ) 


SIDE EFFECTS: 


NONE 


MOVPSL R2 Get mode of caller 

EXTZV #PSLSV_PRVMOD, - 
#PSL$S_PRVMOD, R2, R3 

CMPB R3, #PSL$C_EXEC 


BLEQU SET_KERNEL 


ve 


R3 = mode of caller 
Was caller at least in EXEC mode? 
Take branch if KERNEL mode 


=e te Ne 


MOVZWL #SS$_NOPRIV, RO 
BRB EXIT_HELPER 


If none of above, NOPRIV 
Exit with RO 


se Me 
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293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
— 320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 


CANT READ: 


MOVZWL #SS$_ACCVIO,RO Can’t read FLAGS arg 


=e 


EXIT_HELPER: 


BRW EXIT 


; Exit with RO 


SET KERNEL: 


ASSUME PSLSC_KERNEL EQ 0 
CLRB R5 # access mode of this request is kernel 
BRB COMMON 
NOSUSPEND: 
MOVZWL #SS$_NOSUSPEND, RO 
BRW EXIT_RO 
3; Process is being deleted 
DELPEN: MOVZWL #SS$_NONEXPR, RO RETURN NO SUCH PROCESS IF DELPEN 
BRW EXIT_RO + EXIT AND UNLOCK SCHED 
SYSTEM _ SERVICE SUSPND, - 
_  €R2,R3,R4,R5,R6>,- 
MODE=KERNEL, - 
NARG=2 
-MOVZBL #PSLSC_SUPER,R5 * R5 = access mode of this request 
7 (assume SUPER mode for now) 
MOVL SF$L_SAVE_FP (FP), R3 ; Get previous call frame 
MOVL » SF$L_SAVE_PC(R3) ,R6 7 Find out from whence we came 
CMPB (AP) , #2 ; More than 2 args? 
BLEQU COMMON : none 
IFNORD #4,FLAGS(AP),CANT READ ; Can we read 3rd arg? 
BLBS FLAGS (AP) , CHECK_PRIV ; HARD bit set? 
3 The SCHED DATABASE is locked by EXESNAMPID 
COMMON : 
BSBW EXESNAMP ID ; Translate and verify args 
ASSUME DYNSC_CWPS SUSPND EQ CWPSSRVSK_SUSPND 
MOVZBL #DYNSC_CWPS SUSPND, R3 ; Load subtype for CWPS 
BLBC RO, EXIT_HELPER : Exit with error in RO 
-PUSHL) = R1 + Save PID 
BBS #PCBSV_DELPEN, PCBSL_STS (R4) ,- 3; Exit if being deleted 
DELPEN 
BBS © #PCBSV_NOSUSPEND, PCBS$L_STS(R4),- ; BR if suspend not allowed 
NOSUSPEND 
BBCS #PCBSV_SUSPEN, PCB$L_STS (R4) ,100$ ; Already suspended? 
BBC #PCBSV_SOFTSUSP, PCBSL_STS (R4) ,150$ : Soft suspend? 
1008: TSTB R5 | + Hard suspend? 
BEQL 160$ ? Take branch if so 
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350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
3861 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 


1108: 


1208: 


1308: 


131$: 


1408: 


1508: 


1608: 


MOVAB 
CMPL 


BEQL 
ASSUME 
BISB 
UNLOCK 
JSB 
BLBC 
MOVL 
MOVAL 
MOVB 
MOVL 
CLRL 
BRB 
BBS 


ASSUME 


BISB 


BBSC 
MOVAQ 
MOVL 
MOVO 
ADDL 
SUBL 
JMP 


BRW 


BRW 


W“SUSPEND SOFT RETURN, R2 Soft suspend request 


R2,R6 ; Did we get here from the 
3 SUPER AST? 
130$ 7 If s0, take branch 


PCBSV_SOFTSUSP GE 24 
#<1@<PCBS$V_SOFTSUSP-24>>, - 


PCBSL_STS+3 (R4) If not, set SOFT SUSPEND bit 


; 
LOCKNAME=SCHED, - ? unlock sched spinlock 
PRESERVE=NO 7 don’t preserve RO 
G“EXESALLOCIRP 7 allocate i/o packet for ast 
RO, 140$ 
R2,R5 3 setup pointer to ast control blk 


W*SUSPEND_SOFT, ACB$L_AST(R5) 
#PSL$C_SUPER, ACB$B_RMOD (R5) 
(SP)+,ACBS$L_PID (R5) 

R2 

170$ 


set for super ast on process 
set access mode for ast 

set pid for ast 

set null priority increment 


ee Se Ve Veo 


#PCBSV_PREEMPTED, PCB$L_STS(R4) , 131$ 


PCBSV_SOFTSUSP GE 24 
#<1@<PCBSV_SOFTSUSP-24>>, - 
PCBSL_STS+3 (R4) If not, set SOFT SUSPEND bit 


# thus enable suspension 
#PCBSV_SOFTSUSP, PCBSL_STS(R4),190$ ; If soft suspend 


#PCBSV_RESPEN, PCBSL_STS (R4) ,180$ # and no RESUMEs pending 
G*SCH$GQ_SUSP, R2 then set up to wait 


FP, SP 3; in mode of caller. 

' 8(SP),AP 3 Clean stack first 
S“#EXESC_CMSTKSZ, SP ? Back up PC (now points to 
#4, (SP) : CHMK code) 

G*“SCHSWAITK 3; Wait... 


EXIT_NO_ POOL 


EXITU 


SUSPND code (old style $SUSPND) 


UNLOCK 


JSB 
BLBC 


MOVAL 
CLRB 
MOVL 
CLRL 


LOCKNAME=SCHED , - # unlock sched spinlock 
PRESERVE=NO 3 don’t preserve RO 
G*“EXESALLOCIRP ? ALLOCATE I/O PACKET FOR AST 

RO, 140$ 7 IF LBC THEN NO PACKET ALLOCATED 
R2,R5 7 SETUP POINTER TO AST CONTROL BLK 
B*SUSPND, ACBSL_ AST (R5) QUEUE KERNEL AST TO SUSPND: 


se Ne 


KERNEL MODE 
SET PID FOR AST 
SET NULL PRIORITY INCREMENT 


ACB$B_RMOD(R5) _ 
(SP)+,ACBSL_PID(R5) 
R2 


=e 


=e 
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407 
408 17038: 
409 
410 
411 1808S: 
412 
413 
414 1908: 
415 
416 1958: 
417 
418 
419 
420 2008: 
421 


JSB 
BRW 


BICL 


BRW 


G*SCHSQAST 
EXITN 


3 QUEUE AST 


3 Exit with normal status 


#<<1@PCBSV_SOFTSUSP>!<1@PCB$V_SUSPEN>>, PCBSL_STS(R4) 


EXITU 


#PCBSV_SUSPEN, - 

PCBSL_STS(R4) ,195$ 
#PCB$V_PREEMPTED, - 
PCBSL_STS(R4) , 200$ 


EXITU 


+ Clear suspen bit anyway 


3 Clear preempted and dismiss 


37 ast 


: 


Exit with normal status 
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423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
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. SUBTITLE 
e+ 
; KERNEL AST ROUTINE TO SUSPEND PROCESS 
: CALLING SEQUENCE: 
? 
3 : 
3 INPUT PARAMETERS: 
7 NONE 
3 OUTPUT PARAMETERS: 
? NONE 
; IMPLICIT INPUTS: 
? 
? IMPLICIT OUTPUTS: 
; PCBS$V_SUSPEN - CLEARED 
; PCBS$V_RESPEN - CLEARED 
. ENABLE LOCAL BLOCK 
SUSPND: 
-WORD “M<R2,R3,R4,R5,R6> 
JSB G*SMPSGET_CURPCB 
10S: MOVPSL -(SP) 
LOCK LOCKNAME=SCHED, ~ 
PRESERVE=NO 
BBSC 
3108: BBCC 
UNLOCK LOCKNAME=SCHED, - 
NEWIPL=40, - 
PRESERVE#=NO 
EXIT_NO POOL: 
BBCC 
208: RET 
308: TSTB PCBSB_DPC (R4) 
BEOL 40s 
BICB2 #1,PCBS$B_ASTACT(R4) 
JSB G*SCHSNEWLVL 
MOVL #RSN$_ASTWAIT, RO 
JSB G*SCHSRWAIT 
BRB 10$ 
40S: MOVAL G*SCHS$GQ_SUSP,R2 
JSB G*SCHSWAITK 
BRB 10$ 
3008: BBSS #PCBSV_PREEMPTED, - 
PCBSL_STS (R4) ,320$ 


=e Se Ne 


=e te Ne 


KERNEL AST THAT SUSPENDS PROCESS 


(SAME EFFECT AS) DCLAST ASTADR=DELETE MODE=KERNEL 


PCB OF CURRENT PROCESS LOCATED VIA CPUSL_CURPCB IN PER-CPU DATA 


> WHEN PROCESS IS RESUMED 


SUSPEND KERNEL AST ROUTINE 
SAVE SOME REGISTERS 
Get our PCB address 


SAVE PSL ON STACK 
LOCK SCHED DATABASE 
DON’T PRESERVE RO 


#PCBSV_SOFTSUSP, PCB$L_STS (R4) , 300$ 


#PCBSV_RESPEN, PCBSL_STS (R4) ,30$ ; 


~e Se %e 


BR IF NO PENDING RESUME 
UNLOCK SCHED DATBASE 

DROP IPL 

DON’T PRESERVE RO 


#PCBSV_SUSPEN, PCBSL_STS(R4),20$ ; CLEAR SUSPEND PENDING 


e 
o 


se te Ne Me Se Ye te 


we 


=e Ne 


~e Ye 


AND EXIT 


TEST FOR OUTSTANDING XQP ACTIVITY 
BRANCH IF NONE (ALLOW SUSPENSION) 
CLEAR KERNEL AST ACTIVE 

COMPUTE NEW AST LEVEL 

NOTE AST RESOURCE 

WAIT FOR AST 

MAKE THE TEST AGAIN 


GET QUEUE HEADER ADDRESS 
WAIT WITH CLEAN STACK 
AND CLEAR RESUME PENDING FLAG 


Set preempted bit as state to 
be used in active SUPER thread 
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480 3208: BRB 310$ ? when it is resumed. 

481 

482 SUSPEND SOFT: 

483 - WORD “M<R2, R3,R4, R5,R6> 3 SUPER AST routine 

484 $SUSPND_S 3 Get back into S$SUSPND in kernel 
485 SUSPEND _SOFT_RETURN: 7 mode, where we can deal with 
486 RET ? all this 

487 

488 -DISABLE LOCAL_BLOCK 

489 a, 
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- 491 
492 
493 
494 
495 
496 
497 
498 
499 
$00 
$01 
502 
503 
504 
505 
$06 
507 
$08 
S09 
510 
$11 
$12 
$13 
514 
515 
516 
517 
518 
$19 
520 
521 
$22 
523 
524 
§25 
526 
§27 
528 
529 
530 
531 
532 
533 
534 
535 
536 
§37 
538 
539 


We Ne Se Se Se te Ne Ne Se Se Se Se Xe Ne Me Ne te Me Ne Ge Se Te Ne Se Se Ye Ne Se Ne Se Se Xe te 


108: RPTEVT RESUME 


-SBTTL G“EXESRESUME - RESUME SYSTEM SERVICE 


t 


er ExegREse RESUME SYSTEM SERVICE 


FUNCTIONAL DESCRIPTION: : 
G*EXESRESUME IMPLEMENTS THE RESUME SYSTEM SERVICE WHICH RESTARTS 
A SUSPENDED. PROCESS. 


INPUT PARAMETERS : 
04(AP) - PROCESS IDENTIFICATION POINTER (PID) 
O08 (AP) - PROCESS NAME DESCRIPTOR POINTER 
R4 - PCB ADDRESS OF CURRENT PROCESS 


IMPLICIT INPUTS: 
PCB OF CURRENT PROCESS 
PCB OF TARGET PROCESS 
PROCESS HEADER OF CURRENT PROCESS 


OUTPUT PARAMETERS: 
_ RO - COMPLETION STATUS 
@PID - PROCESS IDENTIFICATION OF TARGET PROCESS 


IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 


SS$_NORMAL - NORMAL SUCCESSFUL COMPLETION 

SS$_NOPRIV - INSUFFICIENT PRIVILEGE FOR REQUESTED OPERATION 
SS$_NONEXPR - NON-EXISTENT PROCESS 

SS$_ACCVIO - ACCESS VIOLATION ON WRITE DESTINATION 


SIDE EFFECTS: 
NONE 


SYSTEM SERVICE RESUME, - 
<R2,R3,R4,R5>, - 
MODE=KERNEL, - 
NARG=2 


BSBW EXESNAMP ID 3 CONVERT AND VALIDATE 

ASSUME DYNSC_CWPS RESUME EQ CWPSSRVS$K_RESUME 

MOVZBL #DYNSC_ CWPS | RESUME, R3 LOAD SUBTYPE FOR CWPS 

BLBC RO, EXIT EXIT IF ERROR OCCURRED 
MOVZBL #PRI$_RESAVL, R2 SET PRIORITY INCREMENT CLASS 
BBSS #PCBSV_RESPEN, PCBSL_STS(R4),10$ ; SET RESUME PENDING 
REPORT RESUME EVENT 

AND TAKE NORMAL EXIT AND 
UNLOCK SCHED DATABASE 


we Se we 


BRB EXITU 


=e Ne te 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SYSPCNTRL PROCESS CONTROL SERVICES 10-MAY-1989 16:43:21 VAX MACRO V5.0-8 Page 13 
‘X-14 G*EXESHIBER - HIBERNATE SYSTEM SERVICE 7-APR-1989 13:14:34 _[8Y8. SRC] SYSPCNTRL.MAR; 1 (6) 


541 .SBTTL G*EXE$HIBER - HIBERNATE SYSTEM SERVICE 

542 ¢++ 

543 ; G*EXESHIBER - HIBERNATE SYSTEM SERVICE 

544 ; 

545 ; FUNCTIONAL DESCRIPTION: 

546 ; G*EXESHIBER IMPLEMENTS THE HIBERNATE SYSTEM SERVICE WHICH 
547; PLACES THE PROCESS IN A WAIT STATE, HIB , UNTIL IT 

548 ; IS RE-AWAKENED BY A WAKE SYSTEM SERVICE. ASTS MAY BE DELIVERED 
549 ; WHILE THE PROCESS IS IN A HIBERNATE STATE. 

550 ; 

551 ; 

552 ; 

553 ; CALLING SEQUENCE: 

554 ; CALLG ARGLIST, G*EXESHIBER 

555 ; 

556 ; 

557 ; INPUT PARAMETERS: ss 

558 ; R4 - PCB ADDRESS OF CURRENT PROCESS 

559 ; 

560 ; IMPLICIT INPUTS: 

561 ; PROCESS CONTROL BLOCK(PCB) OF THE PROCESS ISSUING THE HIBERNATE 
562 ; SYSTEM SERVICE. 

563 ; 

564 ; 

565 ; OUTPUT PARAMETERS: 

566 ; RO - COMPLETION STATUS CODE 

567 ; . 

568 ; IMPLICIT OUTPUTS: 

569 ; NONE 

570 ; 

571 ; COMPLETION CODES: 

572 ; SS$_ NORMAL - NORMAL SUCCESSFUL COMPLETION 

573 ; 

574 ; SIDE EFFECTS: 

575 ; THE PROCESS WILL BE PLACED IN A WAIT STATE UNTIL EITHER 
576 ; AN AST IS DELIVERED OR A WAKE REQUEST IS MADE. 

577 ; 

578 3-- 

579 

580 ‘ 

581 SYSTEM SERVICE HIBER, - 

582 <R2,R3,R4,R5>,- 

583 MODE=KERNEL, - 

584 NARG=0 

585 

586 LOCK LOCKNAME=SCHED, - -; LOCK SCHED DATABASE 
587 PRESERVE=NO ? DON’T PRESERVE RO ; 
588 BBCCI #PCBSV_WAKEPEN,PCB$L_STS(R4),10$ ; CHECK FOR PENDING WAKE 
589 UNLOCK LOCKNAME=SCHED, - 7 UNLOCK SCHED DATABASE 
590 NEWIPL=#IPL$ ASTDEL,- ; DROP IPL 

591 PRESERVE=NO | ; DON’T PRESERVE RO 

592 BRB EXIIN ; AND RETURN TO CALLER 
593 

594 10$: ; MUST HIBERNATE 

595 MOVAL G*SCH$GQ_HIBWQ,R2 ; SET ADDRESS OF WAIT QUEUE HDR 
596 JMP G*SCHSWAIT ; AND WAIT 
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610 
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613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 


we te Se Me Me Se Se Te Ne te Me Te Ne Ne Ne Ye Ve Ne Se Se Ye Ne Te Se Se Ye 


™e Se Se Me Me Me Te Te Me Ye Te Te Ye YO Ve 


we 


Re Ne Me Me Ne 


.SBTTL G*EXESWAKE - WAKE SYSTEM SERVICE 


+ 
+ 


G*EXESWAKE - WAKE SYSTEM SERVICE 


FUNCTIONAL DESCRIPTION: 
THE WAKE SYSTEM SERVICE CAUSES A PROCESS IN A HIBERNATE STATE 
TO BE CHANGED TO AN EXECUTABLE STATE AND RE-EXECUTED. 
IF THE TARGET OF A WAKE SERVICE IS NOT CURRENTLY HIBERNATING, 
THEN A BIT IS POSTED WHICH WILL CAUSE A SUBSEQUENT HIBERNATE 
CALL BY THAT PROCESS TO RETURN IMMEDIATELY. 


CALLING SEQUENCE: 
CALLG ARGLIST, G*EXESWAKE 


INPUT PARAMETERS : 
04(AP) = PROCESS IDENTIFICATION (PID) OF PROCESS TO WAKE 
O08 (AP) = ADDRESS OF PROCESS NAME DESCRIPTOR 
R4 - PCB ADDRESS 


IMPLICIT INPUTS: 
PCB OF CURRENT PROCESS 
ALL PCBS LOCATED BY THE VECTOR @SCHSGL_PCBVEC 


OUTPUT PARAMETERS: 
RO - COMPLETION STATUS CODE 
@PID(AP) - PROCESS IDENTIFICATION (PID) OF PROCESS AWAKENED 


IMPLICIT OUTPUTS: 
PCBSV_WAKEPEN BIT IN PCBSL_STS OF TARGET PROCESS WILL BE 
SET IF PROCESS IS NOT HIBERNATING. 


COMPLETION CODES: 
SS$_NORMAL - NORMAL SUCCESSFUL COMPLETION 
sss | NONEXPR - NON-EXISTENT PROCESS ; 
SS$ | NOPRIV - NO PRIVILEGE FOR ATTEMPTED OPERATION 
SS$_ACCVIO - ACCESS VIOLATION ON WRITE DESTINATION 


SIDE EFFECTS: 
THE TARGET PROCESS WILL BE CHANGED TO AN EXECUTABLE STATE, 
COM OR COMO, IF IT IS IN A HIBERNATE STATE AND 
RESCHEDULING WILL BE INITIATED IF NECESSARY. 


SYSTEM_SERVICE WAKE, -~- 
<R2, R3, R4, RS>, - 
MODE=KERNEL, - 
NARG=2 


BSBB _ EXESNAMPID ; CONVERT NAME TO PID 
RO - SUCCESS INDICATOR | 

Rl - PID CORRESPONDING TO NAME STRING 

R4 ~- PCB ADDRESS IF NAME WAS FOUND 


ASSUME DYNSC_CWPS_WAKE EQ CWP SSRVSK_| WAKE 
MOVZBL #DYNSC_| CWPS | WARE, R3 7 LOAD SUBTYPE FOR CWPRS 
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655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 


BLBC 

JSB 
EXITU: . 

UNLOCK 
EXITN: 

MOVZWL 
EXIT: 

CMPW 

BNEQ 

BRW 
108: 

SETIPL 

RET 
EXIT_RO: 

UNLOCK 

RET | 


RO, EXIT 
G*“SCHSWAKE 


LOCKNAME=SCHED,- 
NEWIPL=#IPL$_ASTDEL, - 


-PRESERVE=NO 


#SS$ NORMAL, RO 


#SS$_ REMOTE PROC, RO 
10$ 3 
CWPSS$PCNTRL 


#0 


LOCKNAME=SCHED, - 
NEWIPL=40, - 
PRESERVE=YES 


ee Te Yo Ve Yeo Ye Ye Ye we Yo Yo Xe Yo 


we te 


we Ne Ye 


CONTINUE IF PROCESS LOCATED 
WAKE PROCESS BY PID _ 
EXIT AND UNLOCK SCHED DATABASE 
UNLOCK SCHED DATABASE - 

DROP IPL 
DON’T PRESERVE RO | 

SCHED WAS LOCKED BY EXE$NAMPID 
EXIT HIBERNATE SERVICE 
SET NORMAL COMPLETION 
RETURN WITH RO SET 

IS IT A CALL TO A REMOTE PROCESS? 
NOT REMOTE, CONTINUE WITH ERROR 
BRANCH TO THE CLUSTER CODE 


ENABLE | 
AND RETURN TO CALLER =~ 


UNLOCK SCHED DATABASE - 
DROP IPL 
PRESERVE RO 
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681 -SBTTL G*EXESNAMPID - CONVERT PROCESS NAME TO PID 

682 3++ 

683 ; G*EXESNAMPID - CONVERT PROCESS NAME TO PID 

684 ; : 

685 ; FUNCTIONAL DESCRIPTION: . 

686 ; G“EXESNAMPID OBTAINS THE PROPER PID AND PCB ADDRESS FOR A 

‘687 3 STANDARD PROCESS CONTROL SERVICE ARGUMENT LIST CONSISTING 

688 ; OF A PID/PROCESS-NAME PAIR. THE ABSENCE OF BOTH SELECTS THE 

689 ; CURRENT PROCESS. AFTER ANY NECESSARY NAME TRANSLATION AND 

690 ; PID VALIDATION, GROUP AND WORLD PROCESS CONTROL PRIVILEGES 
691 ; ARE CHECKED. . 

692 ; | 

693 ; 

694 ; CALLING SEQUENCE: 

695 ; JSB/BSB G“EXESNAMP ID 

696 ; 

697 ; INPUT PARAMETERS: 

698 ; PID(AP) - ADDRESS OF PID SOURCE/DESTINATION (EXTENDED PID) 

699 ; PRCNAM(AP) - POINTER TO PROCESS DESCRIPTOR TO CONVERT TO PID 
700 ; - R4 - PCB ADDRESS - 

701 ; 

7102 ; 

703 ; HHRKKRERERRRRERERRERREKEREREKERERREREERERREREEREERREERREREREKERER ERE 
704 ; * N.B. : id 
705 ; * Module <SYSLOA>CWPS SERVICE _RECV.MAR calls EXESNAMPID with * 
706 ; *  R4 pointing to a false PCB. This trojan PCB is set up to * 
707 ; * look like a valid PCB, but with the rights of a process on * 
708 ; id a remote node. . 
709 ; * = 
710 ; * Changes to the calling sequence of EXESNAMPID, or accesses * 
711 ; * to additional fields of the PCB (or entities hanging from ~ 
712 ; * the PCB) will have to be reflected in the code which sets * 
713 ; * up this trojan PCB. * 
714 ; * * 
715 ; KERR RERERRRERE REE EREREEREEREEREREREEREREERERERERERREKREERK 
716 ; 

717 ; IMPLICIT INPUTS: 

718 ; @SCHS$GL_PCBVEC - VECTOR OF PCB ADDRESSES 

719 ; PHDSL_PRIV - PRIVILEGE BIT VECTOR IN PROCESS HEADER 

720 3; 

721 ; OUTPUT PARAMETERS: 

722 ; 

723 ; If RO EQL SS$_ REMOTE PROC: 

724 3 RO. - SS$_REMOTE PROC 

725 ; R1 ~ EPID of process if PID <> 0, 0 otherwise 

726 3; R2 ~ CSID of remote node 

727 3 R3 - Modified, used for scratch register 

728 ; R4 - PCB address of current process 

729 ; IPL - 0 

730 ; 

731 ; If RO EQL SS$_NORMAL 

732 ; RO - SS$_ NORMAL 

733 ; R1 - Internal process identification (IPID) of named process 
734 3 R2,R3 - Modified, used for scratch registers 

7135 ; R4 - PCB address of target process 

7136 3; @PIDADR - Extended process id (EPID) of selected process if 

737 ; PIDADR(AP) <> 0 
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738 ; IPL _ © IPL$_ SYNCH 
739 ; 
740 ; If RO is anything else: 
741 ; RO - Status code 
742 ; R1-R4 - Undefined 
743 ; @PIDADR - Undefined (might have been wettteni) 
744 ; IPL - IPL$_SYNCH (IPL unchanged if SS$_ACCVIO or SS$_IVLOGNAM) 
745 ; 
746 ; COMPLETION CODES: 
747 ; SS$_NORMAL - NORMAL SUCCESSFUL COMPLETION 
748 ; (R1 CONTAINS IPID) 
749 ; SS$_REMOTE PROC - EPID POINTS AT VALID REMOTE NODE 
750 ; (R2 CONTAINS CSID) 
751 ; SS$_IVLOGNAM - INVALID LOGICAL NAME STRING 
752 ; SS$_NONEXPR - NONEXISTENT PROCESS OR INVALID PID 
753 ; SS$_NOPRIV - NO PRIVILEGE FOR SPECIFIED OPERATION. 
754 ; ‘SS$_ACCVIO - ACCESS VIOLATION FOR WRITE DESTINATION 
755 ; 
756 ; SIDE EFFECTS: 
757 ; NONE 
758 ; 
7159 3-- 
760 
761 : 
762 ; A VERY HIGH PROPORTION OF CALLS TO PROCESS SYSTEM SERVICES ARE FOR 
763 ; THE CURRENT PROCESS. WE CAN SIMPLIFY AND SPEED THAT PATH THROUGH 
764 ; EXESNAMPID, SINCE THERE IS VERY LITTLE TO CHECK OR DO... 
765 bg 
766 CURRENT PROCESS: 
767 TSTL RO 3 WAS PID ADDRESS SPECIFIED? 
768 BEOQL ‘10$ ? NO, SKIP STORE OF PID 
769 MOVL - PCBSL | EPID(R4), (RO) # STORE EXTENDED PID IN DESTINATION 
770 108: LOCK LOCKNAME=SCHED, - 7 LOCK SCHED DATABASE (IPL$_SYNCH) 
771 PRESERVE=NO 3 RO NO LONGER INTERESTING 
772 MOVL PCBSL_PID(R4),R1 7 USE CALLER’S PID 
773 MOVZWL #SS$_NORMAL, RO 3; SET SUCCESS STATUS 
774 RSB , ; 3 AND RETURN TO CALLER 
775 
776 NP_ACCVIO: 3 ACCESS VIOLATION 
777 _ MOVZWL #SS$_ACCVIO,RO ? SET ERROR CODE 
778. RSB. ? AND EXIT 

719 

780 IVLNAM: 3; INVALID NAME 
781 MOVZWL #SS$_IVLOGNAM, RO 3 SET ERROR CODE 
782 RSB 3 AND RETURN 
783 
784 
785 UNIVERSAL SYMBOL EXESNAMP ID 
786 
787 ;EXESNAMPID:: ; TRANSLATE PNAME TO PID 
788 CHECK IPL O a | 
789 ' MOVL PIDADR (AP) , RO ; GET PID ADDRESS 
790 _BEQL. 130$ 3; NO PID ADDRESS . 
791 IFNOWRT #4,.(RO),NP_ACCVIO 3; ERROR IF ACCESS VIOLATION 
792 MOVL (RO) ,R1 ; NOW FETCH (EXTENDED) PID 
793 BEOL 130$ | ;. BRANCH IF NO PID FOUND 
7194 BSBW EPID TO_IPID 3 CONVERT EPID IN R1 TO IPID (LOCAL ROUTINE) 
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795 7 RETURNS AS IF COND CODES SET BY TSTL R3 
7196 BEQL GOTPID 7 IF R3=0, NODE IS LOCAL, R1 IS THE IPID 
797 IFNOCLSTR GOTPID ? IF NOT CLUSTER, DO MAIN LINE CODE 

798 BRW CWPSS$CHECK_NODE ; IT ISN’T LOCAL, GOTO CLUSTER CODE 

799 

800 1308S: MOVL PRCNAM (AP) , R3 + GET PNAME ADDRESS IF SPECIFIED 

801 BEQL CURRENT PROCESS + NONE SPECIFIED, USE THE QUICK PATH 

802 # FOR THE CURRENT PROCESS 

803 

804 ; MUST LOOK UP PROCESS NAME, CHECK DESCRIPTOR AND NAME, THEN CALL THE 

805 ; LOOKUP ROUTINE 

806 

807 IFNORD #8, (R3),NP_ACCVIO ? CHECK DESCRIPTOR FOR READABLITY 

808 MOVOQ (R3) , R2 3 GET DESCRIPTOR 

809 TSTW R2 ? AND CHECK FOR ZERO LENGTH 

810 BEQL IVLNAM : NOT A VALID NAME STRING 

811 CMPW #255, R2 7 CHECK FOR MAXIMUM LENGTH 

812 BLSSU IVLNAM + NOT A VALID NAME STRING 

813 IFNORD R2, (R3),NP_ACCVIO 7 ACCESS VIOLATION IF STRING NOT READABLE 
814 

815 ; RO -> ADDRESS TO STORE PID (OR = 0) 

816 ; R2 = LENGTH OF THE PROCESS NAME 

817 ; R3 -> THE PROCESS NAME TEXT 

818 

819 PUSHL RO 7 SAVE PID ADDRESS 

820 LCLNAM: MOVL G*SCHSGL_MAXPIX, RO 3; INITIALIZE PROCESS INDEX 

821 : LOOP FOR EACH PROCESS INDEX 


822 10S: MOVL Q@W“SCHSGL_PCBVEC[RO],R1 ; GET PCB ADDRESS FROM VECTOR 
823 CMPW PCBSW_GRP (R1),PCBSW_GRP(R4) ; COMPARE GROUP NUMBERS 


824 BNEQ 20$ 7 NOT SAME GROUP, NEXT PIX 

825 CMPB R2, PCBST_LNAME (R1) 7 COMPARE NAME LENGTH 

826 BNEQ 20$ ? DIFFERENT LENGTH 

827 PUSHR #°M<RO,R1,R2,R3> _? SAVE REGISTERS FOR CMPC3 

828 CMPC3 R2, (R3) , PCBST_LNAME+1(R1) ; COMPARE TEXT OF NAME 

829 POPR #°M<RO, R1,R2,R3> 7 RESTORE REGISTERS 

830 BEQL GOTNAM ? FOUND A MATCHING PROCESS NAME 
831 208: SOBGEQ R0,10$ 7; UPDATE INDEX AND TRY AGAIN 

832 

833 BSBW CWPSSPARSE_PRCNAM ; CHECK FOR REMOTE PROCESS NAME 
834 BLBS RO, LCLNAM ; IF LBS, THEN THE NODENAME OF THE 
835 ; LOCAL NODE WAS FOUND -- RETRY THE 
836 + SCAN (R2/R3 MOVED TO REMOVE NODENAME) 
837 ADDL2 #4, SP ; CLEAN PID ADDRESS FROM STACK 

838 RSB ; EXIT, CORRECT STATUS IN RO, AND 
839 ;. REGISTERS SET IF REMOTE PROC 
840 

841 GOTNAM: MOVL PCBSL_PID(R1),R1 ; GET FULL PID FOR NAME 

842 POPL RO : RESTORE PID ADDRESS 

843 GOTPID: ; VERIFY PID AND CHECK PRIV 

844 LOCK LOCKNAME=SCHED, - ; LOCK SCHED DATABASE 

845 PRESERVE=YES 7 RO HAS THE PID ADDRESS 

846 MOVZWL R1,R2 ; EXTRACT PROCESS INDEX 

847 CMPL R2, G*SCH$GL_MAXPIX 7 TEST AGAINST MAXIMUM VALUE 

848 BGTRU| NONEX_UNLOCK ; NONEXISTENT IF GTRU THAN MAXPIX 
849 MOVL @W*SCHSGL_PCBVEC[R2],R2 ; GET PCB ADDRESS 

850 CMPL R1, PCBSL_PID(R2) ; CHECK FOR VALID PID 

851 BEQL VALP ID ?; YES, 
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852 NONEX_UNLOCK: 


853 UNLOCK LOCKNAME=SCHED, - + UNLOCK SCHED DATABASE 

854 NEWIPL=#IPL$_ASTDEL, - ; DROP IPL 

855 PRESERVE=NO 7 DON’T PRESERVE RO 

856 NONEX: 7 PROCESS NON~EXISTENT 

857 MOVZWL #SS$_NONEXPR, RO : SET ERROR STATUS 

858 RSB ; 7 AND RETURN TO CALLER 

859 VALPID: ? PID IS VALID, CHECK PRIV 

860 BSBB EXESCHECK_PCB_ PRIV + CHECK PRIVS 

861 BNEQ NOPRIV : IF COND CODE IS NEQ, NO PRIV 
862 RETURN: ? SUCCESSFUL EXIT 

863 MOVL R2,R4 7 MOVE PCB ADDRESS OF TARGET 

864 ? NORMAL STATUS EXIT 

865 TSTL RO ; WAS PID ADDRESS SPECIFIED 

866 BEQL 10$ 7 NO, SKIP STORE OF PID 

867 UNLOCK LOCKNAME=SCHED, - ; UNLOCK SCHED DATABASE 

868 NEWIPL=#IPL$_ASTDEL + DROP IPL 

869 MOVL PCBSL_EPID(R4), (RO) ; STORE EXTENDED PID IN DESTINATION 
870 CLRL RO + DO NOT WRITE PID A SECOND TIME 
871 BRB GOTPID 7 MAKE SURE THAT PID IS STILL VALID 
872 

873 10$: MOVZWL #SS$_NORMAL, RO 3; SET SUCCESS STATUS 

874 RSB ? AND RETURN TO CALLER 

875 

876 NOPRIV: UNLOCK LOCKNAME=SCHED, - ? UNLOCK SCHED DATABASE 

877. NEWIPL=#IPL$_ASTDEL, - : DROP IPL 

878 PRESERVE=NO ? DON’T PRESERVE RO 

879 MOVZWL #SS$_NOPRIV,RO — # SET ERROR STATUS 

880 RSB 7 AND RETURN TO CALLER 
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882 -SBTTL EXESCHECK_PCB PRIV ~ Check ability of one process to affect ano 
683 s++ 7 

eed ; EXESCHECK PCB PRIV. 

g85 ; 

886 ; FUNCTIONAL DESCRIPTION: 

687 ; This routine checks that a given process (PCB address in 

ess ; R4) has the privileges to examine or modify another process 

889 ; (whose PCB address is in R2). 

890 ; 

891 ; 

692 ; CALLING SEQUENCE: 

893 ; BSBx EXESCHECK_PCB PRIV 

894 ; BNEQ NO _PRIV 

895 ; 

896 ; INPUT PARAMETERS: 

697 ; R2 -> PCB of the target process 

898 ; R4 -> PCB of the requestor process 

899 ; : 

900 ; IMPLICIT INPUTS: 

901 ; none 

902 ; 

903 ; OUTPUT PARAMETERS: 

904 ; Condition codes set: 

905 ; Z-bit set - Process has enough priv 

906 ; Z~-bit clear - Process does not have priv 

907 ; 

908 ; SIDE EFFECTS: 

909 ; Z~bit modified, all other registers preserved 

910 ; . : 

911 ;-- 

912 

913 UNIVERSAL_SYMBOL EXESCHECK_PCB PRIV 

914 

915 ;EXESCHECK_PCB_ PRIV:: 

916 CMPL =§ PCBSL_JIB(R2), PCBSL_JIB(R4¢) ? Is it in our job (tree)? 
917 BEQL 10$ 3 If so, allow it without privileges 
918 CMPL PCBSL_UIC(R2), PCBSL_UIC(R4) 7 Does process have same UIC? 
919 BEQL 10$ 3; If so, allow it without privileges 
920 IFPRIV WORLD, 10S, R4 7 Success if WORLD privilege 
921 CMPW PCBSW_GRP(R2), PCBSW_GRP (R4) 7 Are group numbers equal? 
922 BNEQ 20$ 3 If not, no privilege 

923 IFNPRIV GROUP, 20S, R4 ; Error if not group priv 
924 

925 108: BISPSW #PSLSM_Z 7 Set Z-bit (equal) 

926 RSB 

927 

928 208: BICPSW #PSLSM_Z 3 Clear Z-bit (not equal) 
929 RSB . 

930 
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932 -SBTTL CWPSSCHECK_NODE - check epid for valid remote node 

933 3+ ; 

934 ; A pid conversion has failed because the node fields of the pid are 
935 ; non-zero and not the local node. See if the node fields can be 

936 ; expanded into a currently valid CSID. 

937 ; 

938 ; CALLING SEQUENCE: 

939 ; BRW CWPSS$CHECK_NODE - called from EXESNAMPID when 

940 ; non-local node is noticed 

941 ; 

942 ; INPUT PARAMETERS: 

943 ; R2 - EXTENDED PID 

944 ; R4 - PCB ADDRESS OF CURRENT PROCESS 

945 ; PIDADR(AP) - ADDRESS OF PID SOURCE/DESTINATION (EXTENDED PID) 

946 ; PRCNAM(AP) - POINTER TO PROCESS DESCRIPTOR TO CONVERT TO PID 

947 ; 

948 ; OUTPUT PARAMETERS (IF SS$_REMOTE_ PROC ONLY, SEE EXESNAMPID FOR SS$_NONEXPR) 
949 ; RO - SS$_! REMOTE PROC 

950 ; R1 - EPID of process if PIDADR <> 0, 0 otherwise 

951 ; R2 - CSID of remote node 

952 ; R3 ~- Modified, used for scratch register 

953 ; R4 - PCB address of current process 

954 ; IPL - 0 

955 ; 

956 ; COMPLETION CODES: 

957 ; SS$_REMOTE PROC - EPID POINTS AT VALID REMOTE NODE 

958 ; sss | NONEXPR - NONEXISTENT PROCESS OR INVALID PID 

959 ; 

960 ; SIDE EFFECTS: 

961 ; NONE 

962 ; 

963 ;-- 

964 

965 NONEXB: UNLOCK LOCKNAME=SCS, - 7 UNLOCK SCS DATABASE 

966 NEWIPL=4#0, - 7 DROP IPL 

967 PRESERVE=NO 7 DON’T PRESERVE RO 

968 BRW NONEX 

969 

970 CWPS$CHECK_NODE:: 

971 

972 CHECK_IPL 0 

973 ; 

974 LOCK LOCKNAME=SCS, - # LOCK SCS DATABASE 

975 PRESERVE=NO + DON’T PRESERVE RO 

976 MOVL R2, R1 ; PUT THE EPID WHERE WE WILL LEAVE IT 
977 EXTZV #?CBSV_EPID_NODE __IDX,- ; EXTRACT NODE INDEX TO RO 

978 #PCBSS | EPID | . NODE _ , IDX, R1, RO 

979 EXTZV #PCBSV_! EPID | . NODE | _SEQ,- ; EXTRACT NODE SEQUENCE NUMBER BITS 
980 #PCBSS | EPID | - NODE SEQ, R1, R2 ; FROM THE EPID, ZERO EXTENDED 
981 CMPW RO, G*CLUSGW | MAXINDEX + TEST AGAINST MAXIMUM VALUE 

982 BGEQU NONEXB ? NONEXISTENT IF GEQU THAN MAXINDEX 
983 MOVL G“CLUSGL_CLUSVEC, R3 7 GET POINT TO CSID VECTOR 

984 MOVL (R3) [RO],R3 ; USE NODE INDEX TO GET CSB ADDRESS 
985 BGEQ NONEXB ; GEQ MEANS IT’S UNUSED 

986 CMPZV #0,- 7 COMPARE THE LOW ORDER BITS OF THE 
987 #PCBSS | EPID NODE_SEQ,- ; REAL SEQUENCE NUMBER FROM THE 
988 CS3SW_ CSID | SEQ(R3), R2 ; FULL CSID WITH EPID LOW ORDER BITS 
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989 BNEQ NONEXB 


7 NOT THE SAME . 
990 MOVL CSBSL_CSID (R3), R2 ? MOVE FULL CSID TO R2, R1 STILL EPID 
991 UNLOCK LOCKNAME=SCS, - 7 UNLOCK SCS DATABASE 
992 NEWIPL=40, - 3 LOWER IPL 
993 PRESERVE=NO ? DON’T PRESERVE RO 
994 MOVZWL #SS$_REMOTE PROC, RO 3 STATUS FOR GOOD NODE 
995 RSB 
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997 . .»SBTTL EXE$xPID_TO xxx - CONVERT PID TO OTHER PID OR PCB ADDRESS 
998 ++. 

999 ; FUNCTIONAL DESCRIPTIONS: 
1000 ; 
1001 ; G*EXESIPID_TO PCB - convert internal pid to pcb address 
1002 ; G*EXESEPID_TO PCB - convert extended pid to peb address 
1003 ; G“EXESIPID_ TO EPID - convert internal pid to extended pid 
1004 ; G*EXESEPID_TO_IPID - convert extended pid to internal pid 
1005 ; 
1006 ; CALLING SEQUENCE: 
1007 ; JSB/BSB EXE$xPID_TO_ xxx 
1008 ; 
1009 ; INPUT PARAMETERS: 
1010 ; RO. - input pid 
1011 ; 
1012 ; IMPLICIT INPUTS: 
1013 ; @SCHS$GL_PCBVEC - VECTOR OF PCB ADDRESSES 
1014 ; G*SCHSGL_PIXWIDTH ~ WIDTH OF PIX FIELD IN EXTENDED PID 
1015 ; 
1016 ; OUTPUT PARAMETERS: 
1017 ; RO = output pid or peb address, 0 if any problems 

1018 ; CONDITION CODES - set according to the value in RO, so that any call 
1019 ; can be followed by a BEQL without another test 
1020 ; 
1021 ; COMPLETION CODES: 
1022 ; NONE 
1023 ; , 
1024 ; SIDE EFFECTS: 
1025 ; 
1026 ; Non-paged code and data, no page faults possible. 
1027 ; 
1028 ; Callers of these routines must be prepared for the routines to save 
1029 ; registers R1 through R5 to allow for future additions. For example, 
1030 ; a BLISS linkage declaration of 
1031 ; 
1032 ; LINKAGE 
1033 ; pid_call = JSB (REGISTER=0) : PRESERVE (1,2,3,4,5) 
1034 ; NOTUSED (6,7,8,9,10,11); 
1035 ; 
1036 ; will force the enclosing procedure to save R2-R5 in the procedure 
1037 ; entry mask. 
1038 ;-- 
1039 
1040 ;+ 
1041 ; Convert an extended PID to a PCB address. We will first convert the EPID to an 
1042 ; IPID, then convert the IPID to the PCB address. The condition codes will be set 
1043 ; according to the value in RO. 
1044 ;~- 
1045 UNIVERSAL SYMBOL EXESEPID_TO PCB 
1046 
1047 ;EXESEPID TO PCB:: + CONVERT EXTENDED PID TO PCB ADDRESS 
1048 BSBB EXESEPID_ TO_IPID ; GET THE IPID IN RO 
1049 BEQL 10$ 7; COULDN’T CONVERT THE EPID 
1050 BSBB EXESIPID_TO PCB 7 CONVERT THE IPID TO THE PCB ADDR 
1051 108: RSB 
1052 , 
1053 -7+ 
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1054 ; Convert internal PID to PCB address. Return 0 if the input IPID does not match 
1055 ; the IPID stored in the corresponding PCB. Set the condition codes according to 
1056 ; the presence of a returned address in RO, so that the BSBx can be followed by a 
1057 ; BEQL or BNEQ 

1058 ;- 

1059 UNIVERSAL _SYMBOL EXESIPID TO PCB 

1060 ;EXESIPID TO PCB:: ; CONVERT INTERNAL PID TO PCB ADDRESS 

1061 CMPW RO, G*SCH$GL_MAXPIX 7 TEST AGAINST MAXIMUM VALUE 

1062 BGTRO 10$ ¢ NONEXISTENT IF GTRU THAN MAXPIX 

1063 PUSHL RO 7 SAVE A COPY OF THE IPID 

1064 MOVZWL RO,RO 3 EXTRACT PROCESS INDEX FIELD 

1065 MOVL Q@W*SCHSGL_PCBVEC[RO],RO ; MOVE PCB ADDRESS TO RO 

1066 CMPL PCBSL_PID(RO), (SP) + 7 DOES THE PID IN THE PCB MATCH? 

1067 BNEQ 10$ 7 NO MATCH, RETURN O ADDRESS 

1068 TSTL RO ? SET THE CONDITION CODES 

1069 RSB 

1070 108: CLRL RO 3 NONEXISTENT PID, RETURN ZERO 

1071 RSB 

1072 

1073 3+ 

1074 ; Convert an extended PID to the internal PID. Return 0 if the EPID refers to 
1075 ; another node. Do not check that either the EPID or IPID are valid. 

1076 ;- 

1077 UNIVERSAL SYMBOL EXESEPID TO IPID 

1078 

1079 ;EXESEPID TO _IPID:: 7 CONVERT EXTENDED PID TO INTERNAL PID 

1080 PUSHR #*M<R1,R2,R3> ? SAVE SOME WORKING REGISTERS 

1081 MOVL RO, R1 ? MOVE EPID TO R1 

1082 BSBB EPID TO _IPID ; CALL THE ROUTINE 

1083 MOVL R1, RO ; MOVE PID TO RO, SET COND CODES 

1084 POPR #“M<R1,R2,R3> 7 RESTORE REGISTERS 

1085 RSB 7 CONDITION CODES REFLECT NEW IPID 
1086 

1087 ;+ 

1088 ; Internal routine, convert an extended PID in R1 to the internal PID in Rl. 
1089 ; Return R3=1 and R1=0 if the EPID refers to another node. Do not check if 
1090 ; either the EPID or IPID is valid. Leave condition codes set according to 
1091 ; value in R3. This routine assumes EXESNAMPID’s register usage. 

1092 ; 

1093 ; R3 cc R1 (IPID) R2 (EPID) 

1094 ; ere Sewn cm mmewewem seem enee 

1095 ; 0 EQL IPID 22 

1096 ; 1 NEQ 0 EPID 

1097 ;- 

1098 

1099 EPID TO IPID: 3 CONVERT EXTENDED PID TO INTERNAL PID 

1100 

1101 

1102 ; WE WILL EXTRACT THE NODE FIELD FROM THE EPID TO SEE IF THIS IS FOR THE LOCAL 
1103 ; NODE. WE WILL INCLUDE THE WILDCARD BIT IN THIS TEST. VERIFY SOME ASSUMPTIONS 
1104 ; ABOUT THE LOCATIONS OF THESE FIELDS. 

1105 

1106 NODE_WIDTH = PCB$S_EPID NODE _IDX+PCB$S_EPID_NODE SEQ 

1107 

1108 ASSUME PCBSV_EPID WILD EQ - 7; CHECK THAT WILD BIT IS RIGHT 
1109 <PCB$V_EPID NODE IDX + NODE WIDTH> ; AFTER NODE FIELDS 

1110 ASSUME PCBSV_EPID NODE SEQ EQ - 7; AND SEQ IS RIGHT AFTER IDX 
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1111 <PCB$V_EPID_NODE_IDX + PCB$8_EPID NODE _IDX> 

1112 , 

1113 EXTZV #PCBSV_EPID NODE IDX, - ; MOVE NODE + WILD TO R3 

1114 #<NODE_WIDTH+1>,R1, R3 

1115 CMPW G“SCHS$GW_LOCALNODE,R3 ; IS IT THE LOCAL NODE? 

1116 BHEQ 208 | ; NOT LOCAL, CAN’T MAKE AN IPID 
1117 


1118 ; EPID IN R1 IS FOR LOCAL NODE, EXTRACT THE PIX AND SEQUENCE NUMBER TO FORM IPID 
1119 


1120 108: MOVL G*SCHSGL_ PIXWIDTH, R3 LOAD WIDTH OF EXTENDED PIX FIELD 


we 


1121 SUBL3 R3,#PCBS$S_EPID PROC,R2 ; AND WIDTH OF THE SEQ NUM FIELD 
1122 EXTZV  R3,R2,R1,R2 : R2 IS LONGWORD SEQ NUM 

1123 EXTZV  #0,R3,R1,R1 7 R1 IS LONGWORD PIX 

1124 INSV R2, #16, #15,R1 : INSERT SEQ NUM IN HIGH WORD 

1125 ; WHICH MAKES AN IPID IN Rl 

1126 CLRL R3 : 
1127 RSB ; CONDITION CODES SET FOR VALUE OF R3 
1128 


1129 ; COULD NOT TURN EPID INTO AN IPID, RETURN AN IPID OF 0, WITH R3<>0, R2=EPID 
1130 


1131 20$: MOVL Ri, R2 PUT THE EPID IN R2 


1132 CLRL R1 3; IPID = O 

1133 MOVL #1, R3 3 RETURN R31 AND COND CODE <> 0 

1134 RSB 

1135 

1136 

1137 ;+ 

1138 Convert an IPID to an EPID. We do not check that the IPID is valid. The local 


we Te Ye Yo 


1139 node is moved into the node field of the EPID, the seq number and pix of the IPID 
1140 are moved into the EPID. The condition codes reflect the final value of RO. 
1141 ;- 

1142 UNIVERSAL_SYMBOL EXESIPID TO EPID 

1143 

1144 ;EXESIPID TO EPID:: 3 INTERNAL PID TO EXTENDED PID 

1145 TSTL RO ¢ TREAT A ZERO PID AS A SPECIAL CASE 
1146 © BEQL 10$ ? ZERO, WE DON’T TOUCH IT 

1147 PUSHR #°M<R1,R2, R3> ? SAVE SOME WORKING REGISTERS 

1148 MOVZWL RO,R3 : R3 IS LONGWORD PIX 

1149 ASHL #-16,R0O,RO ¢; RO IS LONGWORD SEQ NUM 

1150 MOVL G“SCH$GL_PIXWIDTH, R1 3; LOAD WIDTH OF EXTENDED PIX FIELD 
1151 SUBL3 R1,#PCBS$S_EPID PROC,R2 ; AND THE WIDTH OF THE SEQ NUM FIELD 
1152 INSV RO, R1,R2, R3 ; INSERT SEQ NUM BESIDE PIX 

1153 INSV G*SCHS$GW_LOCALNODE, - 3 INSERT LOCAL NODE INTO THE EPID 

1154 #PCBSV_EPID NODE IDX, #NODE_WIDTH, R3 

1155 MOVL R3, RO ? RETORN THE EPID IN RO 

1156 POPR #°M<R1, R2,R3> 3 RESTORE REGISTERS 

1157 108: RSB ; N.B. COND CODES SET ON VALUE OF RO 


1158 
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1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 

1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
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ALL SUCH LOGICAL NAMES ARE IMPLICITLY QUALIFIED 
BY THE GROUP NUMBER OF THE PROCESS THEREBY ALLOWING THE SAME 


CPUSL_CURPCB in per-cpu data - POINTER TO PCB OF CURRENT PROCESS 


PCBST NAME IN CURRENT PCB IS FILLED WITH THE SPECIFIED NAME 


NORMAL SUCCESSFUL COMPLETION STATUS 

ALL OR PART OF NAME STRING IS INACCESSIBLE FOR READ 
ILLEGAL LOGICAL NAME STRING LENGTH (>15) 

DUPLICATE PROCESS NAME WITHIN GROUP 


GET ADDRESS OF PROCESS NAME 
WAS SPECIFIED 

CLEAR NAME FIELD OF PCB 

AND EXIT WITH NORMAL STATUS 
CHECK ACCESS FOR DESCRIPTOR 
PUSH DESCRIPTOR ON STACK 
CHECK FOR ZERO LENGTH STRING 
INVALID NAME 

PROBE ENDS OF STRING 

CHECK FOR MAXIMUM LENGTH 

IF LEQU, WITHIN LIMIT 


-SBTTL G“*EXESSETPRN - SET PROCESS NAME 
7++ 
3 FUNCTIONAL DESCRIPTION: 
; G“EXESSETPRN IMPLEMENTS THE SET PROCESS NAME SYSTEM 
; SERVICE WHICH ALLOWS A PROCESS TO ESTABLISH A LOGICAL NAME 
; FOR ITSELF. 
? 
; LOGICAL NAME TO BE USED BY PROCESSES IN DIFFERENT GROUPS. 
? 
3; CALLING SEQUENCE: 
; CALLG ARGLIST, G*EXESSETPRN 
; 
3; INPUT PARAMETERS: 
; 04(AP) - ADDRESS OF PROCESS NAME STRING DESCRIPTOR 
PRCNAM=4 
3. R4 - PCB ADDRESS OF CURRENT PROCESS 
; 
¢ IMPLICIT INPUTS: 
; 
? @SCHSGL_PCBVEC - VECTOR OF ALL PCB ADDRESSES . 
; 
3 OUTPUT PARAMETERS: 
; NONE 
; 
3 IMPLICIT OUTPUTS: 
; ae 
; PROVIDED NO ERROR HAS OCURRED. 
: SIDE EFFECTS: 
? NONE 
? 
3 COMPLETION CODES: 
7 SS$_NORMAL - 
; $S$_ACCVIO - 
; SS$_IVLOGNAM - 
; SS$_DUPLNAM - 
SYSTEM SERVICE SETPRN, - 
<R2,R3,R4,R5,R6, R7, RB, RID, - 
MODE=KERNEL, - 
NARG=1 
MOVL PRCNAM (AP) , R5 H 
BNEQ 100$ ; 
CLRL PCBST_LNAME (R4) ? 
. BRB 170$ ; 
1008: IFNORD #8, (R5),190$ A 
MOVQ (R5),-(SP) 3 
TSTW (SP) Hi 
BEQL 110$ ; 
IFNORD (SP),@4(SP),190$ ? 
CMPW (SP), #15 ; 
BLEQU 120$ ; 
1108: MOVZWL #SS$_IVLOGNAM, RO ; 
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1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 


1239 


1208: 
1308: 


1408: 
150$: 
160$: 
170$: 


180S: 


1908: 


RET 
MOVL 
MOVL 
CMPW 
BNEQ 
CMPB 
BNEQ - 
CMPC3 
BEQL 
SOBGEQ 
BRB 
CMPL 
BNEQ 
MOVB 
MOvCc3 
MOVZWL 


- RET 


MOVZWL 
RET 


MOVZWL 
RET 


- ¢ AND RETURN 
G*SCHS$GL_MAXPIX, R6 ; SET MAXIMUM PROCESS INDEX 
Q@W*SCHSGL_PCBVEC[R6],R7 ; GET PCB ADDRESS 
PCBSW_GRP (R4),PCBSW_GRP(R7) ; CHECK FOR SAME GROUP 


140$ 7 NO, SKIP IT 

(SP), PCBS$T_LNAME (R7) 7 COMPARE LENGTHS 

140$ ? NOT EQUAL, TRY ANOTHER 

(SP) ,@4(SP),PCBST_LNAME+1(R7) .; COMPARE NAMES WITH COUNTS 
150$ 7 MATCH 

R6,130$ 7 CONTINUE FOR ALL PCBS 

160$ 7 NOT FOUND 

R4,R7 + SAME PROCESS? 

180$ 7; DUPLICATE NAME ERROR 


(SP), PCB$T_LNAME (R4) 
(SP) ,@4 (SP), PCBST_LNAME+ 
#SS$_NORMAL, RO 


SAVE NAME LENGTH 

(R4) + MOVE NAME TO PCB 
SUCCESSFUL STATUS 

AND RETURN 

DUPLICATE NAME WITHIN GROUP 
AND RETURN 


%e Se faa Ne 


#SS$_DUPLNAM, RO 


we Se 


ACCESS VIOLATION 
RETURN WITH ERROR STATUS 


#SS$_ACCVIO, RO 


we Se 
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. 1241 -SBTTL CWPSSPARSE_PRCNAM - CWPS PARSE PROCESS NAME 
1242 ;++ ; 
1243 ; CWPSSPARSE_PRCNAM - CWPS PARSE PROCESS NAME 
1244 ;. : 
1245 ; FUNCTIONAL DESCRIPTION: 
1246 ; 
1247 ; CWPSSPARSE_PRCNAM separates a process name into its component parts. 
1248 ; A fully qualified process name string is 
1249 ; 
1250 ; _NODE::PROCNAM or _NODE: :PROCNAM 
1251 ; 
1252 ; WHERE 
1253 ; _NODE:: is the node name of the cluster node where the 
1254 ; process is located 
1255 ; PROCNAM 1-15 character process name as stored in the pcb 
1256 ; 
1257 ; The node field only will be subjected to logical name translation. 
1258 ; 
1259 ; CALLING SEQUENCE: 
1260 ; JSB/BSB CWPSSPARSE_PRCNAM 
1261 ; 
1262 ; INPUT PARAMETERS: 
1263 ; R4 -> PCB of current process 
1264 ; R3 -> PROCESS NAME DESCRIPTOR, DESC and STRING have been probed 
1265 ; R2 = Length of name string. 
1266 ; 
1267 ; IMPLICIT INPUTS: 
1268 ; NONE 
1269 ; 
1270 ; OUTPUT PARAMETERS: 
1271 ; 
1272 ; RO ~ COMPLETION STATUS 
1273 ; 
1274 ; IF RO = SS$ NORMAL 
1275 ; THEN ~ 
1276 ; Rl = ? 
1277 ; R2 = LENGTH OF NAME (NODENAME:: HAS BEEN REMOVED) 
1278 ; R3 -> NAME STRING (AFTER THE NODENAME: : ) 
1279 ; R4 -> CURRENT PCB 
1280 ; 
1281 ; ELSE IF RO = SS$ REMOTE PROC (A WARNING STATUS) 
1282 ; THEN 
1283 ; Rl = 0 . 
1284 ; R2 = CLUSTER SYSTEM ID (CSID) OF THE REMOTE SYSTEM 
1285 ; R3 = ? 
1286 ; R4 -> CURRENT PCB 
1287 ; 
1288 ; ELSE 
1289 ; RO CONTAINS THE ERROR CODE 
1290 ; SS$_NONEXPR - NONEXISTANT PROCESS (NO NODENAME 
1291 ; IN STRING 
1292 ; SS$_IVLOGNAM - INVALID LOGICAL NAME STRING 
1293 ; SS$_ACCVIO - ACCESS VIOLATION FOR READING STRING 
1294 ; SS$ NOSUCHNODE ~ STRING REFERS TO NONEXISTANT NODE 
1295 ; Rl= 7 
1296 ; R2 = ? 
1297 ; R3 = ? 
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1298 ; R4 -> CURRENT PCB 

1299 ; 

1300 ; SIDE EFFECTS: 

1301 ; 

1302 ;-- 

1303 

1304 DECLARE_PSECT EXECSPAGED_CODE 

1305 

1306 Universal_symbol CWPSSPARSE_PRCNAM 

1307 

1306 ;CWPS$PARSE_PRCNAM: : 

1309 

1310 CHECK _IPL 0 

1311 ; 

1312 IFNOCLSTR 10$ 7 IF NOT CLUSTER, WE ARE DONE EXCEPT 
1313 # FOR DECIDING WHICH ERROR STATUS 
1314 

1315 ; SEE IF THERE IS A NODE SPEC IN THE STRING. WE SIMPLY LOOK FOR T: 33 

1316 ; 

1317 ; R2 = LENGTH OF PROCESS NAME STRING 

1318 ; R3 -> STRING, PROBED FOR READING 

1319 

1320 Locc #*A:,R2, (R3) # SEARCH STRING FOR A COLON 

1321 BEQL 10$ # IF EQL COLON NOT FOUND 

1322 DECL RO # POSSIBLY A NODE NAME? 

1323 BEQL 10$ + IF EQL NO 

1324 CMPB #°A:,1(R1) + NEXT CHARACTER A COLON? 

1325 BEQL PARSE NODE ? IF EQL, TURN NODE INTO CSID AND RETURN 
1326 

1327 ; NO NODENAME, AND WE’VE ALREADY CHECKED THE LOCAL NODE, THEREFORE THE ERROR 
1328 ; IS EITHER NO SUCH PROCESS OR NAME TOO LONG 

1329 ne 

1330 ; NOTE: WE DO NOT CHECK THE LENGTH OF A REMOTE NAME, WE LEAVE THAT PROBLEM 
1331 7 TO THE REMOTE NODE. IN THE EVENT THAT THE MAXIMUM LENGTH OF A PROCESS 
1332 ; NAME IS EXTENDED, THIS WILL PERMIT GOOD MIXED-VERSION OPERATION (AN 
1333 ; OLD NODE WILL BE ABLE TO REFERENCE A PROCESS ON A NEW NODE BY USING 
1334 ; A LONG NAME, EVEN IF THAT NAME WOULD BE INVALID LOCALLY). 

1335 

1336 10S: MOVZWL #SS$ _NONEXPR, RO + SET ERROR CODE FOR NO SUCH PROC 
1337 CMPW #15, R2 ; CHECK FOR MAXIMUM LENGTH NAME 

1338 BGEQU 90$ ; LENGTH IS OK, SS$_NONEXPR IS CORRECT 
1339 MOV2ZWL #SS$_IVLOGNAM, RO + LENGTH TOO LONG, SET ANOTHER ERROR 
1340 908: RSB 
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1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 


1385. 


1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 


-SBTTL PARSE_NODE - PARSE NODE NAME 


+ 
+ 


PARSE NODE - PARSE NODE NAME 


FUNCTIONAL DESCRIPTION: 


PARSE NODE CONVERTS A NODE STRING TO THE CLUSTER SYSTEM ID (CSID) FOR 
THAT NODE. THE NODE WILL 8E SUBJECTED TO LOGICAL NAME TRANSLATIONS. 


IF THE NODE IS THE LOCAL NODE, THE NODENAME IS REMOVED FROM THE STRING 
BY ADJUSTING R2 AND R3 TO SKIP OVER THE NODENAME AND THE :: AND NO 
CSID IS RETURNED. 


we Ye Te Ye Be Ve Ye Ne Ye Ve Ne 


CALLING SEQUENCE: 
JSB/BSB PARSE_NODE 


INPUT PARAMETERS: 
RO = LENGTH OF THE PROCESS NAME, FROM THE SECOND COLON TO THE END 


Rl -> FIRST OF TWO COLONS (::) SEPARATING NODE FROM THE REST OF NAME 
R2 = TOTAL LENGTH OF PROCESS NAME STRING 


R3 -> BEGINNING OF PROCESS NAME STRING, PROBED FOR READING 


™e Ye Ne Te Se Ve Ye Ye Ve 


IMPLICIT INPUTS: 
CLUSGL_CLUB ~> CLUB FOR LOCAL NODE 
CLUS$GL_CLUSVEC <-> VECTOR OF CSB’S DESCRIBING THE CLUSTER 
CLUSGW | MAXINDEX = SIZE OF VECTOR OF CSB’S 
WE ARE IN A CLUSTER... 


OUTPUT PARAMETERS: 


IF RO IS SUCCESS 
Rl = ? 
R2 = LENGTH OF PROCESS NAME (WITHOUT THE NODENAME) 
R3 -> PROCESS NAME, PROBED FOR READ (WITHOUT : THE NODENAME) 


ELSE IF RO = SS$_REMOTE PROC (AN ERROR STATUS) 
Rl = O 
R2 = CLUSTER SYSTEM ID (CSID) OF THE REMOTE SYSTEM 
R3 = ? 


Re te Me Se Me Se Se Te Ye Me Ne Se Se Se Me Ne Ne Ne 


ELSE 
RO CONTAINS THE ERROR CODE 
SS$_NOSUCHNODE - STRING REFERS TO NONEXISTANT NODE 
SS$_IVLOGNAM - NODE NAME IS TOO LONG 


Ne Se Ne Ne 


SIDE EFFECTS: 
RO, R1 AND R4 WILL BE TRASHED 


=e Ye Ve Re 


DECLARE PSECT EXECSPAGED_CODE 


PARSE NODE: 
SAVE_MASK =*M<R4,R5,R6,R7,R8,R9>; DEFINE REGISTER SAVE MASK 
PUSHR #SAVE_MASK ; SAVE REGISTERS WHICH WE WILL USE 


; COMPUTE THE LENGTH OF THE NODE NAME, ERROR IF TOO LONG FOR A LOGICAL NAME. 
; ADJUST THE STRING POINTERS FOR THE PROCESS NAME 
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1448 100S: 
1449 
1450 
1451 
1452 
1453 
1454 
1455 1108: 


' MOVZBL #LOGS$C_NAMLENGTH, - 


RBLEN (R6) 

STRNLOG S LOGNAM=LNLEN (R6) , - 
RSLLEN=RBLEN (R6) , - 
RSLBUF=RBLEN (R6) 

BLBS RO,110$ 

BSBW 180$ 

CMPW #SS$_NOTRAN, RO 


se Ne Ne 


SET RESULT BUFFER TO FULL LENGTH 
AT THE TOP OF EACH ITERATION 
TRANSLATE LOGICAL NAME 


1399 SUBL3 R3,R1,R7 3 LENGTH OF NODE NAME TO R7 
1400 CMPL #LOG$C_NAMLENGTH~1, R7 3 COMPARE AGAINST MAX FOR LOGICAL NAME 
1401 BLSS 120$ # INVALID NAME IF TOO LONG 
1402 MOVL R3,R8 3 ADDRESS OF NODE NAME TO R8 
1403 ADDL2 R7,R3 3; MOVE PROCNAME POINTER PAST THE NODE 
1404 ADDL2 #2,R3 3 MOVE PROCNAME POINTER PAST THE :: 
1405 SUBL3 #1,R0,R2 ? LENGTH IS ONE LESS THAN REMAINING 
1406 
1407 ; RECURSIVELY TRANSLATE THE NODENAME UNTIL SS$_NOTRAN OR DEFAULT NUMBER OF 
1408 ; TRANSLATIONS. PREPARE A TRANSLATE BUFFER ON THE STACK: 
1409 ; 
1410 ¢ Reem ns ee mms mmm wnee mn ane 
1411 ; SP: | Logical name length H 
1412 ; [Resse sese reas sseeHSSesSe—eees= | 
1413 ; +4 | Logical name address | 
1414 ; aca a aa i 
1415 ; +8 | Result buffer length | 
1416 ; | mr rr te ne rere seco resco ne | 
1417 ; +12 | Result buffer address | 
1418 ; aa a a i 
1419 ; +16 | logical name / result | 
1420 ; | buffer | 
1421 ¢ tm m er meet wes owen ween roerercres= 
1422 
1423 LNLEN = 0 3 OFFSET TO LOGICAL NAME LENGTH 
1424 LNADR = 4 ; ADDRESS 
1425 RBLEN = 8 ; RESULT BUFFER LENGTH 
1426 RBADR = 12 ; ADDRESS 
1427 BUFF = 16 ; BUFFER FOR BOTH NAME AND RESULT BUFFER 
1428 TOTAL = 16+LOG$C_NAMLENGTH ? TOTAL SIZE OF TRANSLATE BUFFER 
1429 ASSUME LOGS$C_NAMLENGTH LE 255 3; ASSUME THIS FITS IN A BYTE 
1430 
1431 ; R8 -> NODE NAME STRING 
1432 ; R7 = LENGTH OF THE NODE NAME 
1433 ; R6 = (WILL BE SCRATCH POINTER) 
1434 ; R5 = ? 
1435 ; ‘R4 = ? 
1436 ; R3 -> BEGINNING OF PROCESS NAME STRING, ADJUSTED PAST THE NODE NAME 
1437 ; R2 = LENGTH OF PROCESS NAME STRING, AS ABOVE 
1438 
1439 MOVAB ~TOTAL (SP) , SP 3 ALLOCATE STORAGE FOR BUFFER ON STACK 
1440 MOVL SP, R6 ; SAVE THE BUFFER ADDRESS 
1441 MOVAB BUFF (R6) , LNADR (R6) 3 SET LOGNAM BUFFER ADDRESS IN DESC 
1442 MOVL R7, LNLEN (R6) ? SET LOGNAM LENGTH IN DESC 
1443 MOVAB BUFF (R6) , RBADR (R6) ; SET RESULT BUFFER ADDRESS IN DESC 
1444 MOVQ R2, -(SP) 3 PROTECT REGISTERS FROM MOVC 
1445 MOVC3 R7, (R8) , BUFF (R6) 3 MOVE THE NODE NAME TO THE BUFFER 
1446 MOVQ (SP) +,R2 7 RESTORE REGISTERS 
1447 MOVL #10,R7 ? SET ITERATION COUNTER 
, 


SKIP OVER BUGCHECK IF IT WORKED 
SHOULDN'T FAIL UNLESS SOMETHING IS BAD 
ARE WE DONE WITH TRANSLATIONS? 
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1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 


1494 
1495 
1496 
1497 
1498 
1499 
1500 


1501. 


1502 
1503 
1504 
1505 
1506 
1507 
1508 


BEQL 
MOVL 
SOBGTR 
MOVAB 


130$ 


RBLEN (R6) , LNLEN (R6) 


R7,100$ 
TOTAL (SP) , SP 


# INVALID LOGICAL NAME ERROR 


1208: MOVZWL 


BRW 


R8 = 
R7 = 
R6 
R5 = 
R4 = 
R3 
R2 =x 


™e Ne Ye Ne Ye Te Ye No Ne Xe 


130$: MOVQ 


#SS$_IVLOGNAM, RO 
160$ 


RBLEN (R6) , R7 


we Ne Me Ye 


e 
a’ 


3 


e 
e 
° 
? 


YES, USE THE NODE NAME 

RECYCLE OUTPUT AS INPUT NAME 

DO IT FOR TEN TIMES BEFORE GIVING UP 
CLEAN TRANSLATE BUFFER FROM STACK 


SET ERROR CODE 
AND EXIT 


NODE HAS BEEN TRANSLATED, AND ANY LEADING HAS BEEN REMOVED. FIRST SEE IF 
THIS NODE IS THE LOCAL NODE 


-> TRANSLATION BUFFER CONTAINING THE N 


-> BEGINNING OF PROCESS NAME STRING, ADJUSTED PAST THE NODE NAME 
LENGTH OF PROCESS NAME STRING ; 


MOVE NODENAME LENGTH TO R7, ADDRESS 
OF NODENAME TO R8 


# CONVERT NODE NAME TO UPPER CASE, AS SB NODE NAMES ARE ALWAYS UPPER CASE 


MOVL 
CLRL 
MOVB 
MOVB 


1408: 


G“*EXESAR_UPCASE_DAT, RO 


R1 
(R8),R1 
(RO) [R11], (R8)+ 


SOBGTR R7,140$ 


3 PREPARE TO SCAN CLUSTER NAME DATABASE 


MOVO 
MOVL 
BEQL 
PMLREQ 


++ 


me Ye te 


LOCK 


MOVL 
BEQL 
MOVL 
BEQL 
MOVQ 
MOVAB 
MOVZBL 
CMPCS 
BNEQ 
MOVO 
UNLOCK 


RBLEN (R6) , R7 
G*CLU$GL_CLUB, R9 
180$ 
END=LOCK_END 


LOCKNAME=SCS, - 
PRESERVE=NO 


CLUB$L_LOCAL_CSB(R9) , R9 


180$ 
CSBS$L_SB(R9),R1 
180$ 

R2, ~(SP) 
SB§T_NODENAME (R1) , R3 
(R3) +, R2 

R2, (R3), #0,R7, (RB) 
190$ 

(SP) +,R2 
LOCKNAMESSCS, - 
NEWIPL=#0, - 
PRESERVE=NO 


Se Ye ™e Me Me Me me Se Se Me we 


Se Se Se Ne Ne Me Ne Se Me Se Ne Ne te 


GET POINTER TO UPCASE TABLE 
CLEAR UPPER BYTES OF INDEX 

GET THE NEXT BYTE 

GET NEW CHAR, ADVANCE POINTER 
LOOP THROUGH NODE NAME STRING 


NODENAME LENGTH TO R7, ADDRESS TO R8 
GET POINTER TO CLUSTER BLOCK 

IF NO CLUB, THEN NOT IN CLUSTER 
LOCK CODE WHICH RUNS AT HIGH IPL 


Co-routine address + 2 LWs have been placed on top of stack 


LOCK SCS DATABASE AND RAISE 

IPL TO SYNCH 

GET POINTER TO CSB FOR LOCAL SYSTEM 
IF NO CSB, THEN SOMETHING IS ROTTEN 
R1 -> Local SB : 
IF EQL NONE??? 
SAVE REGISTERS FROM THE CMPC 
MOVE ADDRESS OF STRING (COUNT BYTE) 
LENGTH TO R2, R3 -> TO TEXT FIELD 
DOES THE INPUT NODE MATCH THE LOCAL? 
NOT A MATCH ON LOCAL, CHECK ENTIRE CLUSTER 
RESTORE REGISTERS 
UNLOCK SCS DATABASE 

LOWER IPL 

RO DOESN’T MATTER 
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1509 PMLEND 7 UNLOCK PAGES 

et+ 

3 NB: Co-routine address + 2 LWs have been removed from top of stack 

;-> 
1510 MOVZWL #SS$_NORMAL, RO + STATUS SAYS ITS THE LOCAL NODE, 
1511 + R2/R3 POINT TO PROCESS NAME ONLY 
1512 
1513 ; REMOVE THE TRANSLATE BUFFER FROM THE STACK 
1514 
1515 1508: MOVAB TOTAL (SP),SP ? DISCARD THE TRANSLATE BUFFER 
1516 
1517 ; COMMON RETURN, RESTORE SAVED REGISTERS 
1518 
1519 160S: POPR #SAVE_MASK 7; RESTORE THE SAVED REGISTERS 
1520 RSB 
1521 


1522 ; LOCAL SYSTEM IS NOT IN A CLUSTER, OR NODE SPECIFIED IS NOT IN THIS CLUSTER 


1523 


1524 1708: MOVZWL #SS$_NOSUCHNODE, RO SET ERROR CODE 


~e Te 


1525 BRB 150$ GO DISCARD TRANSLATE BUFFER AND EXIT 
1526 
1527 1808: BUG CHECK SSRVEXCEPT, FATAL 3 INCONSISTENT DATA 

1528 ae 

1529 ; THE NODE IS NOT THE LOCAL NODE, CHECK ALL THE NODES IN THE CLUSTER 

1530 ; 

1531 ; R9 = (WILL BE CSID VECTOR INDEX) 

1532 ; R8 -> TRANSLATED NODE NAME 

1533 ; R7 = LENGTH OF NODE NAME 

1534 ; R6 = (WILL BE CLUSVEC POINTER) 

1535 ; R5 = (WILL BE CSB ADDRESS) 

1536 ; ‘R4= ? 

1537 ; R3 = ? 

1538 ; R2 = ? 

1539 ; SAVED R2/R3 ON TOP OF THE STACK 

1540 

1541 1908: MOVZWL G“CLUSGW_MAXINDEX, R9 GET COUNT OF ENTRIES IN CLUSTER VECTOR 
1542 DECL R9 ADJUST, SINCE COUNT IS MAX INDX + ONE 
1543 BLEQ 180$ COUNT SHOULD BE POSITIVE 


R6 -> CSID vector 
USE HI NODE INDEX TO GET CSB ADDRESS 


1544 2008: MOVL G*CLUS$GL_CLUSVEC, R6 
1545 210$: MOVL (R6) [R9),R5 


me Se te Ne Ye Me Ye Se Ne 


1546 BGEQ 230$ IF NOT SYSTEM ADDRESS, NOT A CSB 
1547 MOVL CSBSL_SB(R5),R1 Rl -> NODE’S SYSTEM BLOCK 
1548 BEQL 180$ IF EQL NO SB FOR THIS CSB??? 
1549 2208: MOVAB SBS$T_NODENAME (R1) , R3 MOVE ADDRESS OF STRING (COUNT BYTE) 
1550 MOVZBL (R3)+,R2 + GET LENGTH IN R2, ADVANCE R3 TO TEXT FIELD 
1551 CMPCS R2, (R3), #0,R7, (R8) + DOES THE INPUT NODE MATCH THIS SB? 
1552 BEQL 240$ ; WE FOUND IT 
1553 2308: SOBGEQ R9,210$ # LOOK AT EVERY ENTRY IN THE VECTOR 
1554 UNLOCK LOCKNAME=SCS, ~ 7; UNLOCK SCS DATABASE 
1555 NEWIPL=#0, - # LOWER IPL 
1556 PRESERVE=NO 7 RO IS NOT IMPORTANT 
1557 MOVQ (SP)+,R2 ; RESTORE REGISTERS 
1558 PMLEND ; UNLOCK PAGES 

i++ 

7 NB: Co-routine address + 2 LWs have been removed from top of stack 
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a 


1559 
1560 ; WE COULD NOT FIND THIS NODE, RETURN THE SS$_NOSUCHNODE ERROR 
1561 
1562 BRW 170$ ; RETURN SS$_NOSUCHNODE AND EXIT 
1563 
1564 ; WE FOUND THE NODE, SET UP REGISTERS AND RETURN THE SS$_ REMOTE PROC VALUE 
1565 ; 
1566 ; RS -> CSB FOR THE LOCATED NODE 
1567 ; <R2,R3> SAVED ON STACK, HAVE PROCNAME LENGTH AND ADDRESS 
1568 ; <RO, R1,R4,R5,R7,R8,R9> NOT INTERESTING 
1569 
1570 2408: MOVL CSBSL_CSID(R5) , R2 ; GET THE CSID FROM THE CSB 
1571 UNLOCK LOCKNAME=SCS, - ; UNLOCK SCS DATABASE 
1572 NEWIPL=40, - 7; LOWER IPL 
1573 PRESERVE=NO 7 RO IS NOT INTERESTING 
1574 ADDL2 #8,SP ? DISCARD SAVED REGISTERS 
1575 PMLEND ?; UNLOCK PAGES 
ett ae 
; NB: Co-routine address + 2 LWs have been removed from top of stack 
1576 CLRL R1 7 NO PID TO RETURN 
1577 MOVZWL #SS$_ REMOTE PROC, RO 7 RETURN REMOTE PROCESS STATUS 
1578 BRW 150$ ; CLEAN STACK AND RETURN 
1579 


1580 LOCK_END: 
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-SBTTL CWPSSPCNTRL Cluster pentrl dispatcher 


1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 


+ 


we Ye 


we te 


=e 


=e Ye Ve 


Current state: 
PIDADR (AP) 
PRCNAM (AP) 
RO 
R1 
R2 
R3 
R4 
R5 
IPL 


RO 
(R5) 


™e Ye Se Ye Ve Ne Ve Ve Ve YO Ye We VO NWO Ve Ve =e Ve Se Ye Ve Se 


we 


CWPSSPCNTRL: : 


Calling sequence: 
Branch from local service code 


Implicit output: 
@PIDADR(AP) - If <>0, receives EPID of process actually modified. This 


Routine to dispatch simple process request to another cluster 
node, and to return status to the user. 


Address of EPID for target process (optional) 
Address of process name (optional) 

Status code SS$ REMOTE PROC from EXESNAMPID 
EPID of remote process (or 0) 

CSID of remote node 

CWPS Service code 

PCB address of current process 

available 

IPL = 0 


Outputs from routine: (Note - this routine JUMPs to cluster code which will. 


perform the RET which returns us to the service 
caller.) 


~ Completion status from remote. node or CSP eonait ton 
- If R5<>0, then recédves. return data a 


address is probed and written by the routine 
CWPS$SSND_PCNTRL_RQST 


7 Allocate a CWPSSRVS$ block. This block contains pentrol 
? service-common fields. Point RO at the block. 


ASSUME cwpscan$k_ length EQ 0 7 No extensions for these guys 
ASSUME cwpsdel$k_ length EQ 0 
ASSUME ewpsres$k_ length EQ 0 
ASSUME cwpssus$k_length EQ 0 
ASSUME cwpswak$k_length EQ 0 


movqg R1, - (SP) 3 Save R1:R2 across call 

elrl RO 7 No specific extension 

elrl R1 3; No additional buffers 

movab PIDADR(AP), R2 ; Pass address of pidadr/prenam 
jsb g*CWPSSALLOCATE SRV 7 Allocate a block (and other 


stuff, and some setups) 


; IPL now is IPL$ ASTDEL 


blbe RO, 105 : Exit if error 
movl R2, RO 7 Copy pointer to RO 
movgq (SP)+, Rl 3; Restore R1:R2 


7 Now the block address is in RO, the size in CWPSSRVSL_SEND_LEN (RO) 
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and CWPSSRV$L_MAXIMUM_LENGTH(RO). Set the type/subtype fields. 


1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 


=e 


10$ 


e 
e 


ASSUME cwpssrv$b_type EQ cwpssrv$w_sizet+2 
ASSUME cwpssrv$b_subtype EQ cwpssrv$b_typetl 


movb 
movb 


° 
Cd 


movw 
MOovw 


° 
eo 
e 
v 


movab CWPSS$PCNTRL CLEANUP, - 


se Me Me “Ne Ne Ne Be Ne Se Ne Re Ye Ye Ye 


jmp 


e 
eo 
e 
Cf 


#dyn$c_cwps, cwpssrv$b_type(RO) ; Set type code 
R3, cwpssrvS$b_subtype (RO) : 


Load subtype code. 


Set extension structure levels 


#cwpssrv$k_initial_ maj vers, cwpssrv$w_ext_maj_vers (RO) 
#cwpssrv$k_initial _min_vers, cwpssrv$w_ext _min_ vers (RO) 


Stash the address of the post routine (not needed since there’s 
nothing to clean up at this point). 


Move address of the routine 


cwpssrv$a_post_routine (RO) ; to finish after the xfr 


Call the common process control routine. This routine will insert 


common data into the block, 


send the block to the remote node, and 


wait for return status. After return, it will store the actual 
EPID of the affected process (if PIDADR<>0). This routine assumes 


much of the current state, 


to wits: 


of EPID for target process (optional) 


PIDADR(AP) - Address 

PRCNAM(AP) - Address of process name (optional) 

RO - Pointer to a service block, code and length set 
Rl. ~ EPID of remote process, or 0 

R2 ~ CSID of remote node 

R3 - scratch register 

R4 - PCB address of current process 

IPL - IPL = IPL$_ASTDEL 


The above routine executes 


g*CWPSSSSND_PCNTRL_ROST 


the RET instruction which returns us to 


user code, this module does not regain control. 


setipl #0 
brw EXIT 


7 Restore original IPL 
? Exit if error 
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sbttl CWPSSPCNTRL. CLEANUP . - Perform post-transfer activities — 


+ 


Perform activities specific to common process control services which 
must be done after the response from the remote node is available. 

Calling sequence: ae . . } 

JSB @cwpssrv$a_post routine (R6) from CWPS$SSND_PCNTRL_RQST 


Current state: 
Status from remote node (CWPSSRVSL_STATUS (R6) ) 


R1:R5 - undefined, available for scratch without save/restore 
R6 - Pointer to the CWPSSRV§$ service block 

IPL - IPL = 0 

cwpssrv$1_status (RO) - status from remote node 


Outputs from routine: 
none. 


CWPSS$PCNTRL_CLEANUP: : 


=e Re Ye 


rsb 


-END 
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Table of contents 


(1) 
(1) 
(1) 


(1) 


(1) 


96 
123 
168 
213 
260 


DECLARATIONS 

EXESWFLAND - WAIT FOR LOGICAL AND OF EVENT FLAGS 
EXESWFLOR - WAIT FOR LOGICAL OR OF EVENTS 
EXESWAITFR - WAIT FOR SINGLE EVENT | 

EXESWAIT ~ WAIT COMMON CODE 
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-_ 
COCMIAUAWNHE 


-TITLE SYSWAIT EVENT FLAG WAIT SERVICES 
-IDEN® 'X-7' 


PESOS IIIT IO IIIT IITA IT TOTTI TTT T ITO T TIT IR 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. . 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITs 
SOFTWARE ON EQUIPMENT WHICH Is NOT SUPPLIED BY DIGITAL. 


ete ee Hee Hee HF He He HHH He EH HF 
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7t++ on 28 

; FACILITY: EXECUTIVE, EVENT FLAG SERVICES 

; ABSTRACT: WAIT CONTAINS THE THREE FORMS OF EVENT FLAG WAIT 

; SYSTEM SERVICES WHICH PROVIDE FOR SINGLE EVENT WAIT AS 

7 WELL AS COMBINATIONS OF MULTIPLE EVENTS. 
7 AUTHOR: 

; R.HUSTVEDT : VERSION 

; MODIFIED BY: 

; X-7 SUF Stu Farnham 28-Apr-1988 
r ; Synchronize EXESWAIT with kernel ASTs by raising IPL 
; to ASTDEL. 

F X-6 wceTo015 Ward C. Travis 6-Jan-1987 
; Update outdated SMPLOCK, SMPUNLOCK uses to LOCK, 
; UNLOCK for SMP. 

; X-5 SSA0003 Stan Amway 22-Sep~1986 
; Move routine SCHSWAIT to RSE.MAR. The routine has 

; knowledge of both scheduling mechanisms and policy, 
; and therefore, should reside in the PROCESS MANAGEMENT 
; loadable image. 

; X-2E3 HHO166 Hai Huang 07-Apr-1986 
; Resolve merge conflicts. 

; X~2 MSH0209 Michael S. Harvey 26-Nov-1985 
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58 
59 
60 
61 
62 
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v03-007 


Tighten up the multiprocessing interlock mechanisms. 


SSA0002.s—“‘<‘é«‘ Stan Away @-Mar-1984 
Subtract IOTA from automatic working set adjustment 


time reference in PHD on any entry to SCHSWAITx code. 


v03-006 


V03-005 


V03~-004 


V03=-003 


(Acknowledgements go to Wayne Cardoza and Larry Kenah, 
who both collaborated on this change.) 


WMC0001 _ Wayne Cardoza 22-Feb-1984 
No reason to try to wake up swapper on every EFN wait. 


SSA0001 ‘Stan Amway 5-Dec-1983 


Added support for outswap scheduling changes. 
Changed process wait code to store wait time in PCB 
as longword system absolute time. 


KDMO035 Kathleen D. Morse 14-Dec-1982 
Fix assembly switch for performance collection for 
kernel mode services executed on secondary processor. 


KDM0034 Kathleen D. Morse - 13-Dec-1982 
Correct logic for secondary continuing execution of 


' @ process after a WAITCHK request is done by the primary. 


v03-002 


Vv03-001 


vo4-001 


KDMO0030 Kathleen D. Morse 18-Nov-1982 
Add IFPRIMARY logic that allows primary to execute 
secondary~specific code without turning into a secondary. 


KDm0018 - Kathleen D. Morse 13-Oct-1982 


Add multi-processing switch, which generates these 


system services for the secondary processor. 


SF04001 Stephen Fiorelli 27-Oct-1985 
System_service macro used to declare entry point 
and build system service desriptor block. 

Added $SYSVECTORDEF . 
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-SBTTL DECLARATIONS 


96 

97 

98 ; 

99 ; INCLUDE FILES: 
100 ; : 

101 . 
102 SCEBDEF 
103 SDYNDEF 
104 SEVTDEF 
105 $IPLDEF 
106 S$PCBDEF 
107 $PHDDEF 
108 $PRDEF 
109 $PSLDEF 
110 $SHBDEF 
111 $SHDDEF 
112 $SSDEF 
113 S$STATEDEF 
114 $SYSVECTORDEF 
115 SWQHDEF 
116 ; 

117 ; EQUATES: 

118 ; 

119 EFN=4 

120 MASK=8 

121 DECLARE_PSECT 


EXECSNONPAGED_CODE 


3COMMON EVENT BLOCK DEFS 
#DYNAMIC STRUCTURE TYPES 
#DEFINE SYSTEM EVENT CODES 

7IPL DEFINITIONS 

7PCB DEFINITIONS 

#PHD DEFINITIONS 

7PROCESSOR REGISTER DEFS 

#PSL DEFINITIONS 

#SHARED MEMORY CONTROL BLK DEFS 
#SHARED MEMORY COMMON DATA PAGE 
?STATUS CODE DEFINITIONS 

#STATE DEFINITIONS 

3SYSTEM SERVICE OFFSETS 

7WAIT QUEUE HEADER DEFS 


7EVENT FLAG NUMBER 
;WAIT MASK 
3 NON-PAGED 
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123 
124 
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129. 


130 
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158 
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-SBTTL EXESWFLAND - WAIT FOR LOGICAL AND OF EVENT FLAGS 


++ 


FUNCTIONAL DESCRIPTION: 


EXESWFLAND RETURNS TO THE CALLER WHEN THE SET OF EVENT 

FLAGS SELECTED BY THE MASK ARE ALL SET AND RETURNS THE 

STATE OF ALL EVENT FLAGS IN THE SPECIFIED CLUSTER. 
CALLING SEQUENCE: 

CALLG ARGLIST, EXESWFLAND 


INPUT PARAMETERS : 


O4(AP) - EVENT FLAG NUMBER SELECTING CLUSTER 
O08 (AP) - MASK SELECTING COMBINATION OF EVENTS 
R4 - PCB ADDRESS OF CURRENT PROCESS 


OUTPUT PARAMETERS: 


RO - COMPLETION STATUS CODE 
CONDITION IS SATISFIED. 


SIDE EFFECTS: 


IF THE SET OF EVENT FLAGS SELECTED BY THE MASK ARE NOT 
ALL SET, THEN THE PROCESS ISSUING THE WAIT SERVICE CALL WILL 
BE PLACED IN A WAIT STATE. 


COMPLETION CODES: 


SS$_NORMAL - NORMAL SUCCESSFUL COMPLETION 

SS$_ILLEFC - ILLEGAL EVENT FLAG CLUSTER NUMBER. EVENT NUMBER 
NOT IN THE RANGE 0-127. 

SS$_UNASEFC - UNASSIGNED EVENT FLAG CLUSTER. 


SYSTEM_SERVICE WFLAND, - 


<R2,R3,R4,R5,RE>,- 
MODE=KERNEL, - 
NARG=2 
MOVL #1,R1 ;SET MODE TO WAITALL 
BRB WFRL ;AND MERGE WITH COMMON CODE 
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168 -SBTTL EXESWFLOR - WAIT FOR LOGICAL OR OF EVENTS 

169 ;++ 

170 ; FUNCTIONAL DESCRIPTION: 

171 ; 

172 ; EXESWFLOR RETURNS TO THE CALLER WHEN ANY OF THE 

173 ; EVENTS SELECTED BY THE MASK WITHIN THE SPECIFIED CLUSTER 
174 ; ARE SET AND RETURNS THE STATE OF ALL 32 EVENT FLAGS IN THE 
175 ; CLUSTER. 

176 ; 

177 ; CALLING SEQUENCE: 

178 ; 

179 ; CALLG ARGLIST, EXESWFLOR 

180 ; 

181 ; INPUT PARAMETERS: 

182 ; 

183 ; O4(AP) - EVENT FLAG NUMBER TO SELECT CLUSTER 

184 ; O08 (AP) - MASK SELECTING DESIRED COMBINATION OF EVENTS 
185 ; R4 ~ PCB ADDRESS OF CURRENT PROCESS 

186 ; 

187 ; OUTPUT PARAMETERS: 

188 ; 

189 ; RO - COMPLETION STATUS CODE 

190 ; IS. SATISFIED. 

191 ; 

192 ; COMPLETION CODES: 

193 ; : 

194 ; sss) NORMAL - NORMAL SUCCESSFUL COMPLETION 

195 ; Sss_ ILLEFC - ILLEGAL EVENT FLAG NUMBER NOT IN THE RANGE 0-127. 
196 ; sss_ _UNASEFC - UNASSIGNED EVENT FLAG CLUSTER. 

197 ; 

198 ; SIDE EFFECTS: 

199 ; 

200 ; “THE PROCESS ISSUING THE SERVICE CALL IS BE PLACED INA 
201 ; WAIT STATE IF NONE OF THE SPECIFIED EVENTS ARE SET. 
202 ; 

203 ;-- 

204 

205 SYSTEM SERVICE WFLOR, - 

206 <R2,R3,R4,R5,R6>,- 

207 MODE=KERNEL, - 

208 NARG=2 

209 CLRL R1 3SET MODE TO WAIT ANY 
210 WERL: MOVL MASK (AP) , RO ;GET WAIT MASK 

211 BRB EXESWAIT ?;MERGE WITH COMMON CODE 
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.SBTTL EXESWAITFR - WAIT FOR SINGLE EVENT 
ett 
3 FONCTIONAL DESCRIPTION: 
3 
z EXESWAITFR RETURNS TO THE CALLER WHEN THE SPECIFIED SINGLE 
2 EVENT FLAG IS SET. UPON RETURN THE STATE OF ALL 32 EVENT FLAGS 
; WITHIN THE CLUSTER CONTAINING THE SPECIFIED EVENT ARE RETURN. 
? 
? CALLING SEQUENCE: 
3 
; CALLG ARGLIST, EXESWAITFR 
3 
? INPUT PARAMETERS: 
; 
2 04 (AP) #EVENT FLAG NUMBER 
3 R4 - PCB ADDRESS OF CURRENT PROCESS 
3 
? OUTPUT PARAMETERS: 
3 
3 RO - COMPLETION STATUS CODE 
2 SATISIFIED. 
; 
? SIDE EFFECTS: 
3 
3 IF THE SPECIFIED EVENT FLAG IS NOT SET, THE PROCESS ISSUING THE 
3 WAIT SYSTEM SERVICE WILL BE PLACED IN THE APPROPRIATE WAIT 
7 STATE. 
P 
? COMPLETION CODES: 
; 
3 SS$_NORMAL - NORMAL SUCCESSFUL COMPLETION 
; SS$_ILLEFC - ILLEGAL EVENT FLAG NUMBER NOT IN THE RANGE 0-127. 
; SS$_UNASEFC - UNASSIGNED EVENT FLAG CLUSTER. 
; 
? ENVIRONMENT: 
r 
; MODE=KERNEL 
7 
SYSTEM SERVICE WAITFR, - 
<R2,R3,R4,R5,R6>, - 
MODE=KERNEL, - 
NARG=1 
CLRL R1 7SET MODE 
ROTL EFN (AP) , #1, RO ; INIT MASK 
Ff BRB EXESWAIT 7AND MERGE WITH COMMON CODE 
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-SBTTL EXESWAIT - WAIT COMMON CODE 


260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
262 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 


3++ 


=e Se Se Se Ne Se Ye Ne Ye Se Ye Ye Te Ye te %e 
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FUNCTIONAL DESCRIPTION: 


THIS IS THE COMMON WAIT CODE FOR ALL THE EVENT FLAG WAIT 
SYSTEM SERVICES. | 


INPUT PARAMETERS : 


04(AP) = EVENT FLAG NUMBER 
RO = MASK. SELECTING EVENTS OF INTEREST 
Rl = ANY/ALL MODE SELECTOR 


O => ANY 
1 => ALL 


R4 = PCB ADDRESS OF CURRENT PROCESS 


IMPLICIT INPUTS: 


CEB I® NON-LOCAL CLUSTER. 
SUS DATABASE IS NOT LOCKED 


OUTPUT PARAMETERS: 


RO - COMPLETION STATUS CODE 


;WAIT COMMON CODE 

7;GET CLUSTER NUMBER 

7; ILLEGAL IF NOT (0,1,2,3) 

;RIGHT ALIGN CLUSTER NUMBER 
7SYNCH WITH KERNEL AST LEVEL 
7;POINTER TO PCB EVENT CLUSTER 
7;SAVE WAIT CLUSTER NUMBER 

7BR IF COMMON CLUSTER R2 = (2,3) 
7SET WAIT QUEUE POINTER 


7;SET ERROR CODE FOR ILLEGAL CLUSTER 
7AND EXIT 

7;SET ERROR CODE FOR UNASSIGNED 

7AND EXIT 

7;GET CEB ADDRESS FOR EVENT FLAGS 
7;CEB ASSIGNED (SYSTEM SPACE ADDRESS) 


#DYN$C_SLAVCEB, <CEBS$B_TYPE-CEBSL_EFC>(R2) ;IS THIS IN SH MEM? 


7BR IF IN LOCAL MEMORY 


<CEBSL_MASTER-CEBSL_EFC>(R2),R3 ;GET ADR OF MASTER CEB 


7;COPY EFC FROM MASTER TO SLAVE CEB 


SATISIFIED. 

EXESWAIT: 

CVIBL EFN(AP),R2 

BLSS 10$ 

ASHL #-5,R2,R2 

SETIPL #IPL$ ASTDEL 

MOVAL PCBSL_EFCS(R4) [R2],R3 

MOVB  _— R2, PCB$B_WEFC(R4) 

SOBGTR R2,30$ 

MOVAQ G*SCH$GQ_LEFWQ,R2 

BRB WAITCK ; 
10$: MOVZWL #SS$_ILLEFC, RO 

RET 
20$:  MOVZWL #SS$_UNASEFC,RO 

RET 
30$:  ADDL3  #CEBSL_EFC, (R3),R2 

BGEQ 20% 

CMPB 

BNEQ 40$ 

MOVL 

MOVL § CEBSL_EFC(R3), (R2) 

ASSUME <CEBSL_EFC+4> EQ CEBSL_WOFL 
40$: MOVAL (R2)+,R3 


we Se Ne Ne Ye Me 


;GET EVENT POTNTER AND WAIT QUEUE ADDR 
; R3=CEBSL_EFC, R2=CEBSL WOFL 


RO - MASK SELECTING EVENTS OF INTEREST 


R1 
R2 
R3 
R4 


ANY/ALL MODE SELECTOR 
ADDRESS OF WAIT QUEUE HEADER 
ADDRESS OF EVENT FLAG VECTOR 
PCB ADDRESS 
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317 
318 
319 
320 
321 
322 
323 
324 
325 


WAITCK: 


NOWAIT: 


326 © 


327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 


WAITALL : 


WAIT: 


LOCK 


BITL 
BEQL 
BLBS 


MOVL 
ADDL 
MOVZBL 
UNLOCK 
RE IMAC 


BICL2 
BEQL 
INSV 
MCOML 
JMP 


END 


LOCKNAME=SCHED, - 
LOCKIPL=#IPL$_SYNCH 
(R3) , RO 

WAIT 

R1, WAITALL 


12 (FP), FP 
S“#EXE$C_CMSTKSZ, SP 
#SS$_NORMAL, RO 
LOCKNAME=SCHED 


(R3) , RO 
NOWAIT 


;CHECK FOR WAIT SATISFIED 

;LOCK SCHED DATABASE - STOP SCHEDULING 
RAISE IPL 

;WAIT FOR LOGICAL OR MAY BE SATISFIED 
NO, MUST WAIT 

3; 1 => WAIT FOR ALL IN MASK 


. 


;GET SAVED FRAME POINTER 


2 


.@CLEAN STACK TO PC,PSL 


7RETURN SUCCESS CODE 
7; UNLOCK SCHED DATABASE 
7RETURN TO CALLER 


3 WAIT FOR ALL SELECTED EVENTS 
3 CLEAR BITS FOR ALREADY SET FLAGS 
7YES, DONT WAIT 


R1, #PCBSV_WALL, #1,PCBSL_STS(R4) ;SET WAIT ALL FLAG 


RO, PCBSL_EFWM(R4) 
G*SCHSWAIT 


7SAVE INVERTED WAIT MASK 


7 EXEC _LAYOUTLIS 
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Stephen Fiorelli 


Creation Date: 


-TITLE EXEC_LAYOUT 
-IDENT ‘X-9! 
POTEET TTT TTT TT TET TTT ETT TT TT TLE LETTE TT TEC T TT TEE TTT TTT TTT TTT TTT 
o* 
¢ 
7* COPYRIGHT (c) 1985 BY | 
#* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
3* ALL RIGHTS RESERVED. 
o* 
a tet 
?7* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
7* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
3* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
3;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
#* TRANSFERRED. 
3* 
3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
3* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
7* CORPORATION. 
3* 
#*® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
7* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
2 
e 
PARKA HHEKKEKKKKKKREKEKKEKKEKKERERKEKKEREREKEKEERKEKKEEREKKKEKKEKEEKEKKKKERKEEKRKEKREKEREKE 
e++ 
? Facility: 
2 
; Executive Transfer Vector (Base image) 
? 
? Abstract: 
? Define the layout of the VMS executive. 
# Notes: 
? 
7; Author: 
? 


6 May 1985 
Modified by: 
X-9 GNOOO001 Gazo Namoglu 12-Apr-1989 
Reserve space as a patch area referenced within 


MMGS$A_EXEC_PATCH BEGIN and MMGS$A_EXEC_PATCH END. 


X-8 SF00003 Stephen Fiorelli 16-Apr-1987 
Plac end of base image holder here. 


se “es “Se Ye Ye Se Ye Ye Ye Ye Ne Ye 


X-7 wMcOoo0o1 Wayne Cardoza 21-Apr-1986 
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v04-002 


vo4-001 


New mechanism for defining global edacenees: 


SF04002 Stephen Fiorelli 03-Feb-1986. 
Change lexical processing in the local $GBLINI macro 
to strip off the BASES produced from exe_offsets.mar 
and sys offsets.mar ‘ 


SF04001 _. Stephen Fiorelli 10-Jan-1986: 


Change the local $GBLINI macro to generate SYSSname 


symbols or (prefix) Sones symbols depending on a switch. 


TCMO0003 Trudy C. Matthews 26-Nov-1985 
In re-definition of $GBLINI, generate EXE$name symbols 
for system service vectors rather than SYSSname symbols. 


TCMO002 Trudy C. Matthews 3-Oct-1985 
Correct bug in $GBLINI macro - make sure we store the 
JMP /NOP/NOP.. sequence at the pre-determined vector offset. 


_TCMO001 Trudy. c. Matthews - 29-Sep-1985 


Add SMTACCESS routine offset. 
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-DISABLE .- TRACEBACK 


$GBLINI - INITIALIZE THE GLOBAL/LOCAL DEFINITION SWITCH 


This is a special local definition of $GBLINI. 
If BASE_ADDRESS is defined when this macro is invoked,... 
Also, if USE_SYS PREFIX = 1 when this macro is invoked, the string 


‘SYS$’ will be used instead of the prefix defined in the symbol 
name. 


GBL = GLOBAL, LOCAL, OR NULL. 
IF THIS PARAMETER IS GLOBAL 
GLOBAL DEFINITIONS ARE GENERATED. OTHERWISE 
LOCAL DEFINITIONS ARE GENERATED. 


This local $GBLINI macro was created to define the 
symbols associated with exec vectors. 

THE macro definitions are affected by this $GBLINI; 
is $SYSVECTORDEF. S$SYSVECTORDEF will be redefined 
to produce symbols for system service vectors. 
$SYSVECTORDEF was produced from the file 
SYS_OFFSETS.SDL. Definitions within this macro. 
are of the form: 


$EQU  BASESEXESK_QIO 456 


Since S$DEFINI (defines the macros S$SYSVECTORDEF 
produced by the SDL complier) 

uses SGBLINI, this local S$GBLINI 

will produce EXESQIO (from BASESEXES$K_QI0O) equal 
to a BASE ADDRESS (if defined) plus the offset 
from the base. 


SEQU BASESEXESK_QIO 456 
would produce 
EXESQIO == 800001C8 


in this module with a base address defined to be 
80000000. 


-MACRO $GBLINI GBL=LOCAL 

IF IDN <GBL> <GLOBAL> 
-MACRO S$DEF SYM, ALLOC, SIZ 
-IIF NB, SYM, SYM:: 


-IIF NB, ALLOC, ALLOC SIZ 

-ENDM SDEF 

-IF NOT_DEFINED BASE_ADDRESS 
-MACRO SEQU SYM, VAL 
SYM==VAL 
-ENDM SEQU 

. IF_FALSE 


-MACRO SEQU NAME , VALUE 
.- LEN... = %LENGTH (NAME) 
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138 ---BASE LEN... = %LOCATE (<$>, NAME) +1 

139 ..+PREFIX_LEN... = *LOCATE (<K_>,NAME)~...BASE_LEN... 
140 -IF -. EQUAL <...LEN...-...PREFIX_LEN...> 
141 -ERROR ; String name does not contain K 
142 . IF_FALSE 7 
143 .. SUFFIX_LEN... = ...LEN...-<%LOCATE (<K_>, NAME) +2> 
144 -- SUFFIX... = %tLOCATE (<K_>, NAME) +2 

145 

146 IF EQ,USE_SYS_ PREFIX 

147 

148 tEXTRACT(...BASE_LEN...,...PREFIX_LEN...,NAME) SEXTRACT(...SUFFIX...,...SUFFI 
149 == BASE ADDRESS + VALUE 

150 

151 . IF_FALSE 

152 

153 SYS$%EXTRACT (...SUFFIX...,...SUFFIX_ LEN. ..,NAME) ~ 

154 == BASE ADDRESS + VALUE 

155 

156 -ENDC 

157 

158 -RESTORE_PSECT 

159 - = VALUE 

160 JMP @#EXESLOAD_ERROR 

161 NOP 

162 NOP 

163 - SAVE_PSECT 

164 -PSECT SABSS$,ABS 

165 

166 - ENDC 

167 - ENDM SEQU 

168 -ENDC 

169 -MACRO SVIELD1 MOD, SEP, SYM, SIZ,MSK 

170 SIZ...=1 

171 - TIF NB,SIZ, SIZ...=SIZ 

172 IF NB, SYM 

173 MOD’ SEP’V_’SYM==BIT... 

174 -IIF NB,SIZ, MOD’ SEP’S ‘'SYM==SIZ 

175 -IIF NB,MSK, MOD’ SEP’M ' SYM==<<<1@SIZ...>-1>@BIT...> 
176 ~ENDC 

177 BIT...=BIT...+S1IZ... 

178 -ENDM SVIELD1 

179 -IFF 

180 -IIF DIF <GBL> <LOCAL>, - 

181 -ERROR ;ARG MUST BE GLOBAL, LOCAL,OR NULL; 

182 -MACRO SDEF SYM, ALLOC, SIZ 

183 -IIF NB, SYM, SYM: 

184 - TIF NB, ALLOC, ALLOC SIZ 

185 -ENDM SDEF 

186 IF NOT_DEFINED BASE ADDRESS 

187 -MACRO S$EQU SYM, VAL 

188 SYM=VAL 

189 - ENDM SEQU 

190 

191 -IF_ FALSE 

192 

193 -MACRO SEQU NAME , VALUE 

194 -.- LEN... = %tLENGTH (NAME) 
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195 ; .»-BASE_ LEN... = tLOCATE (<$>, NAME) 

196 .. PREFIX | LEN... = %LOCATE (<K_>, NAME) 

197 IF EQUAL <...LEN...-...PREFIX . LEN. ..> 
198 -ERROR ; String name does not contain K_ 
199 - . .. «If FALSE 

200 oe SUFFIX | LEN... = ...LEN...-<%LOCATE (<K_>, NAME) +2> 
201 -- SUFFIX... = tLOCATE (<K_>, NAME) +2 
202 

203 IF EQ, USE_SYS_PREFIX 

204 et 

205 

206 %EXTRACT (...BASE _ LEN...,..-PREFIX_LEN...,NAME) tEXTRACT(...SUFFIX...,...SUFFI 
207 == BASE ADDRESS + VALUE 

208 

209 -IF_FALSE . 

210 . — 

211 SYS$%EXTRACT(...SUFFIX...,...SUFFIX_LEN...,NAME) - 
212 = BASE_ADDRESS + VALUE 

213 

214 -ENDC 

215 

216 -RESTORE _PSECT | 

217 - = VALUE : 

218 NOP 

219 NOP 

220 JMP @#EXESLOAD_ERROR 

221 - SAVE_PSECT 

222 -PSECT S$ABS$,ABS 

223 

224 -ENDC 

225 -ENDM SEQU 

226 -ENDC 

227 -MACRO S$VIELD1 MOD, SEP, SYM, SIZ, MSK 

228 SIZ...#1 

229 -lIF NB,SIZ, SIZ...=2S1IZ 

230 IF NB, SYM 

231 MOD’ SEP’ V_'SYM=BIT... 

232 -LIF NB, SIZ, MOD’SEP’S ‘'SYM=SIZ 

233 TIF NB,MSK, MOD’ SEP’M |’ S¥M=<<<1@SIZ...>-1>@BIT...> 
234 -ENDC 

235 BIT...=BIT...+SIZ... 

236 -ENDM $VIELD1 

237 -ENDC 

238 -ENDM $GBLINI 

239 

240 -SBTTL LOCAL SYMBOL DEFINITIONS 


# pages in system service vector area 
# pages in exec routine vector area 

# pages in non-paged data area 

# pages in system parameter area 

# pages in boot parameter area 


241 SYS$C_SO_VECTOR_PAGES == 16 
242 EXESC | VECTOR | PAGES == 16 
243 EXESC _| NPAG | DATA _| PAGES == 32 
244 EXESC_SYSPARAM_PAGES == 16 
245 EXE$C_BOOPARAM PAGES == 4 


se Te “Ve Me Ye 
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247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 


.SBTTL SYSTEM SERVICE VECTOR AREA 
++ 
SYSTEM SERVICE VECTOR AREA 


=e Se te 


Reserve space in the base system image for all system service vectors. 
Also, define a global symbol for each vector location. 


=e Se Ve 


-PSECT $$$$$000_SYSTEM SERVICE_VECTORS, PAGE, NOEXE 


SYS$SO_VECTOR_BASE:: 3? Define base of system service vector 
* area. 
BASE_ADDRESS = SYS$SO_ VECTOR | BASE 7Define flag for $GBLINI 
USE _ sys | PREFIX zs 0 : 3 All other globals are defined 
3 using prefixes in the symbol names. 


$SYSVECTORDEF ‘GLOBAL ;Define global symbols for system 
ie zservice transfer vectors in this region 


oe VECTOR_LAST_ USED: : Define space actually used by 
. . 3; vectors.. 
- BLKB <512*SYS$C_; SO_VECTOR_PAGES> - <.~-SYS$S0_' VECTOR | BASE> 
; Reserve rest of pages for system 
# service vectors. 


SYS$SO_VECTOR_END: : ; Define end ‘of system service vector 
7 area. 
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277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 


-SBTTL EXECUTIVE ROUTINE VECTOR AREA 
+ 


NON-PAGED EXECUTIVE ROUTINE VECTOR AREA 


+ 


ee Ye Ve 


-PSECT $$S$$SNONPAGED_ CODE, PAGE, EXE, OVR 


EXESVECTOR_BASE: : Define base of exec subroutine vector 


area. 


me Ne 


BASE_ADDRESS = EXESVECTOR_BASE 7Define flag for $GBLINI 


-BLKB  <512*EXE$C_VECTOR_PAGES> - <.-EXE$VECTOR_BASE> 


Reserve space for exec subroutine 
vectors. 


ee Ye 


EXESVECTOR_END: : Define end of executive subroutine 


vector area. 


we Ve 


Note special fix-ups needed for routines that can be contained within 
the 8-byte vector space: 

EXESLOAD_ERROR: HALT 

EXESLOAD_NOP: RSB 

IOC$RETURN: RSB 

INISBRK: NOP followed by RSB 


ee Ye Veo Te Ye Ve Yo Ve 
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306 -SBTTL NONPAGED DATA AREA 

307 ++ aed 

308 ; NON~PAGED EXECUTIVE DATA AREA 

309 ;-- 

310 -PSECT $$$$SNONPAGED ) DATA, PAGE, WRT, NOEXE, OVR 

311 MMGSA_NPAG DATA: : - 3 Define start of non-paged data area. 
312 

313 -BLKB <512*EXESC_NPAG_DATA_PAGES> 

314 ? Reserve space for neeapaged data- 
315 


316 MMGSA_NPAG_DATA_END:: 7? Define end of non-paged data area. 
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318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 


- SBTTL PAGED VECTORS AND DATA 
RHERERREKREEKREKKRKARERKRRRRRREKURERRERRREERREREREREERRERREAKERREEKEEHREREKKHKRKRKKK 
***NOTE*** For now, the base image does not contain any paged vector or 
data areas. If paged code/data is to be added to the base image, the 
code in SYSBOOT that loads the base image into memory will have to change 


to take this into account. 
RHEKRKERREKKRERREKEERREREKRERREREEKRERKEKEEEREERKKEKRERREREREEKKERRKKERERRERKEKEE 5 


78 se Ne 


™e Se Ne Te Ve Ve 
we we 


3++ 
# PAGED EXECUTIVE ROUTINE VECTOR AREA 


’ 

-PSECT $$$$$PAGED_CODE, PAGE, EXE 
? This is a null placeholder for now. 
MMGSA_PAGED_CODE:: 
MMGSA_PAGED_ CODE _E 


3++ 
3 PAGED EXECUTIVE DATA AREA 
(7 

-PSECT $$$$SPAGED_DATA, PAGE, WRT, NOEXE, OVR 
? This is a null placeholder for now. 
MMGSA_PAGED_DATA: 
MMGSA_PAGED_DATA_END 33 
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343 -SBTTL SYSPARAM DATA AREA 

344 ¢++ 

345 ; SYSPARAM DATA AREA 

346 ¢-< 

347 -PSECT 1909 55TRRRRAM | DATA, PAGE, WRT, NOEXE, OVR 

348 MMGSA_SYSPARAM: : ae 3 Define start of SYSPARAM area. 
349 

350 -BLKB Decceiecskac _SYSPARAM _ PAGES> : 

351 4 fee BP Oy a 3 Reserve space ‘for SYSGEN parameters. 
352 

353 MMGS$A_SYSPARAM_END:: = = = 2 3 Define end of SYSPARAM area. 
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355 -SBTTL BOOPARAM DATA AREA 

356 ++ 

357 ; BOOPARAM DATA AREA 

358 ;-- ——- : é A 

359 -PSECT $$$$$2_BOOPARAM_DATA, PAGE, WRT, NOEXE, OVR 

360 MMGSA_BOOPARAM: : + Define start of BOOPARAM area. 

361 ; 

362 -BLKB <512*EXES$C_BOOPARAM_PAGES> 

363 3 Reserve space for BOOPARAM parameters. 
364 3 ae ; 

365 MMGSA_BOOPARAM_END: : + Define end of BOOPARAM area. 

366 
367 REORGANIZED EXEC END: : # Define end of reorganized exec are 
368 

369 -SBTTL PATCH AREA 

370 ++ 

371 ; EXEC PATCH AREA 

372 3-- 

373 -PSECT _2 PATCH AREA 

374 

375 MMGSA_EXEC_PATCH_ BEGIN: : 3 Define the start of patch area. 
376 

377 -BLKB <512/4> 

378 

379 MMGSA_EXEC_PATCH_END:: # Define the end of patch area. 
380 

381 -PSECT 2 SYSSEND 

382 

383 MMGSA_SYS_END:: 

384 - LONG 0 

385 

386 | -END 
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wW 
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FREER HRAREEERERERREEKHKKEEKEREAREKREREKEKEKKEEKAKEKEHRAKREREKEEREKEREREKKHEEKKERKKHKEKERE 


ae. * 
7s NOTICE !!! : 
7* * 
?* $SYIDEF IN MASDS:<VMSLIB.SRC>STARDEFQZ.SDL MUST BE UPDATED WHEN ADDING * 
7* PARAMETERS - BUT NOT WHEN DELETING PARAMETERS. $SYIDEF CONTAINS THE * 
7* PUBLIC DEFINITIONS OF THE $GETSYI ITEM-CODES, AND EACH SYSGEN PARAMETER * 
#* IS AUTOMATICALLY TRANSFORMED INTO A S$GETSYI ITEM. * 
7* SYITABLE.MAR DEFINES S$GETSYI ITEMS WHICH ARE -NOT- SYSGEN PARAMETERS, bl 
7* AND SHOULD NOT BE MODIFIED WHEN ADDING OR SUBTRACTING SYSGEN PARAMETERS. * 
:* a : * 
#* ** WARNING ** * 
3* : : ; * 
7* Sysgen parameter addresses cannot change in releases which do not * 
7* require all privileged code to relink. Thus, parameters cannot be * 
fig removed without leaving placeholder cells, and new parameters must * 
7* be added following the end of all previously defined parameters. * 
ot aa ® 
WOUTUTTITETTTITETETTTTTTTTTITTTITeTITiTiTeTiTTTTeTeLeT TT TT TELE ELET Littl 


IF DEFINED VERSION 

-TITLE SYSPARAM_MASK - Define version masks for system parameters 
. IF_FALSE 

IF DEFINED GETSYISW 

-TITLE GETSYI - DEFINE SYSTEM PARAMETERS FOR GETSYI 
-IF_FALSE 

IF NDF , PRMSW ; 

eTITLE SYSPARAM - SYSTEM PARAMETERS 

 IFF : 

-TITLE PARAMETER ~ PARAMETER DESCRIPTORS FOR SYSPARAM 
-ENDC 

- ENDC 

- ENDC 


-IDENT ‘'X-101018' 


HHH RKERERREREEKEKREKEREREKRREKEREREEREKREKEEEKHKKEREKEREKKRKKREEKEK 


COPYRIGHT (c) 1978, 1980, 1982, 1984, 1988 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFOPMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE cCONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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114 


PRARHRARAERRARREKRRAAREERAEKEREREKEKERERHAEKAEKERAKKEEHREKRHERHRERRKERHKRARRR EER R HER 


3 

7++ 

* FACILITY: EXECUTIVE DATA BASE 

3 

+ ABSTRACT: 

; SYSPARAM CONTAINS THE EXECUTIVE CONTROL PARAMETERS AND CERTAIN 
; KEY VARIABLES. 

3 

? ENVIRONMENT: 

; 

? AUTHOR: R. I. HUSTVEDT, CREATION DATE: 09-OCT-1977 

+ MODIFIED BY: 

7 

; X-101018 RLF Richard L. Frank 6-APR-1989 
r Change LCKS$GL_IDTBLSIZ and LCK$GL_IDTBLMAX to support 
; 262143 LKIDs. 
; X-101017 RABOOOS8 Richard A. Bishop 31-Mar-1989 
; Change defaults for the following SYSGEN parameters 
; for the V5.2 SDC submission kit: 

; POOLCHECK - from “X6164001F to 0 

; BUGCHECKFATAL - from 1 to 0 

; (i.e. reverse X101012) 

; X-101016 SUF Stu Farnham 5-Jan-1989 
; Annual exercise in futility of updating base value 
; for EXESGQ TODCBASE. There must be a better way. 

; X-101015 MASO214 Mark A. Stiles 11-Nov-1988 
; Move tape alloclass name to the correct location. 

; Create some appropriate warnings about the ordering 
; of parameter addresses, and indicate where new 

; sysgen parameters should be defined. 

; X-101014 CJB01011 Cheryl J. Bulmer 17-Oct-1988 
? Change tape alloclass name to TAPE_ALLOCLS. 

; X-101013. WCT0128 Ward C. Travis 10-Oct-1988 
; Implement multi-page Error Log Buffers. 

; X-101012 CWH51101012 CW Hobbs 6-Oct-1988 
; Set POOLCHECK to “x6164001F and BUGCHECKFATAL to 1 
; for field test. 

; X-101011 CJBO101 Cheryl J. Bulmer 5-Oct-1988 
; Add tape allocation class cluster parameter, 

; CLUSGL_TAPE_ALLOCLS. 

3; 

; X-101010 DOSU17 Dan O’ Shaughnessy 5-Oct-1988 
; Change default value of SCSMAXMSG from 112 to 132. 
; X-10109 TYCOO03 Theresa Chin 29-Sep-1988 
? Change default value of SCS$GB_PAMXPORT from 15 to 64. 
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141 
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143 
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159 
160 
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164 
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171 


me Te Ye Ye Ye Ve Ve 


we Ve Te Ye Se Ye Se Ve Veo 


Re Ne Te Me Ne Me Me Me Me Me Ye Se Ne Me Ne Ye Me Ne me Me Me Ne Ne Se Se Ye Se Ye Ye Te Ne Seo Ve YO Se Ve Re Ve Ve Ve we 


X-10108 


X-10107 


X-10106 


X-10105 


X-10104 


X-10103 


X-10102 


X-10101 


X-101 


X-100 


X-99 


X-98U3 


X-9802 


X-9801 


X-98 


X~-97 


WMCcOUSs Wayne Cardoza 11-Sep-1988 
Change default affinity skip. 


WMCOU7 Wayne Cardoza 11-Sep-1988 
Lower maximum affinity skip. 


LPLOO001 Lee Leahy 26 Aug 1988 
REMACP has been rewritten and no longer has requirements 
for strange limits on RJOBLIM. All limits have been 
removed for RJOBLIM. 


SSA0028 Stan Amway 16-Aug-1988 
Increase MPW WRICLUSTER default from 96 to 120. 
SSA0027 Stan Amway 15-Jul-1988 
Add SA_APP bit to EXES$GL_STATIC_FLAGS. 

WMCO0U3 Wayne Cardoza 30-Jun-1988 
Add affinity control parameters. 

SSA0026 Stan Amway 15-Jun-1988 


Increase from 16384 to 65535 the maximum values for 
MPW_HILIMIT, MPW_LOLIMIT, MPW_ THRESH, MPW WAITLIMIT, 
and MPW_LOWAITLIMIT. 


MWEDW110101 Mark Eaton 14-JUN~-1988 
v5.0 SDC changes didn’t get folded back in 


SLT007 Sarah Tappan 20-Apr-1988 
same as 100, wrong file got replaced. 


SLTO006 Sarah Tappan 19-Apr-1988 
Add units field to mpw_thresh, mpw_waitlimit,mpw_lowaitlimit 


MWE Mark W. Eaton 7-APR-1988 
Increase PQL DPGFLQUOTA default to 8192 


CBDO0190 Charles B. Dunn 20-Apr-1988 
Bump the maximum and default values of 
PHYSICALPAGES to allow support of 511.5M of memory. 


MéMMO001 Marian M. Macartney 06-Apr-1988 
Up PQL DPGFLQUOTA default to 8192. 


RABO005 Richard A. Bishop 23-Mar-1988 
Change defaults for the following SYSGEN parameters 
for the SDC submission kit: 


MULTIPROCESSING - from 1 to 3 
POOLCHECK - from “X6164001F to 0 
BUGCHECKFATAL - from 1 to 0 
SLTOOOS5 Sarah Tappan 22-Mar-1988 


Remove unused parameter DEFMBXNUMMSG 


SLTO004 Sarah Tappan 1-Feb-1988 
Modify window _ systems parameter 
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X~96 


X~95 


X-94 


X-93 


X-92 


X-91 


X~90 


X-89 


X-88 


X-87 


X-86 


X-85 


X-84 


HHOSOS Hai Huang 13-Jan-1988 
Update time-of-day~clock base to 1-Jan-1988. 


GHC0035 George Claborn 31-Dec-1987 
Chango various defaults to allow (hopefully) all 
configurations to boot. 


SLTOO003 Sarah Tappan l=-Dec~1987 
Minor edit to PQL MWSEXTENT parameter, change minimum to 
match PQL MWSQUOTA. 


SSA0025 Stan Amway 17-Nov-1987 
Add parameter RSRVPAGCNT to control the number of pages 


that are reserved and escrowed for the current process page 
file. 


Change NOPGFLSWP from type SYS to SPECIAL so that only 
SHOW/SPECIAL in SYSGEN will display it. 


SF00092 Stephen Fiorelli 02-Nov-1987 
Add version masks for sysgen 


SUF Stu Farnham 27-Oct-1987 
Add mask forms of TIME CONTROL bite 


SLTO002 Sarah Tappan 22-Oct-1987 
Make minor edit to tty-parity, add maximum value 


MSH0323 Michael S. Harvey §-Oct-1987 
Put the BREAKPOINT mask into a different cell so it’s 
value can be used by INIT without INIT having to destroy it. 


SSA0024 Stan Amway - 25-Sep-1987 
Move scheduling control flag bit definitions out of 
this module, into RSE.MAR. 


MJW0149 Michael J. Worcester 25-Sep-1987 
Add the new SYSGEN parameter DUMPSTYLE to support 
the new 512 Mb subset dump mechanism. 


WESO190 William E. Snaman 11-Sep-1987 | 
Change default for QDSKINTERVAL from 20 to 10 seconds. 


MSH0323 Michael S. Harvey 11-Sep-1987 
Add BREAKPOINTS parameter to give us control over the 
set of initial breakpoint callers. 


Also, set MAX value of MAXWSCNT from 64000 to 100000 
for Steve Fiorelli. 


WLG5085 William Goleman 11-Sep-1987 
Add new parameters for controlling buffer size and 
credits in the MSCP server. Change default for 
SWPOUTPGCNT. 


SSA0023 Stan Amway 8-Sep-1987 — 
Add special SYSGEN parameter CLOCK_INTERVAL. 
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X-79 
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X-75 


X-74 


X-73 


X-72 


X-71 


WLG5082 William Goleman 2-Sep-1987 
Change the MSCP SERVE ALL parameter from a boolean 
type paramotor to counted string. 


SLTO001 Srah Tappan 26-Aug-1987 
remove obsolute parameter autoconfg algo. This 
parameter was added as part of a sysgen bug fix 
and never used. 


PLLOOOO Pam Levesque 21-Aug-1987 
Add WINDOW _SYSTEM SYSGEN parameter for DECwindows. 


JAYO001 John A. Ywoskus 18-Aug-1987 
Rename LAVC_CONV_BOOT, LAVC_LOAD_PEAO, and LAVC_ PORT SERV 
to NISCS _| CONV __BOOT, NISCS _LOAD ) PEAO, and NISCS PORT SERV. 
Rename CLUSGQ_! LAVC_AUTH and CLUSQL | LAVC_GROUP to 
CLU$GQ_NISCS . AUTH and CLUSQL_|! NISCS | GROUP. Rename 

CLUSV_} LAVC_ CONV BOOT and CLUSV_; LAVC | LOAD _PEAO to 

CLUSV _| NISCS | CONV _| BOOT and CLUSV |! NIScs _LOAD | PEAO. 

Change MVTIMEOUT default to 3600 and SCSRESPCNT to 300. 


CWH5078 CW Hobbs 5-Aug-1987 
Set default for BUGCHECKFATAL to on. 


ncpo0001 Nancy C. Denardo 30-Jul-1987 
Add global symbol BOO$C_PRMBLKSZ which equates to 
the total length of the | parameter block descriptors 
area. 


SUF Stu Farnham 28-Jul-1987 

Make lengths of MINWSCNT , AWSMIN, and SYSDWSCNT agree with 
code. 

SFO0075 Stephen Fiorelli 24-Jul-1987 

Caught by sysgen parameter magic. Eliminate obs 

symbols for minwscnt and sysdwscnt. 


SF00074 Stephen Fiorelli 17-Jul-1987 
Initial large working set support. Add two new 
cells sgn$gl_minwscnt, and sgn$gl_sysdwscnt to 
replace the word versions. The word versions will 
remain for testing purposes, and will be removed 
after the next baselevel. 


Remove mmg$gl_pgdcod and its synonym pat$gl_exp_npg2 
since they are obsolete. 


CWH5073 CW Hobbs 20-Jun-1987 
Set default for pool check to enabled for field 
test. 


RGO0140 Raymond Guzman 15-May-1987 
Added SYSGEN flag to support the job controller 
upgrade and future diagnostics. 


wcToo71 Ward C. Travis 16-Apr-1987 
Make full multiprocessor operation the default 
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X-70 


X-69 


X-68 


X-67 


X-66 


X-65 


X-64 
-63 


X-62 


X-60/61 


X-58 


X-57 


LAVC_| LOAD | PEAO 


behavior by setting the default for SMP CPUS to 
all ones (1). 


wcTO069 Ward C. Travis 14-Apr-1987 
Add parameter ERRORLOGBUFFERS, which is hooked up 
to SGN$GW_ERLBUFCNT. 


RLNO026 Richard L. Napolitano 2-Apr-1987 
Add AUTOCONFIG ALGO parameter. 


DDD Dan D. Doherty 17-Mar-1987 
Increased NPAGEDYN to 153600 bytes (300 pages) to ensure 
successful loading of all images and structures during early 
phases of boot when pool expansion cannot occur. 


SSA0022 Stan Amway 17-Mar-1987 
Change default for WSDEC to non-zero value to enable 
WS reduction of computable, dormant processes. 


WESO144 William E. Snaman 16-Mar-1987 
Change default value of PRCPOLINTERVAL to 60 seconds. 


SUF Stu Farnham 9-Mar-1987 
Change EXESV_NO SPINWAIT and NO SANITY to NOSPINWAIT and 
NOSANITY. 


SSA0021 Stan Amway 3-Mar-1987 
Fix problem with variant assembly of this module. 


SSA0020 Stan Amway 2-Mar-1987 
Add MAXCLASSPRI, MINCLASSPRI and MINPRPRI. 


SF04002 Stephen Fiorelli 26-Feb-1987 
The cell exeSal_stacks is useless. Kill it. 
Also the parameters LOADERAPAT, LOADCHKPRT, and LOADMTACCESS 


are no longer necessary with the new mechanism 
‘for loading system images not part of the base system. 


CWH5060 CW Hobbs 23-Feb-1987 
Add: 
TAPE MVTIMEOUT - tape mount verification timeout 
POOLCHECK - controls for pool-checker in MEMORYALC 
PSEUDOLOA ~- size of pseudo-image (tape boot flag) 


conversational boot allowed on remote boot 
load PEDRIVER, the NISCS module 

LAVC_| PORT. SERV - port services flag for PEAO 

MSCP “LOAD - load server at boot time 

MSCP ~_SERVE_| ALL - serve all ‘local’ disks 

Set MULTIPROCESSING max to 3 and default to 1. 


LAVC CONV BOOT 


LSS0027 Leonard S. Szubowicz 19-Feb-1987 

1. Remove obsolete CJFLOAD and CJUFSYSRUJ parameters. 

2. Shorten SMP _LONGSPINWAIT to SMP_LNGSPINWAIT to meet 
PRMSC_MAXNAMLEN constraint. 


SUF Stu Farnham 10-Feb-1987 
1. Break EXE$V_NOCLOCK out of EXESGL _DEFFLAGS. The 
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X-56 


X-55 


X-54 


X-53 


X-52 


X-51 


X-50 


x-49 


x-48 


X-47 


X-46 


NOCLOCK parameter is now obsolete, replaced by a set 
of bits in the TIME CONTROL paramter, with separate control 
over hardware clock interrupts, SMP sanity timer, 
and SMP spin/busy waits. 

2. Modify intervals for SMP _SPINWAIT and SMP BUSYWAIT to 
streamiline wait code. ~ 

3. Modify untis for SMP _SANITY_CNT and SMP_TICK_CNT to 
reflect modified semantics. 

4. Set default, maximum for PHYSICALPAGES to 532480 (change 
made for Brian Porter) 

5. Add MULTIPROCESSING parameter type and include appropriate 
SMP parameters in that type. 

6. Change SMP_LONGWAIT to SMP_LONGSPINWAIT 


BP Brian Porter, 27-JAN-1987 
Bump virtual page count. 


SJUF Stu Farnham 27-Jan-1987 
TEMPORARILY increase the default values for SMP_SPINWAIT 
and SMP _LONGWAIT to avoid premature timeouts while 
experience is gained with the code. Scale parameters 
correctly. 


WES William E. Snaman 23-Jan-1987 
Increase the default value for LOCKIDTBL_ MAX. 


SUF Stu Farnham 22-Jan-1987 
Set new upper bounds for SMP_SPINWAIT and SMP_LONGWAIT 
to prevent overflow on normalization. 


LMP 0430 L. Mark Pilant, 
Up MAXBUF for changes made to DIRECTORY. 


12-JAN-1987 12:19 


SSA0019 Stan Amway 7-Jan-1987 
Document code dependency on adjacency, and absolute or 
relative positions of bits in SCH$GL_CTLFLAGS. The 
code cannot use ASSUME statements. 


HHO236 Hai Huang 05-Jan-1987 
Add a special parameter LOAD SYS IMAGES to control loading 
of system images described in the VMSS$SYSTEM_IMAGES.EXE file. 


SUF Stu Farnham 22-Dec-1986 
Add SMP busywait timeout parameters SMP SPINWAIT and 
SMP_LONGWAIT. 


$SA0018 Stan Amway 12-Dec-1986 
Increase default value for MPW_IOLIMIT. Lower default 
value for DORMANTWAIT. 


MAS0090 Mark A. Stiles 8-Dec~1986 
Add SHADOWING sysgen parameter for volume shadowing. 


SJF Stu Farnham 04-Dec~1986 
Shorten SMP_SANITY_COUNT and SMP_TICK_COUNT to SMP_ 
SANITY_CNT and SMP TICK CNT 
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X-44,45 JCK - Jonathan C. Kaplan 04-Dec-1986 


X-43 


X-42 


X-41 


X-40 


X-39 


X-38 


X-37 


X-36 
X-35 
X-34 


X-32 


X-31 


X-29 


X-28 


add QBUS MULT_INTR to control the initialization of 
the multi-level interrupt dispatching code in the 
CRB. 


SUF Stu Farnham 03-Dec-1986 


’ Change names of SMP sanity timer parameters. 


Dssoool David Stonehill 02-DEC~1986 
Change RJOBLIM minimum to 2, which is limit 
enforced by code. 


PAJ0017 Paul A. Jacobi 26-Nov-1986 
Add WPRE_SIZE and WPTTE_SIZE parameter to control 


allocation of nonpaged pool by the a ea driver 
(WPDRIVER) . 


SSA0017 Stan Amway 25-Nov-1986 
Add CPU scheduling control flag, NO_QEND PREEMPT. 


SUF Stu Farnham 20-Nov-1986 
Add SMP timeout parameters. 


RNHOO52 Richard N. Holstein 17-Nov-1986 
An artificial limit of 128MB for PHYSICALPAGES is too 
restrictive for new VENUS and NAUTILUS memories; bump it up. 


WESO100 William E. Snaman 14-Nov-1986 
Change minimum value of EXPECTED VOTES to 1. 


WESO0090 William E. Snaman 11-Nov-1986 
Remove the FALLBACK_MODE parameter. 


SSA0016 Stan Amway 11-Nov-1986 
Add NOPGFLSWP, a dynamic SYSGEN flag. 


WMC0034 Wayne Cardoza 5-Nov-1986 
Kill the SYSPAGING parameter. 


RLNOO6 Richard L. Napolitano 30-Oct-1986 
1) ADD PUDRIVER_OPTIONS parameter. 
2) Shorten name from PUDRIVER_OPTIONS to PU_ OPTIONS. 


SSA0015 Stan Amway 30-Oct-1986 
Changed default for WSDEC to 0. In V4.x, since the default 
for PFRATL is 0, the WSDEC default was immaterial. 

In V5.x, new AWSA logic in RSE interprets PFRATL=0, 

WSDEC <> 0 in a special way. Changing this default 
preserves V4 behavior when PFRATL=0 (the common case). 


SSA0014 Stan Amway 28-Oct-1986 
Add CPU scheduling control flags, NO_CHSE_PRIADJ 
and PIXSCAN_LOWPRI. 


WESOO77 © William E. Snaman 24-Oct-1986 
Remove the QUORUM parameter. 
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X-27 


X-26 


X~-25 
X-24 
X-23 
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X-21 
X-20 
X~19 


X-18 


X-17 
X-16 


X-15 


X-14 
X-12 


X-10E3 


X-10 


SSA0013 Stan Amway 14-Oct-1986 
Make CPU scheduling control flags DYNAMIC and rearrange 
flags so that BLBx can be used in SCHED.MAR for 

a more optimal test. 


WESO0063 William E. Snaman 13-Oct-1986 
Add expected votes parameter. Lower recnxinterval 
to 20 seconds. 


$SA0012 Stan Amway 13-Oct-1986 
Add a new CPU scheduling control flag. 


RNGOO024 Rod N. Gamache 9-Oct-1986 
Add MULTIPROCESSING parameter. 


SSA0011 Stan Amway 22-Sep-1986 
Add CPU scheduling control flags parameter. 


weacoo1i5 Wayne Cardoza 15-Sep-1986 
Units for SO_ PAGING should be lower case. 


wMcoo14 Wayne Cardoza 05-Sep-1986 
Add SO PAGING parameter and its cell. 


TCM Trudy C Matthews 02-Sep-1986 
Add EXES$GW_CPUMODEL cell. 


$SA0010 Stan Amway 28-Aug-1986 
Add MPW_IOLIMIT to define the number of possible 
concurrent modified page writer I/O threads. 

Add MPW_LOWAITLIMIT to define the modified page 
writer busy wait low threshold. 


HHO214 Hai Huang 27-Aug-1986 
Set. system date to 1986. 


wmco0o13 Wayne Cardoza 27-Aug-1986 
Add second word tp PT free list. 


WES0028 William E. Snaman 6-Aug-1986 
Add CLUSGB_FALLBACK_MODE to enable fallback mode 
during a rolling upgrade. 


SUF Stu Farnham 30-Jun-1986 
Resolve conflicts from merge og SMP into main line 


wMcO0012 | Wayne Cardoza 13-May-1986 
Remove BOOSGL_SPTFREx. 


HHO0167 Hai Huang 07-Apr-1986 
Relsove merge conflicts. Also, make the computed-value 
area page-aligned for both SYSPARAM and PARAMETER. 


ROWO0533 Ralph 0. Weber 28-DEC-1985 
Comment out MAXATTCHPRI definition. New system parameters 
cannot be added until SYS.EXE is rebuilt. 
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X-9 


X-6D1 


X-1C6 


v04-001 


V03-080 


V03-079 


V03-078 


V03-077 


HWS0216 Harold Schultz 20-Dec-1985 
Change defaults for PIOPAGES (180 -> 245) and 
MAXQUEPRI (200 => 100). 


Stu Farnham 19-Dec-1985 
Add MAXATTACHPRI, Maximum process priority to schedule 
on ASMP attached processor. 


Harold Schultz 15-Nov-1985 
Change CLISYMTBL maximum from 128 to 500. Also change 
default value from 100 to 250. 


Michael S. Harvey 14-Nov-1985 
Bring over change from V4.3 that is related to the 
merging of the various flavors of SYSBOOT. 


LJK4014 Lawrence J. Kenah 21~Aug-1985 
Change maximum value of GBLSECTIONS from -1 (unbounded) 
to 4095. 


PLLOO02 Pamela Levesque 14-Nov-1985 
Remove qdss console bit from EXESGL_WSFLAGS, as it 
is not being used. 


SF04001 Stephen Fiorelli 11-Dec-1985 
Resolve conflicts from initial merge of exec reorg 
thread and mainline (4.4 BL7). 


TCMO003 Trudy C. Matthews 03-Dec-1985 
For EXEC reorg project, increase the default number of 
interrupt stack pages to 4. 


HWS0194 Harold Schultz 04-Oct-1985 
Change default value for MAXQUEPRI from 4 to 200 
Change default value for DEFQUEPRI from 4 to 100 
Change default value for PIOPAGES from 120 to 180 
Change default value for CLISYMTBL from 60 to 100 


PLLOOO] Pamela Levesque 17-Sep-1985 
Define a bit in EXES$GL_WSFLAGS to mean the console device 
is oDssS. 


RNHOO11 Richard N. Holstein 04-Jun-1985 
Set the max for SRPCOUNT up to the max of SRPCOUNTV. 


DWT0238 David W. Thiel 24-Aug-1984 
Change default value of QDSKINTERVAL to 20 seconds. 


MIRO470 Michael I. Rosenblum 13-Aug-1984 
make tty defport a specail sysgen parameter 


CDS0004 Christian D. Saether 06-Aug-1984 
Fix bug initializing exe$gl_ static .tlage 
introduced by cds0003. 


WMC0075 Wayne Cardoza 06-Aug-1984 
Make SRP default 96. 
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V03~-076 


V03-075 
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Vv03-065 


V03-064 


V03-063 
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WMCO0074 Wayne Cardoza 30-Jul-1984 
Raise minimum working set parameters. 

DWT0231 David W. Thiel 25-Jul-1984 
Raise RECNXINTERVAL to 60 seconds. 

DWT0230 David W. Thiel 25-Jul-1984 
Raise RECNXINTERVAL to 20. Make QDSKINTERVAL non-dynamic. 
WMC0073 Wayne Cardoza 23-Jul-1984 
Raise max VIRTUALPAGECNT. 

BLS0334 Benn Schreiber 23~-JUL~1984 
Raise default ENQLM,ASTLM,DIOLM and BIOLM parameters. 
WHMO004 Bill Matthews 23-Jul-1984 


Added a work station flag longword and defined the parameter 
WS _OPAO. Made LGI_BRK_TERM default to true. Raised paging file 
quota minimum from 256 to 512. 


cDs0003 Christian D. Saether 20-Jul-1984 
Add one more buffer pool, ACP_DINDXCACHE, to file system caches. 
Add ACP_REBLDSYSD flag. 


ACGO0436 Andrew C. Goldstein, 12-Jul-1984 11:50 
Add LGI_BRK_TERM and LGI_BRK_DISUSER parameters 
cDS0002 Christian D. Saether 11-July-1984 


Raise minimum ACP_HDRCACHE to 3. 
Change default for ACP_MULTIPLE to 0. 


JEJ0047 J E Johnson 06-Jul-1984 
Change RMS GBLBUFQUO to be a dynamic parameter. 
WMC0067 Wayne Cardoza 06-Jun-1984 


Fix POL minimum working set parameters. 
Raise PHYSICALPAGES limits. 


HWS0069 Harold Schultz 24-May-1984 
Change default size of CLISYMTBL from 40 to 60 pages. 


WHMO003 Bill Matthews 20-Apr-1984 
Removed USESYSPARAMS. Use of the separate parameter file 
is now required. 


MIRO400 Michael I. Rosenblum 10-Apr-1984 
Add TTY_DEFPORT default port function longword. 


RASO281 Ron Schaefer 09-Apr-1984 
Add RMS _DFNBC default network block count parameter. 


WHMO0002 Bill Matthews 04-Apr-1984 

Added USESYSPARAMS and WRITESYSPARAMS to support the 

default seperate system parameter file. | 

Changed the default for NPAGEDYN from 64000 to 131072(256 pages) 
Added support for ascii sysgen parameters longer than 4 bytes. 
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V03-061 


V03-060 


Vv03-059 


Vv03-058 


V03-057 


V03-056 


V03-055 


V03-054 


Vv03-053 


V03-052 


Vv03-051 


Replaced SCSNODEL and SCSNODEH with SCSNODE. 
Replaced DISK_QUORUM1-4 with DISK_QUORUM. 
Changed SAVEDUMP from type SPECIAL to type SYS. 


Changed the units field for ACP_DATACHECK and ACP_SWPFLAGS 
from boolean to Bit~-mask. 


WMC0060 Wayne Cardoza 28-Mar-1984 
Add MMGSGL_MAXMEM. 

JEJ0013 J E Johnson 25-Mar-1984 
Add RMS GBLBUFQUO sysgen parameter. 

WMC0059 Wayne Cardoza 24-Mar-1984 


Add ACP_XQP_RES flag 


LMPBUILD L. Mark Pilant, 19-Mar-1984 12:20 
Make sure that the cells moved in LMP0205 are added with 
the proper conditionals around them. 


LMP0205 L. Mark Pilant, 77-Mar-1984 11:23 
Move EXES$GL_DYNAMIC_ FLAGS and EXESGL_STATIC_FLAGS from 
SYSCOMMON. 


CDso0o01 Christian D. Saether 28-Feb-1984 
Raise default and min size of pagedyn to account for 
xqp block caches. Also SYSMWCNT. 


MMD0246 Meg Dumont, 27-Feb-1984 10:45 


Add support for S$MTACCESS installation specific accessibility 
routine 


SSA0009 Stan Amway 13-Feb-1984 
Changed default for PFRATL to 0. 
TMKO003 Todd M. Katz 02-Feb-1984 


Change the name of the SCS parameter PAPORTPOLL to PANOPOLL. 
Also change its address (from SCS$GB_PAPPOOL to SCS$GB_PANOPOLL) 
and its default value (from 1 to 0). 


WHMO001 Bill Matthews 01-Feb-1984 
Added new type for LGI_ parameters. 


TMKO002 Todd M. Katz 30-Jan-1984 
Add the special parameters PE1,PE2,PE3,PE4,PE5,PE6 for use 
by the PEDRIVER. 


Add the SCS parameter PAPORTPOLL. If this boolean parameter is 
set the local CI port(s) will poll remote ports. If it isn’t it 
won't. 


Change the following SYSGEN parameters’ DEFAULT, MAX, MIN etc.. 


. Change the DEFAULT of MAXBUF from 1568 to 1584. 

. Change the DEFAULT of SCSSYSTEMID from 1 to 0. 

. Change the MIN of PAMAXPORT from ~-1 to 0. 

. Change the MAX of PAMAXPORT from -1 to 223. 

, Change the ADDRESS of PAMAXPORT from SCSS$GW_PAMXPORT to 


nek WH BE 
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v03-050 


Vv03-049 


V03-048 


V03-047 


V03-046 


V03-045 


V03-044 


Vv03-043 


V03-042 


Vv03-041 


Vv03-040 


V03~-039 


V03-038 


V03-037 


SCS$GB_PAMXPORT. 
6. Change the size of PAMAXPORT from WORD to BYTE. 


WMCO0048 Wayne Cardoza 16-Jan-1984 
CJF related parameters must be made SPECIAL and defaulted 
off. 


JLV0328 Jake VanNoy 11-JAN-1984 
Add TTY_TIMEOUT and TTY_AUTOCHAR. 


KTA3097 Kerbey T. Altmann 10-Jan-1984 
Set date to 1984. 


wMc0047 Wayne Cardoza 19-Dec-1983 
WSMAX max is 64000 not 65280. 
Make MMGSGW_BIGPFN a new cell. 


LMP0177 L. Mark Pilant, 77-Dec-1983 11:32 
Add a dymanic parameter to control whether or not 
non-discretionary classification checks are to be performed. 


SSA0003 Stan Amway 55-Dec-1983 
Added DORMANTWAIT to support outswap scheduling changes. 
Changed units and default for LONGWAIT. 


DWTO0150 David W. Thiel 18-Nov-1983 

Add LOCKDIRWT and QDSKVOTES parameters. Deleted old 
VAXCLUSTER bit and define new VAXLCUSTER as a byte. 
Reorder cluster parameters. Make ALLOCLASS non-dynamic. 
Change PAPOLLINTERVAL default from 15 to 5 seconds. 
Change SCSMAXMSG default from 96 to 112. 

Change SRPSIZE default from 96 to 128 to close hole 
between SRP and IRP allocation pending a more complete 
examination of pool allocation. 


TMKOOO1 Todd M. Katz 12-Oct-1983 
Add PQL DJTQUOTA and PQL MJTQUOTA - the default and minimum 
byte creation quotas for job-wide logical name tables. 


ACGO0360 Andrew C. Goldstein, 21-Sep-1983 16:25 
Change defaults for LGI_xxx breakin parameters 


ACGO0350 Andrew C. Goldstein, 19-Aug-1983 17:56 
Raise MAXBUF minimum to 1200 to allow BACKUP to work 


GASO162 Gerry Smith 30-Jul-1983 
Add LGI_PWD_TMO, the system password drop dead time. 


NPK3030 N. Kronenberg 29-Jul-1983 
Change PAMAXPORT maximum from 223 to -1. 


RASO179 Ron Schaefer 29-Jul-1983 
Delete LOGPHASHTBL, LOGGHASHTBL, LOGSHASHTBL. 

Change default of IMGIOCNT from 32 to 64. 

Change default of RMS EXTEND from 80 to 0. 


‘KFHOOO4 Ken Henderson 28 Jul 1983 
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V03-036 


V03-035 


Add MAXQUEPRI, DEFQUEPRI, QDSKINTERVAL 
Remove JOBQUEUVES, REINITQUE, MAXPRINTSYMB 
Change VMS CLUSTER to VAXCLUSTER 

Modify default of RECNXINTERVAL from 3 to 10 


NPK3029 N. Kronenberg . 26-Jul-1983 
Tune up the SCS and PA parameters. Remove PASTRETRY. 
Add PAMXPORT, PASANITY. 


MSHO002 Maryann Hinden 08-Jul-1983 


Add cluster quorum disk parameters. 


V03-034 
V03-033 


V03-032 


v03-031 
V03-030 


V03-029 


GAS0142 Gerry Smith 20-Jun-1983 
Add the login security parameters. 


PCA1015 | Paul C. Anagnostopoulos 13-Jun-1983 
Fix the valid ranges for the STARTUP_Pn parameters. 


TCMO002 Trudy C. Matthews: 1-Jun-1983 
Add ALLOCLASS parameter, a cluster parameter that defines 
the device allocation class for this system. 


SRBOO86 Steve Beckhardt | 24-May-1983 
Made LOCKIDTBL_ MAX dynamic. 
JSV0295 Joost Verhofstad 20-MAY-1983 
Add SYSGEN parameters CJFLOAD and CUFSYSRUJ 
KFHOOO3 Ken Henderson 20 May 1983 
Increased default values: 

- SPTREQ 720 => 896 
GBLPAGES 3072 -> 4096 
GBLSECTIONS 80 -> 128 
KDM0044 Kathleen D. Morse 03-May-1983 


V03-028 


V03-027 


V03-026 


V03-025 


V03-024 


Vv03-023 


Add EXESGL_ARCHFLAG. — 


PCA1015 Paul C. Anagnostopoulos 28-Apr-1983 

Add TAILORED parameter to specify whether or not this system 
is tailored (has a library disk). 

Add STARTUP_Pn parameters for passing information to the 
system startup procedure. 


SRBOO81 Steve Beckhardt 28-Apr-1983 
Added new parameter LOCKIDTBL_MAX. 


RNGOO25 Rod Gamache 21-Apr-1983 
Change default value of MAXBUF to be more flexible 
for the DEUNA device driver. 


KFHO002 Ken Henderson 14 Apr 1983 
Modify call to SYI_ITEM_CODE to 
support Ascii sysnodename. — 


MTROO30 Michael I. Rosenblunm 14-Apr-1983 
Make line editing the default 
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V03~-022 
Vvo3-021 


V03~020 


V03-019 


V03-018 


Vv03-017 


Vv03-016 


V03~015 


V0O3~-014 
Vv03-013 
V03-012 


vo3-011 


V03~-010 


Vv03-009 


TCMO001 Trudy C. Matthews 8-Apr-1983 
Allow WSMAX to grow to 65280. 
MSHOOO01 Maryann Hinden 25-Mar~1983 


Add ASCII type. Correct default for SCSNODEH. 


DWTO0080 David W. Thiel 1-Mar-1983 
Define cluster class of parameters containing 
QUORUM, VOTES, and CNXRETRYINT. 


JWHO191 Jeffrey W. Horn 28-Feb-1983 
Change default value for PIOPAGES. 
KFHOOO1 Ken Henderson 15 Feb 1983 


Added conditionals for GETSYISW, to let 

this file be used to define the sysboot 

parameters for SYSS$GETSYI/FSGETSYI/LIBSGETSYI 

HRI HIRI IKI IRR IIR KI RIK RIK RII RR RIK KKK 
ONE SIDE EFFECT OF THIS MOD IS TO REQUIRE THAT ALL 
ALLOCATION OF MEMORY CELLS BE CONDITIONALIZED TO NOT 
HAPPEN IF GETSYISW IS DEFINED. 

REMAKE HKHEHERKKHEKEKEEKKEKEEKREREKEERKREKEEKERHEREKERKEKKKHKKKK 


RNGOO17 Rod N. Gamache 11-Feb-1983 
Change default value for PHYSICALPAGES. 
DWTO071 David W. Thiel 28-Jan-1983 


Add VMS CLUSTER parameter and corresponding 
LOADCLUSTR bit in SGNS$GL_LOADFLAGS. 

Add PRCPOLINTERVAL parameter with global name 
SCS$GW_PRCPOLINT. 


$TJ3053 Steven T. Jeffreys 21-Jan-1983 
Added LOADERAPAT and LOADCHKPRT parameters, and defined 
SGNS$GL_LOADFLAGS, a system global longword to control 
the loading of various pieces of the EXEC. 


KTA3029 Kerbey T. Altmann 11-Jan-1983 

Set date to 1983. 

SRBOO057 Steve Beckhardt 16-Dec-1982 
Increased maximum size of LOCKIDTBL to 65535. 

DMW4016 DMWalp 15-Dec-1982 
Added parameters for size of new logical name hash tables 
JWHO117 Jeffrey W. Horn 29-Oct-1982 


Add PIOPAGES CTLPAGES, and CTLIMGLIM. 
Change maximum of PHYSICALPAGES to 65536. 
Change default of SCSSYSTEMIDH to 0. 


KTA3016 Kerbey T. Altmann 21-Oct-1982 
Add SCSNODENAME. 
HRJ0064 Herb Jacobs 21-Apr-1982 


Fix default values of RMS DFMBC, RMS EXTEND, MPW_LOLIMIT. 
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Vv03-008 


V03-007 


V03-006 


Vvo03-005 


V03-004 


Vv03-003 


V03-002 


Vv03-001 


JLV0208 Jake Vannoy 15-Apr-1982 
Fix default values for TTY_SILOTIME, WSINC, WSDEC. 


JLV0207 Jake VanNoy 5-APR-1982 
Add some smarts to PARAMETER macro to ignore dynamic 
bits if they are not in EXESGL_DEFFLAGS. This prevents 
the dynamic bits in STJ0249 from being included in 
PRMSM_DYNFLAGS. 


STJO249 Steven T. Jeffreys 01-Apr-1982 
Add global longword for system message flags. Define 
EXESV_MOUNTMSG and EXESV_DISMOUMSG to control operator 
notification of mounts and dismounts, respectively. 

By default, both are disabled. 


MLJ0085 Martin L. Jack 01-Apr-1982 
Add EXESV_JOBQUEUES, EXESV_REINITQUE to control initialization 
of JBCSYSQUE by job controller. 


PHLOO41 Peter H. Lipman 01-Apr-1982 
Default setting for SAVEDUMP must be off. 


HRJ0061 Herb Jacobs 28-Mar-1982 
Fix categories for /MAJOR, /SYS, /SYSGEN, correct 
some default values, and change global name of SWPFILCNT. 


PHLOO40 Peter H. Lipman 22-Mar-1982 
Add EXES$V_PAGFILDMP, EXES$V_SAVEDUMP, EXESGW_PGFL FID 
to support the dump file in the page file. 


JLV0193 Jake VanNoy 15-MAR~-1982 

Add TTY_SILOTIME. Change defaults for TTY_OWNER and TTY_PROT 
and POL | ENQLM. Change names of TTYSCANDELTA to TTY | SCANDELTA 
and DIALTYPE to TTY_DIALTYPE. 
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-SBTTL DECLARATIONS 


INCLUDE FILES: 


SBPTDEF ¢ DEFINE INITIAL BREAKPOINT CALLERS 
‘$SYIDEF 3 DEFINE SYSSGETSYI ITEM CODES 
SPQLDEF 3; DEFINE QUOTA LIST CODES 
SPRMDEF 3; DEFINE PARAMETER DESCRIPTOR 
SSGNDEF : SYSGEN CONSTANTS 
SSYSVERS IONDEF 3 Version bit definitions 
DEFINITIONS OF VERSION CATEGORIES 
BASE_IMAGE 


Base image transfer vectors. To be changed whenever a transfer vector 
is added. The major ID is to be changed only when there is no 
alternative. This will force all code to relink. 

MEMORY_MANAGEMENT 
All memory management data structures and routines. This is also used 
for pool management. 


ro 


All I/O data structures and routines. 


FILES VOLUMES 


All RMS and file system related items. 


PROCESS_SCHED 


Data structures and routines related to process control, scheduling, 
and process structure. This includes the layout of Pl space. 
Timers, ASTs and event flags are also included in this category. 


SYSGEN 


SYSGEN parameters. This category should not be used for any other 
purpose. Its intent is to allow us to eventually move all SYSGEN 
parameters to another virtual address range. 


CLUSTERS _LOCKMGR 
Routines and data structures related to clusters, connection manager, 
lock manager, and similar cluster wide facilities. 
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LOGICAL_NAMES 


Logical name data structures and routines. 


SECURITY 


The security subsystem. 


IMAGE ACTIVATOR 


Image activation and image file interpretation. 


t 


NETWORKS 


DECnet and support for datalink drivers. 


COUNTERS 


Cells which are interpreted as counts. This category is separate 
because it should almost never be necessary to change the major ID 
of this category. 


STABLE 


Routines and data structures which are expected to be very stable. 

If a change is necessary, the cell or routine should be renamed rather 
than change the major ID. The major ID may be changed every few years 
to garbage collect obsolete cells. 


MISc 

Things that don’t fit any other category. 
CPU 

CPU specific support. 
VOLATILE 


The major ID of this category will be iuncremented on a fairly regular 
basis. This should be used for new items which are expected to undergo 
a large amount of change. If for example, a new IO structure is added, 
but is expected to have significant change in the next release, it 
should be categorized as both volatile and IO. In this way, it will 
not be necessary to change the major ID for the IO category when 

the structure changes. Thus, not all drivers will be forced to relink. 
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Cells related to the layout of SHELL. 


$TTDEF ; DEFINE TERMINAL CHARACTERISTICS 
$TT2DEF ? DEFINE MORE TERMINAL DEFINTIONS 


MACRO TO GENERATE PARAMETER DESCRIPTOR IF PRMSW IS TRUE OTHERWISE 
SIMPLY DEFINE PARAMETERS 


MACROS : 


-MACRO PFNALC S1Z, SYMLST, VERSION MASK 


IF NOT_DEFINED VERSION 
-ALIGN LONG 
-ENDC 


- IRP SYM, <SYMLST> 

DEFINE PFNSA’SIZ’ ’SYM, VERSION MASK 
-ENDR 

- LONG 0 

-ENDM PFNALC 


-MACRO PARAMETER, ADDRESS, NAME, TYPE=STATIC, DEFAULT=0 , MIN=~1,MAX=-1,- 
UNIT, SIZE=LONG, BIT, VERSION MASK 


If we are define version masks, the only thing we assemble are the version 
masks associated with the system parameter 


-IF DEFINED, VERSION 

ADDRESS=0 

- IRP -.-subversion...,<VERSION_MASK> 
ADDRESS==ADDRESS ! <1@SYS$K_ ’..-subversion...> 

»ENDR 

-IF_FALSE 


When GETSYISW is defined, the macro PARAMETER becomes a conduit to 

a lower level macro SYI_ITEM_ CODE. In the fashion of JPI_ITEM CODE and 
DVI_ITEM CODE, SYI_ITEM | [CODE is called multiple times (once per item) 

by the larger macro SYI  GENERATE_' TABLE. This file becomes the definition 
of SYI_GENERATE_TABLE when GETSYISW is defined. 


OUTLEN = 4 

-IIF IDENTICAL <SIZE><BYTE>, OUTLEN = 1 
-IIF IDENTICAL <SIZE><WORD>, OUTLEN = 2 
-IIF IDENTICAL <SIZE><LONG>, OUTLEN = 4 
-IIF IDENTICAL <SIZE><QUAD>, OUTLEN = 8 
~ IIF IDENTICAL <SIZE><OCTA>, OUTLEN = 16 


-IF DEFINED GETSYISW 
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1007 
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1009 
1010 
1011 


PRMSAV.. 


IF BLANK BIT 

IF NOT DEFINED SYI$ ‘NAME 

-WARN ; SYI$_‘NAME SHOULD BE DEFINED IN STARDEFQZ.SDL (EXE-SECT) 
-ENDC 

IF IDENTICAL <UNIT><Ascii> 


SYI_ITEM_ CODE EXE, - TABLE BASE - EXEC CELLS 


3 
<NAME>, - ; ITEM NAME 
<ADDRESS>, - 3 SOURCE 
PADSTR, - ; DTYPE = PADDED STRING 
0,- | ; BITPOS 
PRMSC_'SIZE’,- ; BITSIZ 
OUTLEN 3; OUTLEN 


.IF_FALSE 


SYI_ITEM CODE EXE, - TABLE BASE ~ EXEC CELLS 


3 
<NAME>, - 3; ITEM NAME 
<ADDRESS>, - 3 SOURCE 
DECNUM, - 3 DTYPE = DECIMAL NUMBER 
0,- 3 BITPOS. 
PRMSC_'SIZE’,- ; BITSIZ 
OUTLEN 7 OUTLEN 
-ENDC 7 IDENTICAL <UNIT><Ascii> 
-IF_FALSE ? BLANK BIT . 
IF NOT_ DEFINED SYIS$_’NAME 


-WARN ; SYIS$_/NAME SHOULD BE DEFINED IN STARDEFQZ.SDL (FLD-SECT) 
-ENDC 


SYI_ITEM CODE FLD, - ? TABLE BASE - FIELD DATA 
<NAME>, - 
<ADDRESS>, - 
BITVAL, - 
<BIT>, - 
= 
1 
-ENDC ; BLANK BIT 
- IF_FALSE ; DEFINED GETSYISW 
-IF DF, PRMSW DO IF CREATING PARAMETER DESCRIPTOR 


SAVE LOC COUNTER 


-PSECT $$$918,LONG 


? 
; 
v 
BAS...=. ; SET BASE FOR THIS DESCRIPTOR 
- BLKB PRMSC_LENGTH 7; GENERATE SPACE 
SAV...=. ; 
PRM L_ADDR ; 
- LONG ADDRESS ; 
PRM L_DEFAULT ? 
- LONG DEFAULT ; 
PRM L_MIN ; 
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1067 
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-LONG MIN ; 

PRM L_MAX 3 

-LONG MAX ; 

IF GREATER <%LENGTH (NAME) -PRM$C_MAXNAMLEN> 
_ eERROR ~; The parameter called NAME has too many characters 
-ENDC 

PRM T_NAME ; 

eASCIC %'NAME’% 7 

-IF GREATER <tLENGTH (UNIT) -PRM$C_MAXUNILEN> 
eERROR ; The quantity called UNIT has too many characters 
-ENDC 

PRM T_UNIT 3 

eASCIC %’UNIT’% ? 

PRM B_ SIZE 3 SET FIELD SIZE 

-IF B,BIT ; 

-BYTE PRMSC_’SIZE : 

-IFF 3 

-BYTE 1 ? 

PRM B_POS ? 

-BYTE BIT ? 

-ENDC 3 

PRM L_FLAGS ; 

TYP...=0 ; 

- IRP TYPNAM, <TYPE> ; 


ADDRESS’ 


TYP...=TYP...!PRMSM_’ TYPNAM 


-IF NB BIT ? DEFINE PRMSM_DYNFLAGS 


-IF EQ PRMSM_’ TYPNAM-PRMSM_DYNAMIC 


.IF IDN ADDRESS, EXESGL_DEFFLAGS 
PRMS$M_DYNFLAGS == PRM$M_DYNFLAGS !<1@BIT> 


eENDC 

-ENDC 

eENDC 

-ENDR Fi 

- LONG TYP... ; 

-@SAV... ; ? REPOSITION LOCATION COUNTER 
-PSECT $$$917A, PAGE ¢ BACK TO NORMAL PSECT 
«™PRMSAV... ¢ RESTORE LOCATION COUNTER 
-IFF 2 

IF B,BIT ? 

IF GT, OUTLEN-4 ¢ IF LENGTH >4 FORCE LONGWORD ALIGNMENT 
ALIGN LONG ; 

- IFF 

eALIGN ‘SIZE’ 3 

eENDC 

33 3; DEFINE GLOBAL VALUE 

-ENDC 3 

eENDC ; 

IF B, BIT ; 

IF ‘GT, OUTLEN-4 3 IF LENGTH >4 FORCE LONGWORD ALIGNMENT 
-ALIGN LONG ; 

- LONG DEFAULT 3; GENERATE DEFAULT QUAD VALUE 
- LONG DEFAULT ; 

-IF GT, OUTLEN-8 ; 

~ LONG DEFAULT ; GENERATE DEFAULT OCTA VALUE 
- LONG DEFAULT ; 
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1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 


eENDC 3 
IFT ; 
eALIGN ‘SIZE’ ; 
e’SIZE’ DEFAULT ? GENERATE DEFAULT VALUE 
-ENDC 
-ENDC ; 
-ENDC 3 DEFINED GETSYISW 
eENDC ¢ Defined version 
oENDM PARAMETER ; 
-MACRO_ PRM, OF FSET, VERSION_MASK 
IF DEFINED, VERSION 
DEFINE PRMS’ OFFSET, VERSION_MASK 
-IF_FALSE 
IF NOT_DEFINED GETSYISW 
-™BAS...+PRMS$’ OFFSET ; 
-ENDC 
-ENDC 
-ENDM PRM ; 
? 
# MACRO TO CONDITIONALLY DEFINE LABELS 
e 
-MACRO DEFINE, LABEL, VERSION _MASK 
IF DEF INED, VERSION 
LABEL=0 
~IRP ---subversion...,<VERSION_MASK> 
LABEL==LABEL!<1@SYSSK_’ ...subversion...> 
-ENDR 
-IF_FALSE 
IF NOT DEFINED GETSYISW 
IF NDF, PRMSW ; 
LABEL’ :: : 
-IFF 3 
LABEL’ : 3 
-ENDC ; 
~ENDC ; NOT DEFINED GETSYISW 
-ENDC 3 Version 
-ENDM DEFINE ; 


MACRO TO GENERATE PROCESS QUOTA LIST TABLES 


me Se Ye Ne Ne 


POL QUOTA_NAME, DEFAULT, MIN, FLAG, UNIT, DYNAMIC STATE 
-MACRO POQL Q, DEFLT=0,MINIM=0, FLAG=0, UNT, DYNAMIC_FLAG=DYNAMIC, PQL VERSION _MA 
.IF NOT DEFINED VERSION 

IF NOT DEFINED GETSYISW 

.IF NDF, PRMSW 7FOR LINKAGE INTO BASE SYS... 
-PSECT $$$$$SYSPARAM_DATA, PAGE, WRT, NOEXE, OVR 

.IFF ; 

-PSECT $$$917A, PAGE ; 

-ENDC : 

PQLSAV...=. ; SAVE LOCATION COUNTER 
-=POQLSAL_DEFAULT+<4*PQLS$_’Q> ; POINT INTO DEFAULT TABLE 


-ENDC + NOT DEFINED GETSYISW 
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1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175. 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
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-ENDC 
PARAMETER ADDRESS=PQLSGD’ Q, - ; 
DEFAULT=DEFLT, - ; 
NAME=PQL D‘'Q,- ; 
SIZE=LONG, ~ ; 
TYPE=<PQL, SYSGEN, DYNAMIC_FLAG>, - ; 
UNIT=UNT, - 
VERSION _MASK=PQL VERSION_MASK 
IF NOT_DEFINED VERSION 
IF NOT_DEFINED GETSYISW 
IF NDF, PRMSW 7FOR LINKAGE WITH BASE SYS... 
-PSECT $$$$$SYSPARAM_ DATA, PAGE, WRT, NOEXE, OVR 
-IFF 
-PSECT $$$917A, PAGE ? 
eENDC ? 
PQLSAV...=. ? 
-=PQLSAL_ MIN+<4*PQLS$_'Q> ; POINT INTO MINIMUM VALUE TABLE 
-ENDC ; NOT_DEFINED GETSYISW 
-ENDC 
PARAMETER ADDRESS=PQLSGM’Q, - ; 
DEFAULT=MINIM, - ; 
NAME=PQL M’Q,- ; 
SIZE=LONG, - ; 
TYPE=<PQL, SYSGEN, DYNAMIC_FLAG>, - ; 
UNIT=UNT, - 
VERSION MASK=PQL VERSION_MASK 
IF NOT_DEFINED VERSION 
IF NOT DEFINED GETSYISW 
IF NDF, PRMSW 
-PSECT $$$$$SYSPARAM_ DATA, PAGE, WRT, NOEXE, OVR 
IFF 
-PSECT $$$917A, PAGE 
-ENDC 
PQLSAV...=. 


-=PQLSAB _FLAG+PQL$_'Q 


POINT INTO FLAG BYTE FOR QUOTA 


=e Ye te Re Ve 


-BYTE FLAG AND FILL IN FLAG 
-=PQLSAV... RESTORE LOCATION COUNTER 
-ENDC + NOT DEFINED GETSYISW 

~ENDC 3; Version 

~ENDM POL ? 


ve 


EQUATED SYMBOLS: 


7 
PQL_V_DEDUCT=0 


POQL.M DEDUCT=1 


DEDUCTIBLE=PQL M DEDUCT 


DEDUCTIBILE QUOTA FLAG 


ve 


FLAG VALUE FOR DEDUCTIBLE QUOTA 
NAME FOR READIBILITY 


ve Ne 


-IF DF, PRMSW ; DO IF PARAMETER 
PRM$M DYNFLAGS == 0 


-ENDC 


-IF 


=e Se es 


‘NOT_DEFINED VERSION 


DEFINE THE SYSTEM CONTROL FLAGS. ANY FLAGS ADDED SHOULD BE PLACED 
IN THE FIELD DEFINITION THAT CORRESPONDS TO THE CELL IN SYSCOMMON FROM 
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1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 


we Ye Ye Ne 


=e 


WHICH THE FLAGS ARE REFERENCED. 


(THIS WAS ORIGINALLY EXESGL FLAGS, BUT 


OVER TIME WILL SPLIT INTO EXE$GL_DYNAMIC FLAGS, EXE$GL STATIC FLAGS, AND 
EXESGL_STATE FLAGS.) 


$GBLINI GLOBAL 


$VIELD 


> 
SVIELD 
> 
SVIELD 


> 


EXE, 0, <- 
SYSWRTABL, - 
NOAUTOCNF, - 
POOLPGING, - 
SIMULATOR, ~ 
CRDENABL, - 
SBIERR, - 
INIT, - 
SETTIME, - 
FATAL_BUG, - 
MULTACP , ~ 
NOCLUSTER, ~ 
BUGREBOOT, - 
SYSUAFALT, - 
SHRF11ACP,- 
BUGDUMP , ~ 
RESALLOC, - 
CONCEALED, - 
SSINHIBIT, - 
EXPLICITP, - 
EXPLICITS, - 
PGFLFRAG, - 
PGFLCRIT, - 
TBCHK, - 
PAGFILDMP, - 
SAVEDUMP, - 
JOBQUEUES, - 
REINITOQUE, - 


EXE, 0, <- 


EXE, 0, <- 

<NOCLOCK, 1,M>,- 
<NOSMPSANITY, 1,M>,- 
<NOSPINWAIT, 1,M>, - 


IF FALSE 


-PSECT 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


SABSS, ABS 


EXE$V_SYSWRTABL, - 
VERSION _MASK=<SYSGEN> 


EXES$V_NOAUTOCNF, - 
VERSION MASK=<SYSGEN> 


EXESV_POOLPGING, - 
VERSION MASK=<SYSGEN> 


EXESV_SIMULATOR, - 
VERSION _MASK=<SYSGEN> 


EXE$V_CRDENABL, - 


me Me Me Me Me Me Se Me Me Me Ne Ne Ye Me Ne Ne 


—™e Ye Ye Ve Ye We Ve Ye We Ve Ve Ve 


=“ 


we Me Me (YO 


DEFINITION FOR EXE$GL_FLAGS 

LEAVE SYSTEM READ ONLY CODE WRITABLE 
NO AUTOMATIC CONFIGURATION OF UBA 
ENABLE DYNAMIC POOL PAGING 

RUNNING ON SIMULATOR 

ENABLE CRD ERROR DETECTION 

ENABLE SBI ERROR INTERRUPT 

RMS AND FILE SYSTEM INITIALIZED 

FORCE SOLICITATION OF TIME 

FORCE ALL BUG CHECKS FATAL 

USE MULTIPLE FILE ACP’S 

TURN OFF PAGE FAULT CLUSTERING 

AUTO REBOOT ON BUGCHECK 

ALTERNATE LOGICAL NAME FOR SYSUAF 
MAKE F11ACP SHARABLE AT BOOT TIME 
TAKE SYSTEM DUMP ON BUGCHECK 

ENABLE RESOURCE ALLOCATION CHECKS 
ENABLE USE OF CONCEALED DEVICES 
INHIBIT SYSTEM SERVICES PER-PROCESS 

IF SET TODAY IS CONSIDERED PRIMARY 

IF SET TODAY IS CONSIDERED SECONDARY 
SET IF PAGE FILE FRAGMENTED MSG ISSUED 
SET IF PAGE FILE FULL MSG ISSUED 

SET IF PROCESSOR REGISTER TBCHK PRESENT 
SET IF DUMP IS IN PAGE FILE 

SET TO SAVE DUMP UNTIL ANALYZED 

Set if JOBCTL to enable queues 

Set if JOBCTL to reinitialize JBCSYSQUE 


DEFINITION FOR EXE$GL_STATE FLAGS 
DEFINITION FOR EXE$GL_ TIME CONTROL 
DO NOT TURN ON CLOCK 


DISABLE SMP SANITY TIMER TIMEOUTS 
DISABLE SMP SPIN/BUSYWAIT TIMEOUTS 
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1240 VERSION _MASK=<SYSGEN> 
1241 

1242 DEFINE EXESV_SBIERR, - 

1243 VERSION _MASK=<SYSGEN> 
1244 

1245 DEFINE EXES$V_INIT,- 

1246 VERSION_MASK=<SYSGEN> 
1247 | 

1248 DEFINE EXES$V_SETTIME, - 
1249 VERSION_MASK=<SYSGEN> 
1250 : 

1251 _ DEFINE EXESV_FATAL_BUG, - 
1252 VERSION_MASK=<SYSGEN> 
1253 

1254 DEFINE EXE$V_MULTACP, - 

1255 VERSION_MASK=<SYSGEN> 
1256 

1257 DEFINE EXE$V_NOCLUSTER, - 
1258 VERSION_MASK=<SYSGEN> 
1259 

1260 DEFINE EXE$V_BUGREBOOT, - 
1261 VERSION_MASK=<SYSGEN> 
1262 

1263 DEFINE EXESV_SYSUAFALT, - 
1264 VERSION_MASK=<SYSGEN> 
1265 

1266 DEFINE EXES$V_SHRF11ACP, - 
1267 VERSION_MASK=<SYSGEN> 
1268 

1269 DEFINE EXESV_BUGDUMP, - 

1270 VERSION_MASK=<SYSGEN> 
1271 

1272 DEFINE EXES$V_RESALLOC, - 

1273 VERSION_MASK=<SYSGEN> 
1274 . 

1275 DEFINE EXES$V_CONCEALED, - 
1276 VERSION_MASK=<SYSGEN> 
1277 

1278 DEFINE EXE$V_SSINHIBIT, - 
1279 VERSION MASK=<SYSGEN> 
1280 ia 

1281 DEFINE EXE$V_EXPLICITP, - 
1282 VERSION_MASK=<SYSGEN> 
1283 : 

1264 DEFINE EXESV_EXPLICITS, - 
1285 VERSION_MASK=<SYSGEN> 
1286 

1287 DEFINE EXESV_PGFLFRAG, - 

1288 VERSION _MASK=<SYSGEN> 
1289 

1290 DEFINE EXES$V_PGFLCRIT, - 

1291 VERSION_MASK=<SYSGEN> 
1292 

1293 DEFINE EXES$V_TBCHK, - 

1294 VERSION_MASK=<SYSGEN> 
1295 

1296 DEFINE EXESV_PAGFILDMP, - 
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1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 


we te Ne 


"VERSION _MASK=<SYSGEN> 


DEFINE EXE$V_SAVEDUMP, - 
VERSION _MASK=<SYSGEN> 


DEFINE EXE$V_JOBQUEUES, - 
VERSION MASK=<SYSGEN> 


DEFINE EXESV _ REINITOQUE, - 
VERSION _MASK=<SYSGEN> 


DEFINE EXESV_SA . APP, - 
_ VERSION_| MASK=<SYSGEN> 


DEFINE -_EXE$M_NOCLOCK, - 


VERSION _MASK=<SYSGEN> 


DEFINE EXES$M_NOSMPSANITY, - 
VERSION _MASK=<SYSGEN> 


DEFINE EXESM_NOSPINWAIT, - 
VERSION | MASK=<SYSGEN> 


DEFINE BOOSA_SYSPARAM, - 
VERSION_MASK=<SYSGEN> 


DEFINE BOOSA_PRMBLK, - 
VERSION _MASK=<SYSGEN> 


~ENDC 3 version 
IF NOT_DEFINED GETSYISW 
IF NOT_DEFINED VERSION 


OWN STORAGE: 


e 
o 


SYSTEM PARAMETER BASE 


IF NDF , PRMSW 

-PSECT $$$$$SYSPARAM_DATA, PAGE, WRT, NOEXE, OVR 
.IFF 

-PSECT $$$917A, PAGE 

-ENDC 

DEFINE EXESA_SYSPARAM 

IF DF, PRMSW 


BOOSA_SYSPARAM: : 


-PSECT $$$918, LONG 


BOO$A_PRMBLK: : 


@™e te Ye Ye Ve Ye Ve Vo 


BASE OF DEFAULTS 
PARAMETER DESCRIPTOR LIST 


-ENDC 

.IF NDF, PRMSW 

-PSECT $$$$$SYSPARAM_ DATA, PAGE, WRT, NOEXE, OVR 
.IFF 

-PSECT $$$917A, PAGE 

-ENDC 


«ENDC 3 Version 
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1352 -SBTTL SYSTEM TIME VARIABLES 

1353 ; 

1354 ; SYSTEM TIME VARIABLES 

1355 ; 

1356 DEFINE EXE$GQ_TODCBASE, - # TIME OF DAY CLOCK BASE (BOOT TIME) 
1357 VERSION_MASK=<SYSGEN> 

1358 -QUAD “X0091e2e116bc4000 3 01-JAN-1989 00:00:00.00 

1359 ; 

1360 DEFINE EXESGL_TODR, -  ¢$ TIME OF DAY REGISTER VALUE CORRESPONDING 
1361 VERSION _MASK=<SYSGEN> 

1362 - LONG 1@28 # TO EXES$GQ TODCBASE; IT’S NOT ZERO 
1363 + BECAUSE ANYTHING LESS THAN 1@28 

1364 # IS USED TO INDICATE CLOCK LOST POWER 
1365 

1366 -ENDC + NOT DEFINED GETSYISW 
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1368 -SBTTL SYSGEN PARAMETERS 

1369 ; 

1370 ; SYSGEN PARAMETERS 

1371 ; 

1372 

1373 ; When the code in SYS$GETSYI/FSGETSYI/LIB$GETSYI invokes the SYI_GENERATE_TABLE 
1374 ; macro once, the PARAMETER macro (and therefore the SYI_ITEM CODE macro) 
1375 ; will be invoked many times, generating the item-code control tables used 
1376 ; by the above peices of code. 

1377 . 

1378 

1379 7; Start the definition of the macro 

1380 

1381 -MACRO SYI_GENERATE TABLE 

1382 

1383 + Define the GETSYI item-code which are Not SYSBOOT params 

1384 

1385 -lIF DEFINED GETSYISW, SYI_ITEMTABLES 

1386 

1387 

1388 ; 

1389 ; DEFAULT PAGE FAULT CLUSTER SIZE - SPECIFIES THE MAXIMUM NUMBER OF 

1390 ; PAGES WHICH WILL BE READ FROM SECTIONS NOT SPECIFYING A CLUSTER FACTOR. 
1391 ; THIS ALSO APPLIES TO PAGE FILE PAGES. 

1392 ; 

1393 PARAMETER ADDRESS=SGNSGW_DFPFC,- ; 

1394 DEFAULT=32,- ; 

1395 MIN=0, - ; 

1396 MAX=127, - ; 

1397 NAME=PFCDEFAULT, - ; 

1398 SIZE=WORD, - ; 

1399 : TYPE=<DYNAMIC, SYS, MAJOR>, - ; 

1400 | UNIT=Pages, - 

1401 VERSION MASK=<SYSGEN> 

1402 ; 

1403 ; DEFAULT PAGE TABLE PAGE FAULT CLUSTER SIZE ~ SPECIFIES THE MAXIMUM NUMBER OF 
1404 ; OF PAGE TABLES TO ATTEMPT TO READ TO SATISFY A FAULT FOR A NON-RESIDENT 
1405 ; PAGE TABLE. 

1406 ; 

1407 PARAMETER ADDRESS=SGNS$GB_PGTBPFC, ~ ; 

1408 DEFAULT=2, - ? 

1409 MIN=0, ~ ; 

1410 . MAX=127, - ; 

1411 NAME=PAGTBLPFC, - ; 

1412 SIZE=BYTE, - ; 

1413 TYPE=<DYNAMIC, SPECIAL>, - z 

1414 UNIT=Pages,- 

1415 VERSION _MASK=<SYSGEN> 

1416 ; 

1417 ; PAGE FAULT CLUSTER FOR SYSTEM PAGING 

1418 ; : : 

1419 PARAMETER ADDRESS=SGNS$GB_SYSPFC,- ; 

1420 , DEFAULT=1, - : 

1421 MIN=0,- ~ ; 

1422 MAX=127, - ; 

1423 NAME=SYSPFC, - : 

1424 SIZE=BYTE, - ; 
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1425 TYPE=<SPECIAL>, ~- ; 

1426 UNIT=P ages, - 

1427 VERSION _MASK=<SYSGEN> 

1428 ; 

1429 ; NUMBER OF KNOWN FILE LISTS - ESTABLISHES THE MAXIMUM NUMBER OF KNOWN 
1430 ;. FILE LISTS THAT CAN BE MADE KNOWN TO THE SYSTEM. 

1431 ; 

1432 PARAMETER ADDRESS=SGN$GB_KFILSTCT, - ; 

1433 DEFAULT=4, - - 

1434 MIN=2, - ; 

1435 MAX=255, - ; 

1436 NAME=KFILSTCNT, - ; 

1437 SIZE=BYTE, - 2 

1438 TYPE=<SYSGEN, SYS>, - ; 

1439 UNIT=Slots, - 

1440 VERSION MASK#=<SYSGEN> 

1441 

1442 iF NOT_DEFINED VERSION 

1443 -IIF NOT DEFINED GETSYISW, -ALIGN WORD 

1444 -ENDC 

1445 ; 

1446 ; GLOBAL SECTION COUNT ~ DETERMINES THE MAXIMUM NUMBER OF GLOBAL SECTIONS 
1447 ; WHICH CAN BE MADE KNOWN TO THE SYSTEM BY ALLOCATING THE NECESSARY 
1448 ; STORAGE FOR THE GST ENTRIES. 

1449 ; 

1450 

1451 ; Note that 4095 global sections, coupled with the current size of a 
1452 ; section table entry, 8 longwords, allows all section table indices to 
1453 ; be represented as negative signed words. 

1454 

1455 PARAMETER ADDRESS=SGN$GW_GBLSECNT, - ; 

1456 DEFAULT=250, - : 

1457 MIN=20, - ; 

1458 MAX=4095, - ; 

1459 NAME=GBLSECTIONS, - ; 

1460 SIZE=WORD, - ; 

1461 TYPE=<SYSGEN, SYS, MAJOR>, - 3 

1462 UNIT=Sections, - 

1463 VERSION MASK=<SYSGEN> 

1464 ; . 

1465 ; GLOBAL PAGE COUNT - ESTABLISHES THE SIZE OF THE GLOBAL PAGE TABLE AND THE 
1466 ; LIMIT FOR THE TOTAL NUMBER OF GLOBAL PAGES THAT CAN BE CREATED. 
1467 ; 

1468 

1469 ' PARAMETER ADDRESS=SGN$GL_MAXGPGCT, - 3 

1470 DEFAULT#10000, - ; 

1471) Z MIN=512,- ; 

1472 NAME=GBLPAGES, - ; 

1473 SIZE=LONG, ~- 2 

1474 TYPE=<SYSGEN, SYS, MAJOR>, - ; 

1475 UNIT=Pages, - 

1476 VERSION_MASK=<SYSGEN> 

1477 ; 

1478 ; GLOBAL PAGE PAGE FILE PAGE LIMIT - ESTABLISHES THE MAXIMUM NUMBER OF GLOBAL 
1479 ; PAGES WITH PAGE FILE BACKING STORE THAT CAN BE CREATED. 

1480 ; 

1481 
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1482 PARAMETER ADDRESS=SGNS$GL_GBLPAGFIL, - ; 
1483 DEFAULT#=1024, = ; 

1484. MIN#128,- ; 

1465 NAME=GBLPAGFIL, - ; 
1486 SIZE=LONG, - ; 

14867 TYPE=<SYS>,- ; 

1488 UONIT=P ages, - 

1489 VERS ION_MASK=<SYSGEN> 

-1490 

1491 ; 

1492 ; MAXIMUM PROCESS COUNT - DETERMINES THE MAXIMUM NUMBER OF PROCESSES 
1493 ; 

1494 PARAMETER ADDRESS=SGNS$GW_MAXPRCCT : 
1495 DEFAULT=32, - ? 

1496 MIN=12,- ? 

1497 MAX=8192,- F) 

1498 NAME=MAXPROCESSCNT, ~ ; 

1499 SIZE=WORD, - ? 

1500 TYPE=<SYSGEN, SYS, MAJOR>, - ; 
1501 UNIT=P rocesses, - 

1502 _ VERSION_MASK=<SYSGEN> 

1503 

1504 ; 

1505 ; PROCESS SCAN COUNT - DETERMINES THE MAXIMUM NUMBER OF PROCESSES TO SCAN 
1506 ; FOR PRIORITY BOOSTING. 

1507 ; 

1508 PARAMETER ADDRESS=SGNSGW_PIXSCAN, -; 

1509 DEFAULT=1, - ? 

1510 MIN=0, - ; 

1511 MAX=8192, - 2 

1512 NAME=P IXSCAN, - ; 

1513 SIZE=WORD, - 7 

1514 TYPE=<SPECIAL, DYNAMIC>, -; 

1515 UNIT=P rocesses, - 

1516 VERSION _MASK=<SYSGEN> 

1517 

1518 . 

1519 ; NUMBER OF CPUS TO BOOT IN AN SMP SYSTEM, INCLUDING THE PRIMARY (BOOT) 
1520 ; CPU AND ALL ATTAHED PROCESSORS 

1521 ; 

1522 ; 

1523 PARAMETER ADDRESS=SGNSGL_SMP_CPUS, ~; 

1524 DEFAULT=-1, - : 

1525 MIN=0, - ? 

1526 NAME=SMP_CPUS, - ? 

1827 SIZE=LONG, - ; 

1528 TYPE=<MULTIPROCESSING, MAJOR>,- ; 
1529 UNIT=<CPU bitmask>, - ; 

1530 VERSION _MASK=<SYSGEN> 

1531 

1532 PARAMETER ADDRESS=SGN$GL_SMP_CPUSH, -; 

1533 DEFAULT=0, - ? 

1534 MIN=0, - ; 

1535 NAME=SMP_CPUSH, - ; 

1536 SIZE=LONG, - 3 

1537 TYPE=<SPECIAL>, - F 

1538 UNIT=<CPU bitmask>, - : 


221 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION — 


222 


SYSPARAM - SYSTEM PARAMETERS 10-MAY-1989 15:26:20 VAX MACRO V5.0-8 page 31 
-X-101018 SYSGEN PARAMETERS 6-APR-1989 10:18:35 (SYS. arene mn- (1) 


1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 


=e Se Se Se Ve 


=e ee 


=e %e Ve 


=e Se Ve 


we Fe Me Ye 


we Ve 


7 


we Me Me Ve Ve Te Vo 


ve 


VERSION | MASK=<SYSGEN> 


MULTIPROCESSING - Controls loading of spinlock code: 


O: Never load (use UNI image) 


1: Load MON image if MULTIPROCESSOR Soatiouration else UNI image 


2: Always load MON image 


3: Load MIN image if MULTIPROCESSOR configuration else UNI image 


PARAMETER ADDRESS=SGNSGB _MULTIPROCESSING, - 7 
DEFAULT=3, ~ : 
MAX=3, - 3 
MIN=0 1® Hi 
NAME=MULTIPROCESSING,- ; 
SIZE=BYTE, - 7 


TYPE=<MULTIPROCESSING>, - 
UNIT=Coded-value, - 
VERSION_MASK=<SYSGEN> 


=e 


SMP_SANITY_CNT - Number of SMP sanity timer cycles until timeout.hardware cl 


PARAMETER ADDRESS=SGNSGW_SMP_SANITY_CNT, - 


*kk* SMP NOTE *** 


e 
a 


The following is what we expect a reasonable default value to be. It 
has been increased by a factor of 10 to try to avoid premature timeouts 


while we gain experience with the timeout code. 


DEFAULT=30, ~ : 
DEFAULT=300, - : 
MAX=-1,- ; 
MIN=1, - : 
NAME=SMP_SANITY_CNT, - ; 
SIZE=WORD, - ; 
TYPE=<MULTIPROCESSING>, - 
UNIT=<10ms.>,- 


VERSION_MASK=<SYSGEN> 


we 


SMP_TICK_CNT - Number of clock ticks between SMP sanity timer cycles 


PARAMETER | ADDRESS=SGNS$GW_SMP_TICK_CNT, - 


x*k* SMP NOTE *** 


e 
s 


The following is what we expect a reasonable default value to be. It 
has been increased by a factor of 10 to try to avoid premature timeouts 


while we gain experience with the timeout code. 


DEFAULT=3, - 
DEFAULT=30, - 
MAX=-1, - 
MIN=1, - ; 
NAME=SMP_TICK_CNT, - 
SIZE=WORD, - 7 
TYPE=<SPECIAL>, - 
UNIT=<10ms.>,- 

VERS ION_MASK=<SYSGEN> 


me Ye 


=e =e 
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SMP_SPINWAIT - Normal SMP busywait timeout interval 
PARAMETER ADDRESS=SGN$GL_SMP_SPINWAIT,—- ; 


*** SMP NOTE *** 


The following is what we expect a reasonable default value to be. It 
has been increased by a factor of 10 to try to avoid premature timeouts 
while we gain experience with the timeout code. 


DEFAULT=10000,- ; 100 ms. 


DEFAULT=100000, - ; . 

MAX=8388607,- ; set to prevent overflow on normalization 
MIN=1, - 2 

NAME=SMP_SPINWAIT, - ; 

SIZE=LONG, - ? 


TYPE=<MULTIPROCESSING>, - 
UNIT=<10 usec.>,- 
VERS ION_MASK=<SYSGEN> 


we 


SMP_LNGSPINWAIT ~- LONG SMP busywait timeout interval 
PARAMETER ADDRESS=SGNS$GL_SMP_LNGSPINWAIT,- ; 


**k* SMP NOTE *** 


-The following is what we expect a reasonable default value to be. It 


has been increased by a factor of 10 to try to avoid premature timeouts 
while we gain experience with the timeout code. 


DEFAULT=300000,- 3 3 seconds 

_ DEFAULT=3000000, - ; 
MAX=8388607, - ; 
MIN=1,-. ? 
NAME=SMP_LNGSPINWAIT,- ; 
SIZE=LONG, - ; 
TYPE=<MULTIPROCESSING>, - 
UNIT=<10 usec.>,- 
VERSION _MASK=<SYSGEN> 


set to prevent overflow on normalization 


“oe 


PROCESS SECTION COUNT - GUARANTEED NUMBER OF PROCESS SECTIONS THAT CAN 
BE CREATED. DEPENDING ON SIZE OF WORKING SET, THE ACTUAL NUMBER 
OF SECTIONS CAN ACTUALLY BE GREATER. 


PARAMETER ADDRESS=SGN$GW_MAXPSTCT, - 
DEFAULT=32,- 
MIN=5, - 
MAX=1024,- 
NAME=P ROCSECTCNT, - 
SIZE=WORD, ~- 
TYPE=<SYSGEN, SYS>, - 
UNIT=Sections, ~ 
VERSION _MASK=<SYSGEN> 


™e te Ne Se Se 
7 


=e 


PARAMETER ADDRESS=SGN$GL_MINWSCNT, 


we 
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1653 DEFAULT=20, - - 

1654 MIN#10,- 2 

1655 : NAME=MINWSCNT, - 3 

1656 SIZE=LONG, - ? 

1657 TYPE=<STATIC, SYSGEN, SYS>, - ; 
1658 UNIT=Pages,- 

1659 VERSION_MASK=<SYSGEN> 

1660 

1661 

1662 ; 

1663 ; NUMBER OF PAGING FILES - DETERMINES THE MAXIMUM NUMBER OF PAGING FILES 
1664 ; THAT CAN BE MADE KNOW TO THE SYSTEM. 

1665 ; 

1666 PARAMETER '  ADDRESS=SGNS$GW |_PAGFILCT, - : 
1667 DEFAULT=2, - f 

1668 MIN=1,- , 

1669 MAX=63,- : 

1670 NAME=PAGFILCNT, - 3 

1671 SIZE=WORD, - F 

1672 TYPE=<SYS, SYSGEN>, - ? 

1673 UNIT=Files,- 

1674 VERSION _MASK=<SYSGEN> 

1675 

1676 ; 

1677 ; NUMBER OF SWAP FILES - ESTABLISHES THE MAXIMUM NUMBER OF SWAPFILES THAT 
1678 ; CAN BE MADE KNOWN TO THE SYSTEM. 

1679 ; | 

1680 PARAMETER ADDRESS=SGNSGW_SWPFILES, - ; 
1681 DEFAULT=2, - 2. 

1682 MIN=0, - : 

1683 MAX=63, - ? 

1684 NAME=SWPFILCNT, - ; 

1685 SIZE=WORD, - ; 

1686 TYPE=<SYS, SYSGEN>, - ; 

1687 UNIT=Files,- 

1688 VERSION _MASK=<SYSGEN> 

1689 

1690 

1691 ; 

1692 ; 

1693 PARAMETER ADDRESS=SGNSGL | SYSDWSCT, - : 
1694 DEFAULT=500, - : 

1695 MIN=40, - ? 

1696 ; MAX=16384, - : 

1697 NAME=SYSMWCNT, - ? 

1698 SIZE=LONG, - ; 

1699 TYPE=<SYSGEN, SYS, MAJOR>, - ? 
1700 UNIT=Pages, - 

1701 VERSION_MASK=<SYSGEN> 

1702 

1703 ; 

1704 ; INTERRUPT STACK SIZE - ESTABLISHES THE SIZE OF THE INTERRUPT STACK IN PAGES 
1705 ; 
1706 PARAMETER ADDRESS=SGNS$GW_ISPPGCT, - H 
1707 DEFAULT=4, - ; 
1708 MIN=1, - ; 
1709 NAME=INTSTKPAGES, - : 
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1710 SIZE=WORD, - ; 
1711 TYPE=<SYS, SYSGEN>, - 3 
1712 UNIT=Pages, - 

1713 VERSION_MASK=<SYSGEN> 

1714 ; 

1715 ; AMOUNT OF EXTRA INTERRUPT STACK TO LEAVE WHEN DOING DEADLOCK SEARCH. 
1716 ; 

1717 PARAMETER ADDRESS@LCKSGL | EXTRASTK, - 2 
1718 DEFAULT=512, - ; 
1719 , MIN=256,- ? 
1720 NAME=DLCKEXTRASTK, - Fi 
1721 SIZE=LONG, - ; 
1722 . TYPE=<SPECIAL>, - 3 
1723 UNIT=Bytes,- : 
1724 VERSION __MASK=<SYSGEN> 

1725 

1726 ; 

1727 ; BALANCE SET COUNT - DETERMINES THE MAXIMUM NUMBER OF PROCESS THAT CAN BE 
1728 ; BE CONCURRENTLY RESIDENT. 

1729 ; 

1730 PARAMETER ADDRESS=SGNS$GL _ BALSETCT, - 3 
1731 DEFAULT#=16, - ; 

1732 MIN=4, - es 

1733 , MAX=1024,- ? 

1734 _ NAME=BALSETCNT, - ; 

1735 SIZE=LONG, - eC 

1736 : nae . TYPE=<SYSGEN, SYS, Schaal te or 
1737 . UNIT=Slots, - 

1738 VERSION | MASK=<SYSGEN> 

1739 ; 

1740 ; COUNT OF PRE-ALLOCATED I/O PACKETS - DETERMINES THE NUMBER OF I/O PACKETS 
1741 ; TO BE PRE-ALLOCATED AND LINKED TOGETHER FOR FAST ALLOCATION AND 
1742 ; DEALLOCATION. 

1743 ; 

1744 PARAMETER ADDRESS=SGNS$GL_IRPCNT, - ; 

1745 DEFAULT=60, - : 

1746 MIN=0, - ; 

1747 . MAX=32768, - : 

1748 NAME=IRPCOUNT, - ; 

1749 SIZE=LONG, - ; 

1750 : TYPE=<SYSGEN, MAJOR, SYS>, - : 
1751 ONIT=Packets, - 

1752 VERSION _MASK=<SYSGEN> 

1753 ; ; 

1754 ; NUMBER OF PACKETS TO WHICH THE IRPLIST MAY BE EXTENDED. 
1755 ; 

1756 PARAMETER ADDRESS=SGN$GL_IRPCNTV, ~; 

1757 DEFAULT#=250, - is 

1758 MIN=0, - F) 

1759 MAX=32768, - ? 

1760 NAME=IRPCOUNTV, - ; 

1761 SIZE=LONG, - ; 

1762 TYPE=<SYSGEN, SYS>, - 3 

1763 - . UNIT=Packets, - 

1764 VERSION _| MASK=<SYSGEN> 

1765 

1766 ; 
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1767 ; MAXIMUM SIZE OF PROCESS WORKING SET. DETERMINES THE SYSTEM WIDE MAXIMUM 
1768 ; SIZE OF A PROCESS WORKING SET REGARDLESS OF PROCESS QUOTA. 
1769 ; 

1770 PARAMETER ADDRESS=SGN$GL_MAXWSCNT, - ? 

1771 DEFAULT=1024, - ; 

1772 MIN=60, - ; 

1773 MAX=100000, - ; 

1774 NAME=WSMAX, - ? 

1775 SIZE=LONG, - ; 

1776 TYPE=<SYSGEN, SYS, MAJOR>, - ; 

1777 _ ‘UNIT=Pages, - 

1778 : VERSION | MASK=<SYSGEN> 

1779 

1780 ; 

1781 ; NON-PAGED DYNAMIC POOL - DETERMINES THE NUMBER OF BYTES TO ALLOCATE FOR 
1782 ; THE NON-PAGED DYNAMIC POOL. 

1783 ; 

1784 PARAMETER ADDRESS=SGNS$GL_NPAGEDYN, ~ ; 

1785 DEFAULT=300032, - ? 586 pages 

1786  MIN=16384,- 3 

1787 NAME=NPAGEDYN, - ; 

1788 : SIZE=LONG, - 7 

1789 TYPE=<SYSGEN, SYS, MAJOR>, - ? 

1790 UNIT=Bytes, - 

1791 VERSION_MASK=<SYSGEN> 

1792 ; 

1793 ; NON-PAGED DYNAMIC POOL - DETERMINES THE NUMBER OF BYTES TO WHICH 
1794 ; THE NON-PAGED DYNAMIC POOL MAY BE EXTENDED. THIS PARAMETER 
1795 ; IS USED TO ALLOCATE THE NECESSARY PAGE TABLE ENTRIES. 

1796 ; 

1797 PARAMETER ADDRESS=SGNS$GL_NPAGEVIR, - ; 

1798 DEFAULT=1000000, - ; 

1799 MIN=16384,- 3 

1800 NAME=NPAGEVIR, - ; 

1801 SIZE=LONG, - z 

1802 TYPE=<SYSGEN, sys>, - z 

1803 UNIT=Bytes, - 

1804 VERSION _MASK=<SYSGEN> 

1805 ; 

1806 ; PAGED DYNAMIC POOL - DETERMINES THE NUMBER OF BYTES TO ALLOCATE FOR THE 
1807 ; PAGED DYNAMIC POOL. 

1808 ; 

1809 PARAMETER ADDRESS=SGNS$GL_PAGEDYN, - ; 

1810 DEFAULT=190000, - 3 

1811 MIN=10240, - 3 

1812 NAME=PAGEDYN, - ? 

1813 SIZE=LONG, - : 

1814 TYPE=<SYSGEN, SYS, MAJOR>, - ? 
1815 UNIT=Bytes, ~ 

1816 VERSION _! MASK=<SYSGEN> 

1817 

1818 ; 

1819 ; MAXIMUM VIRTUAL PAGE COUNT - DETERMINES THE TOTAL NUMBER OF PAGES THAT 
1820 ; CAN BE MAPPED FOR A PROCESS, WHICH CAN BE DIVIDED IN ANY FASHION 
1821 ; BETWEEN PO AND P1 SPACE. 

1822 ; 

1823 PARAMETER ADDRESS=SGNS$GL_MAXVPGCT, - ; 
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1824 DEFAULT=8192, - ; 
1825 MIN=512,- ; 
1826 MAX=600000, - ; 
1827 NAME=VIRTUALPAGECNT, - 3 
1828 SIZE=LONG, - ; 
1829 TYPE=<SYSGEN, SYS, MAJOR>, - ; 
1830 UNIT=Pages,- , 
1831 VERSION _MASK=<SYSGEN> 
— 1832 
1833 ; 
1834 ; REQUESTED SPT EXTENSION - NUMBER OF ADDITIONAL SPT SLOT TO ALLOW 
1835 ; 
1836 PARAMETER ADDRESS=*SGNSGL_SPTREQ,- ; 
1837 DEFAULT=2500, - F} 
1838 NAME=SPTREQ, - ; 
1839 SIZE=LONG, - ? 
1840 TYPE=<SYS, SYSGEN>, - F 
1841 UNIT=Pages, - 
1842 VERSION _MASK=<SYSGEN> 
1843 ; 
1844 ; EXTRA USER STACK AUTOMATICALLY PROVIDED BY THE IMAGE ACTIVATOR 
1845 ; SO THAT THE OPERATING SYSTEM CAN RECOVER FROM A STACK OVERFLOW. 
1846 ; 
1847 PARAMETER ADDRESS=SGNS$GL_EXUSRSTK, - ; 
1848 DEFAULT=<2*512>, - ; 
1849 MIN=<2*512>, - ; 
1850 NAME=EXUSRSTK, - ; 
1851 SIZE=LONG,- | 7 
1852 -TYPE=<SPECIAL>, - ; 
1853 UNIT=<Pages*512>,- ; 
1854 VERSION _MASK=<SYSGEN> 
1855 ; 
1856 ; NUMBER OF LARGE REQUEST PACKETS TO ALLOCATE TO THE LRP LOOK ASIDE LIST 
1857 ; 
1858 PARAMETER ADDRESS=SGNSGL_LRPCNT,- ; 
1859 DEFAULT=4, - ; 
1860 MIN=O, - ; 
1861 MAX=4096, - ; 
1862 NAME=LRPCOUNT, - ; 
1863 SIZE=LONG, - ; 
1864 TYPE=<SYS, SYSGEN,MAJOR>, - ; 
1865 UNIT=<Packets>, - ? 
1866 VERSION _MASK=<SYSGEN> 
1867 ; 
1868 ; NUMBER OF LARGE REQUEST PACKETS TO WHICH THE LRP LOOK ASIDE LIST 
1869 ; MAY BE EXTENDED. USED TO ALLOCATE THE APPROPRIATE VIRTUAL SPACE. 
1870 ; 
1871 PARAMETER ADDRESS=SGN$GL_LRPCNTV, -; 
1872 DEFAULT=20, - ; 
1873 MIN=0, - ; 
1874 MAX=4096, - ; 
1875 NAME=LRPCOUNTV, ~ ; 
1876 SIZE=LONG, ~ 3 
1877 TYPE=<SYS, SYSGEN>, - : 
1878 UNIT=<Packets>,- : 
1879 VERSION MASK=<SYSGEN> 
1880 ; 
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1861 ; SIZE OF LARGE REQUEST PACKETS (BYTES) . 


1882 
1883 PARAMETER ADDRESS=SGNSGL_LRPSIZE, -; 
1884 DEFAULT=1504, - 3 Assume Ethernet 
18665 MIN=256, - 3 
1886 MAX=16384,- ; 
1887 NAME=LRPSIZE,- ? 
1888 SIZE=LONG, - ; 
1889 TYPE=<SYS, SYSGEN>, - : 
1890 UNIT=<Bytes>, - ; 
1891 VERSION _MASK=<SYSGEN> 
1892 ; 
1893 ; MINIMOM ALLOCATION REQUEST FOR LARGE REQUEST PACKETS (BYTES) 
1894 ; 
1895 PARAMETER ADDRESS=SGNS$GL_LRPMIN, ~; 
1896 DEFAULT=1088, - ; 
1897 MIN=256, - ; 
1898 MAX=16384, - 3 
1899 NAME=LRPMIN, - ? 
1900 _ SIZE=LONG, - ; 
1901 TYPE=<SPECIAL>, - ; 
1902 , UNIT=<Bytes>, - ? 
1903 VERSION_MASK=<SYSGEN> 
1904 ; ; 
1905 ; NUMBER OF SMALL REQUEST PACKETS TO ALLOCATE TO THE SRP LOOK ASIDE LIST 
1906 ; ; 
1907 PARAMETER ADDRESS=SGNSGL_SRPCNT, -; 
1908 DEFAULT=120, - ? 
1909 MIN=0, - ? 
1910 MAX=131072,- : 
1911 NAME=SRPCOUNT, - ; 
1912 SIZE=LONG, - : 
1913 TYPE=<SYS, SYSGEN, MAJOR>, - ; 
1914 UNIT=<Packets>,- ; 
1915 VERSION _MASK=<SYSGEN> 
1916 ; 
1917 ; NUMBER OF SMALL REQUEST PACKETS TO WHICH THE SRP LOOK ASIDE LIST 
1918 ; MAY BE EXTENDED. USED TO ALLOCATE THE APPROPRIATE VIRTUAL SPACE. 
1919 ; 
1920 PARAMETER ADDRESS=SGNSGL_SRPCNTV, -; 
1921 DEFAULT=250, - ; 
1922 MIN=0, - ; 
1923 MAX=131072, - 3 
1924 NAME=SRPCOUNTV, - z 
1925 SIZE=LONG, - ? 
1926 TYPE=<SYS, SYSGEN>, - ; 
1927 UNIT=<Packets>,- : 
1928 VERSION_MASK=<SYSGEN> 
1929 ; 
1930 ; SIZE OF SMALL REQUEST PACKETS (BYTES) 
1931 ; 
1932 PARAMETER ADDRESS=SGNS$GL_SRPSIZE, -; 
1933 DEFAULT=96, ~ 3 
1934 MIN=96, - ; 
1935 MAX=144, - ; 
1936 NAME=SRPSIZE, - 3 
1937 SIZE=LONG, - A 
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1936 TYPE=<SPECIAL>, - ? 

1939 UNIT=<Bytes>, - ; 

1940 VERSION _MASK=<SYSGEN> 

1941 ; 

1942 3; MINIMUM ALLOCATION REQUEST FOR SMALL REQUEST PACKETS (BYTES) 
1943 ; 

1944 PARAMETER ADDRESS=SGNS$GL_SRPMIN, ~; 

1945 DEFAULT#=32,- ; 

1946 — MIN#0, <- ; 

1947 MAX=144, —- ; 

1948 NAME=SRPMIN, - ; 

1949 SIZE=LONG, - ; 

1950 TYPE=<SPECIAL>,- , 

1951 UNIT=<Bytes>, ~ ? 

1952 VERSION_MASK=<SYSGEN> 

1953 ; 

1954 ; PERMANENT I/O CHANNEL COUNT - SPECIFES THE NUMBER OF PERMANENT 1/0 
1955 ; CHANNELS TO PROVIDE. 

1956 ; 

1957 PARAMETER ADDRESS=SGNSGW_PCHANCNT, - ; 

1958 DEFAULT=127, - ; 

1959 MIN#31,- ; 

1960 MAX=2047, - ; 

1961 NAME=CHANNELCNT, - F 

1962 SIZE=WORD, - : 

1963 TYPE=<SPECIAL>, - 7 

1964 UNIT=Channels, - 

1965 VERSION MASK=<SYSGEN> 

1966 ; 

1967 ; PROCESS I/O PAGES - SPECIFIES THE NUMBER OF PAGES OF PROCESS 
1968 ; I/O ADDRESS SPACE FOR PRCSTRT TO CREATE. 

1969 ; 

1970 PARAMETER ADDRESS=SGNS$GW_PIOPAGES, ae 

1971 DEFAULT=245, - ; 

1972 MIN=10, - ? 

1973 NAME=PIOPAGES, - ts 

1974 SIZE=WORD, - ? 

1975 TYPE=<SPECIAL>, - ; 

1976 UNIT=Pages,- 

1977 VERSION MASK=<SYSGEN> 

1978 ; of 

1979 ; CONTROL REGION IMPURE PAGES - SPECIFIES THE NUMBER OF PAGES OF 
1980 ; PROCESS ALLOCATION REGION SPACE FOR PRCSTRT TO CREATE. 
1981 ; 

1982 PARAMETER ADDRESS=SGNS$GW_CTLPAGES, - 3 

1983 DEFAULT=50, - ; 

1984 MIN=10, -— ; 

1985 NAME=CTLPAGES, - ; 

1986 SIZE=WORD, - ; 

1987 TYPE=<SPECIAL>, - ; 

1988 UNIT=Pages, - 

1989 VERSION _MASK=<SYSGEN> 

1990 

1991 ; 

1992 ; LIMIT ON USE OF THE PROCESS ALLOCATION REGION BY IMAGE REQUESTS 
1993 ; 

1994 PARAMETER ADDRESS=SGN$GW_CTLIMGLIM, - 3 
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1995 DEFAULT=35,- ? 

1996 MIN=0, - 2 

1997 NAME=CTLIMGLIM, - ; 

1998 SIZE=WORD, - ? 

1999 TYPE=<SPECIAL>, - ; 

2000 UNIT=Pages, - 

2001 VERSION _MASK=<SYSGEN> 

2002 ; 

2003 ; DEFAULT NUMBER OF PAGES OF IMAGE I/O ADDRESS SPACE USED BY 
2004 ; THE IMAGE ACTIVATOR IF NOT SPECIFIED AT PROGRAM LINK TIME. 
2005 ; 

2006 PARAMETER ADDRESS=SGNS$GW_IMGIOCNT, - ; 
2007 DEFAULT=64, - ; 

2008 MIN=32,- ; 

2009 NAME=IMGIOCNT, - ; 

2010 SIZE=WORD, - ; 

2011 TYPE=<DYNAMIC, SPECIAL>, - ; 
2012 UNIT=Pages, - 

2013 VERSION _MASK=<SYSGEN> 

2014 - PAGE 

2015 -SBTTL CONTROL PARAMETERS 

2016 

2017 IF NOT DEFINED VERSION 

2018 -IIF NOT_DEFINED GETSYISW, -ALIGN WORD 
2019 - ENDC 

2020 

2021 ; 

2022 ; GENERAL SYSTEM CONTROL PARAMETERS 

2023 ; 

2024 PARAMETER ADDRESS=SCHSGW_QUAN, ~ 7 PROCESS QUANTUM 
2025 DEFAULT=~20, - 3 NEGATED 
2026 MIN=2, - 3 

2027 MAX=32767,- : 

2028 NAME=QUANTUM, - ? 

2029 SIZE=WORD, - ; 

2030 TYPE=<DYNAMIC, SYS, NEG,MAJOR>,- ; 
2031 UNIT=10Ms, - ? 

2032 VERSION _MASK=<SYSGEN> 

2033 ; 

2034 ; MODIFIED PAGE WRITER CONTROL PARAMETERS 

2035 ; 

2036 DEFINE MPWSAW_INITVAL, -. 

2037 VERSION_MASK=<SYSGEN> 

2038 

2039 ; 

2040 ; PAGE WRITE CLUSTER FACTOR - SPECIFIES THE NUMBER OF PAGES TO ATTEMPT 
2041 ; TO WRITE AS A SINGLE I/O TRANSFER TO CONTIGUOUS DISK. 
2042 ; 

2043 PARAMETER ADDRESS=MPWSGW_MPWPFC,- ; 

2044 DEFAULT=120, - ; 

2045 MIN=16,- ; 

2046 MAX=120, - ? 

2047 NAME=MPW_WRTCLUSTER, - ; 

2048 SIZE=WORD, - ? 

2049 TYPE=<SYSGEN, SYS>, - ; 

2050 UNIT=Pages,- 


2051 VERSION_MASK=<SYSGEN> 
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2052 ; 

2053 ; MODIFIED PAGE LIST HIGH LIMIT - THRESHOLD AT WHICH TO BEGIN WRITING 
2054 ; MODIFIED PAGES. 

2055 ; 

2056 PARAMETER ADDRESS=MPWSGW_HILIM,- ; 

2057 DEFAULT=500, - ; 

2058 MIN=0, - ; 

2059 MAX#65535, - ; 

2060 NAME=MPW_HILIMIT, - ; 

2061 SIZE=WORD, - ; 

2062 TYPE=<SYSGEN, SYS>, - ; 

2063 UNIT=Pages, - 

2064 VERSION_MASK=<SYSGEN> 

2065 ; 

2066 ; MODIFIED PAGE LIST LOW LIMIT - THRESHOLD AT WHICH MODIFIED PAGE WRITING 
2067 ; WILL NORMALLY STOP. WRITING STARTED AT THE HIGH LIMIT AND PAGES 
2068 ; ARE WRITTEN IN CHUNKS CONTROLLED BY THE CLUSTER FACTOR. WHEN THE 
2069 ; LENGTH OF THE MODIFIED PAGE LIST HAS BEEN REDUCED BELOW THE LOW LIMIT, 
2070 ; WRITING CEASES UNTIL ENOUGH PAGES HAVE BEEN ADDED TO EXCEED THE 
2071 ; HIGH LIMIT. 

2072 ; 

2073 PARAMETER ADDRESS=MPWSGW_LOLIM,~ ; 

2074 DEFAULT=32, - ; 

2075 MIN=0, - ; 

2076 ; MAX=65535, - : 

2077 NAME=MPW_LOLIMIT, - ; 

2078 SIZE=WORD, - : 

2079 TYPE=<SYSGEN, SYS>, - ; 

2080 UNIT=Pages, - 

2081 VERSION _MASK=<SYSGEN> 

2082 ; 

2083 ; MODIFIED PAGE WRITER I/O LIMIT. THIS PARAMETER CONTROLS THE MAXIMUM NUMBER OF 
2084 ; CONCURRENT I/O TRANSFERS INITIATED BY THE MODIFIED PAGE WRITER. 

2085 ; 

2086 PARAMETER ADDRESS=MPWSGB_IOLIM,- ; 

2087 DEFAULT=4, - ; 

2088 MIN=1,- : 

2089 MAX=127,- ; 

2090 NAME=MPW_IOLIMIT, - ; 

2091 SIZE=BYTE, - ; 

2092 TYPE=<SYSGEN, SYS>, - ; 

2093 UNIT=1/0,- 

2094 VERSION MASK=<SYSGEN> 

2095 ; 

2096 ; MODIFIED PAGE WRITER I/O PRIORITY. THIS PARAMETER SETS THE PRIORITY OF 
2097 ; I/O TRANSFERS INITIATED BY THE MODIFIED PAGE WRITER. 

2098 ; 

2099 PARAMETER ADDRESS=MPWSGB_PRIO, - ; 

2100 DEFAULT=4, - ; 

2101 MIN=0, ~ ; 

2102 MAX=31, - ; 

2103 NAME=MPW_PRIO, - ; 

2104 SIZE=BYTE, - ; 

2105 TYPE=<SPECIAL, DYNAMIC>, - ; 

2106 VERSION _MASK=<SYSGEN> 

2107 ; 

2108 ; SWAPPER I/O PRIORITY. THIS PARAMETER SETS THE PRIORITY OF 
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2109 ; I/O TRANSFERS INITIATED BY THE SWAPPER. 


2110 ; ’ 
2111 PARAMETER ADDRESS=SWP$GB_PRIO, - ; 
2112 DEFAULT=4, - ; 
2113 MIN=@0, - z 
2114 MAX=31,- ? 
2115 NAME=SWP_PRIO,- ; 
2116 SIZE=BYTE, - ? 
2117 TYPE=<SPECIAL, DYNAMIC>, - 
2118 VERS ION_MASK=<SYSGEN> 
2119 ; 
2120 ; MODIFIED PAGE WRITER LOWER LIMIT THRESHOLD STOPPING USE OF MODIFIED PAGE 
2121 ; WRITER FROM BEING USED AS PRIMARY MECHANISM TO RECOVER MEMORY. 
2122 ; 
2123 PARAMETER ADDRESS=MPWSGL_THRESH, - ; 
2124 DEFAULT=200, - ; 
2125 oe MIN=0, - ; 
2126 MAX#65535,- PF 
2127 NAME=MPW_THRESH, - ; 
2128 SIZE=LONG, - ; 
2129 TYPE=<SYS, DYNAMIC>, - 
2130 UNIT = Pages, - 
2131 VERSION _MASK#=<SYSGEN> 
2132 ; 
2133 3 MODIFIED PAGE WRITER BUSY WAIT LIMIT. THIS IS USED AS A THRESHOLD OF 
2134 ; WHEN TO PUT A PROCESS INTO RESOURCE WAIT IF IT IS GENERATING A MODIFIED 
2135 ; PAGE AND THE SIZE OF THE MODIFIED LIST IS GREATER THAN THIS PARAMETER. 
2136 ; 
2137 PARAMETER ADDRESS=MPWSGL_WAITLIM, -; 
2138 DEFAULT=620, - 2 
2139 MIN=0, - é 
2140 MAX=65535,- ? 
2141 NAME=MPW_WAITLIMIT, - ; 
2142 SIZE=LONG, - 3 
2143 TYPE=<SYS, DYNAMIC>, - 
2144 UNIT= Pages, - 
2145 VERSION _MASK=<SYSGEN> 
2146 ; 
2147 ; MODIFIED PAGE WRITER BUSY WAIT LOW LIMIT. THIS IS USED AS A THRESHOLD OF 
2148 ; WHEN TO DECLARE A RESOURCE AVAILABLE EVENT TO RESUME PROCESSES THAT WERE PUT 
2149 ; INTO THE MPW BUSY RESOURCE WAIT STATE. 
2150 ; 
2151 PARAMETER ADDRESS=MPWSGL_LOWAITLIM, -; 
2152 DEFAULT=380, - ? 
2153 zs MIN=0, - ; 
. 2154 -MAX=65535,- ? 
2155 NAME=MPW_LOWAITLIMIT, -; 
2156 SIZE=LONG, - ; 
2157 UNIT= Pages, - 
2158 TYPE=<SYS, DYNAMIC> ; 
2159 ; 
2160 ; MAXIMUM NUMBER OF WORKING SET LIST ENTRIES THAT MAY BE SKIPPED WHILE 
2161 ; SCANNING FOR A GOOD ENTRY TO DISCARD. SET TO 0 TO DISABLE SKIPPING. 
2162 ; 
2163 PARAMETER ADDRESS=SGNSGW_WSLMXSKEP, - ; 
2164 DEFAULT=8, - ; 
2165 MIN=0, - ; 
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(2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2198 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 


2205. 


2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 


ee Ye Ye Se 


™e te Ve te 


me Ne Ne 


%o Ne Ye Vo 


ze 


MAX=#512,- — ; 
NAME=TBSKIPWSL, ~- 
SIZE=WORD, -. ? 
TYPE=<DYNAMIC, SPECIAL>, - 
UNIT=Pages, - 


VERSION_MASK=<SYSGEN> 


bo 


Maximum number of physical pages to be used - permits testing of smaller 
memory configurations without actually removing memory boards. 


PARAMETER | ADDRESS=MMGSGL_PHYPGCNT, - 
‘DEFAULT=1047552,- ; 
MIN=2048,- we 


MAX=1047552,~- ; 
NAME=PHYSICALPAGES, - ; 
SIZE=LONG, - ; 
TYPE=<SPECIAL>, - : 
UNIT=P ages, - 
VERSION MASK=<SYSGEN> 


e 
v 


Page fault rate lower threshold. ‘This parameter sets the lower page fault rate 


threshold for automatic working set size adjustment. 


PARAMETER ADDRESS=SCHSGL_PFRATL, - ; 
DEFAULT=0, - 3 
MIN=0,- ; oF 
NAME=PFRATL, - , 
SIZE=LONG, - nt 
TYPE=<SYS, DYNAMIC, MAJOR>, - 
UNIT=F1ts/10Sec, - ; 


VERSION _MASK=<SYSGEN> 


we 


Page fault rate high threshold. This parameter sets the upper page fault 


rate threshold for automatic working set adjustment. 


PARAMETER ADDRESS=SCHS$GL_PFRATH, ~ é 
DEFAULT=120, - 3 
MIN=#0,- ; 
NAME=PFRATH, - 
SIZE=LONG, - 
TYPE=<SYS, DYNAMIC, MAJOR>, - 
UNIT=F1ts/10Sec, - 


VERSION MASK=<SYSGEN> 


ze we 


we 


Page fault rate system threshold. This parameter sets the target system page 


fault threshold. 


ADDRESS=SCH$GL_PFRATS, - ? 
DEFAULT=0, - 3 
MIN=#0,-~ ; 
NAME=PFRATS, - 
SIZE=LONG, - 
TYPE=<SPECIAL, DYNAMIC>, - 
UNIT=Flts/10Sec, - 
VERSION _MASK=<SYSGEN> 


PARAMETER 


™e Xe 


@e 
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2223 ; Working set increment. This parameter sets the number of pages to increase the 
2224 ; working set size to compensate for a high page fault rate. 

2225 ; ; 

2226 PARAMETER ADDRESS=SCH$GL_WSINC,- ; 

2227 DEFAULT=150,- ; 

2228 MIN=0,- ; 

2229 NAME=WSINC, - ; 

2230 SIZE=LONG, - ; 

2231 : | my TYPE=<SYS, DYNAMIC, MAJOR>, - ; 

2232 . UNIT=Pages, - 

2233 . VERSION _MASK=<SYSGEN> 

2234 ; 

2235 ; Working set decrement. This parameter sets the number of pages to decrease 
2236 ; the working set to compensate for a page fault rate below the lower threshold, 
2237 ; or alternatively (if PFRATL=0), when reclaiming memory in quantum end 
2238 ; processing from a dormant, COMputable process during memory-tight periods. 
2239 ; 

2240 ; The default is chosen to be relatively prime to WSINC, and approximately 
2241 ; equal to (default BORROWLIM) - (default GROWLIM). 

2242 ; 

2243 PARAMETER ADDRESS=SCH$GL_WSDEC,- ; 

2244 : DEFAULT=250,- ; 

2245 . .  -MINs0,- 3 

2246 NAME=WSDEC, - ; 

2247 SIZE=LONG, - ; 

2248 TYPE=<SYS, DYNAMIC, MAJOR>, - z 

2249 UNIT=Pages, - 

2250 VERSION _MASK=<SYSGEN> 

2251 ; 

2252 ; / : 

2253 PARAMETER ADDRESS=SCH$GL_AWSMIN, - ; 

2254 DEFAULT=50, - ; 

2255 MIN=0, - ; 

2256 NAME=AWSMIN,- ; 

2257 SIZE=LONG, ~ ; 

2258 TYPE=<SYS, DYNAMIC>, -; 

2259 UNIT=Pages, - 

2260 VERSION _MASK=<SYSGEN> 

2261 ; 

2262 ; Working set measurement interval. Sets the minimum interval of compute 
2263 ; time for the measurement of page fault rate. 

2264 ; . 

2265 PARAMETER ADDRESS=SCH$GL_AWSTIME, - ; 

2266 DEFAULT=20, - ; 

2267 MIN=1, - ; 

2268 NAME=AWSTIME,- ; 

2269 SIZE=LONG, - ; 

2270 TYPE=<SYS, DYNAMIC>, ~; 

2271 UNIT=10Ms, - . 

2272 VERSION_MASK=<SYSGEN> 

2273 ; 

2274 ; Swap rate control. This parameter sets the swapping rate and serves to limit 
2275 ; the consumption of disk bandwidth by swapping. 

2276 ; 

2277 PARAMETER ADDRESS=SCHSGL_SWPRATE, - 3 

2278 DEFAULT=500,- ; 

2279 MIN=#0,- ; 
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2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2395 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
232 
2330 
2331 
2332 
2333 
2334 
2335 
2336 


~e  ™e Se Ne Ne 


=e 


se Se Se Vo 


™e Me Se Ne tO 


me Te Me Me Ne 


—e 


NAME=SWPRATE,- ; 
SIZE=LONG, ~ ; 
TYPE=<SPECIAL, DYNAMIC>, - 
UNIT=10Ms/Swap, - 
VERSION_MASK=<SYSGEN> 


™e 


Desired process page count for an outswap swap. This parameter sets the 
number of pages to attempt to reduce a working set to before starting the 
outswap. 


PARAMETER ADDRESS=SWPS$GL_SWPPGCNT, - 
DEFAULT=288, ~ 
MIN=0, - 
NAME=SWPOUTPGCNT, - 
SIZE=LONG, - 
TYPE=<SYS,DYNAMIC>, - 
UNIT=Pages, - 
VERSION_MASK=<SYSGEN> 


Swap file allocation increment value. The size in blocks to use to backup 
swap file space allocation in the swap or page file. Space in the file will 
be allocated multiples of this unit up to wsaquota to guarantee swap space. 


PARAMETER ADDRESS=SWPS$GW_SWPINC, - 
DEFAULT#=96, - 
MIN=16,- 
NAME=SWPALLOCINC, - 
SIZE=WORD, - 
TYPE=<SPECIAL>, - 
UNIT=Blocks, - 
VERS ION_MASK=<SYSGEN> 


I/O time allowance. This parameter sets the number of 10 millisecond 
units to charge the current residence quantum for each voluntary wait. 
The correct value approximates the cost of a disk I/O neglecting wait time. 


PARAMETER ADDRESS=SCHS$GW_IOTA, - 
DEFAULT=2, - 
MIN=0, - 
MAX=32767, - 
NAME=IOTA, - 
SIZE=WORD, - 
TYPE=<SPECIAL, DYNAMIC>, - 
UNIT=10Ms, - 
VERSION MASK=<SYSGEN> 


Elapsed realtime to cause a HIB or LEF process to look like it is in 
longwait. This parameter sets the number of 1 second units 

that need to have elapsed. Longwait processes are one of the most 
eligible to attempt to recover pages from when a shortage is detected. 


PARAMETER ADDRESS=SCH$GW_LONGWAIT, - ? 
DEFAULT=30, - : 
MIN=0,- ; 
MAX=65535, - 
NAME=LONGWAIT, -. 
SIZE=WORD, - 
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2337 TYPE=<SYS, DYNAMIC>, - 2 

2338 UNIT#Seconds, - 

2339 VERSION MASK=<SYSGEN> 

2340 

2341 ; Elapsed realtime to cause a low priority COM process to look like it is 
2342 ; dormant. This parameter sets the number of 1 second units 

2343 ; that need to have elapsed. Dormant processes are one of the most 
2344 ; eligible to attempt to recover pages from when a shortage is detected. 
2345 ; For V5.0+ systems, DORMANTWAIT is also used, in a compatible way, as a 
2346 ; control parameter for the new PIXSCAN processing algorithm. 

2347 ; . 

2348 PARAMETER ADDRESS=SCHSGW |_DORMANTWAIT, - 2. 

2349 DEFAULT=2, - ; 

2350 MIN=0,- ; 

2351 MAX=65535,- oF 

2352 arsactipatr ates aa ; 

2353 SIZE=WORD, - 

2354 TYPE=<SYS, DYNAMIC>, - ; 

2355 UONIT=Seconds, - 

2356 . VERSION _MASK=<SYSGEN> 

2357 ; . 

2358 3; Swap fail count. This parameter sets the number of consecutive swap 
2359 ; schedule failures to occur before the swap schedule algorithm changes 
2360 ; to ignore the swap quantum protection. 

2361 + 

2362 PARAMETER ADDRESS=SCHS$GW_SWPFAIL, - ; 

2363 DEFAULT#=20, ~ $ 

2364 MIN=0,- ; 

2365 MAX=32767,- ; 

2366 NAME=SWPFAIL,- ; 

2367 ' SIZE=WORD, - ; 

2368 TYPE=<SPECIAL, DYNAMIC>, - 

2369 ; 4 VERSION_MASK=<SYSGEN> 

2370 

2371 ; 

2372 ; These are reserved parameters for undefined use by either Digital 
2373 ; or user written system services. 

2374 ; 

2375 ; 

2376 ; This is the start of the Digital reserved parameters. 

2377 ; , 

2378 

2379 PARAMETER ADDRESS=SGNS$GL_VMSD1,- ; 

2380 DEFAULT=0, - ; 

2381 MIN=W0,- ; 

2382 NAME=VMSD1, - ng 

2383 © SIZE=LONG, - ; 

2384 wo TYPE=<SPECIAL, DYNAMIC>, - 

2385 : VERSION_MASK=<SYSGEN> 

2386. ; 

2387 PARAMETER ADDRESS=SGNSGL_VMSD2,- ; 

2388 DEFAULT=0, - ; 

2389 MIN=0,- ; 

2390 NAME=VMSD2, - ; 

2391 SIZE=LONG, - ; 

2392 TYPE=<SPECIAL, DYNAMIC>, - 

2393 VERSION _MASK=<SYSGEN> 


236 


CONFIDENTIAL AND PROPRIETARY 
_ DIGITAL EQUIPMENT CORPORATION 


SYSPARAM - SYSTEM PARAMETERS 10-MAY-1989 15:26:20 VAX MACRO V5.0-8 Page 46 
X-101018 SYSGEN PARAMETERS 6-APR-1989 10:18:35 [SYS8.SRC]SYSPARAM.MAR;2 (1) 


2394 ; 

2395 PARAMETER ADDRESS=SGN$GL_VMSD3,- ; 
2396 DEFAULT=0, - 3 

2397 MIN=0,- ; 

2398 NAME=VMSD3, - ; 

2399 SIZE=LONG, - ; 

2400 TYPE=<SPECIAL, DYNAMIC>, - | 
2401 VERSION_MASK=<SYSGEN> 
2402 ; 

2403 PARAMETER ADDRESS=SGNS$GL_VMSD4,- ; 
2404 DEFAULT=0, - ; 

2405 MIN=0,- ; 

2406 NAME=VMSD4, - ; 

2407 SIZE=LONG, - 3 

2408 TYPE=<SPECIAL, DYNAMIC>, - 
2409 VERSION _MASK=<SYSGEN> 
2410 ; 

2411 PARAMETER ADDRESS=SGNSGL_VMS5,- ; 
2412 DEFAULT=0, - 3 

2413 MIN=0,- ; 

2414 NAME=VMS5, - ; 

2415 SIZE=LONG, - 3 

2416 TYPE=<SPECIAL>, - 

2417 VERSION MASK=<SYSGEN> 
2418 ; 

2419 PARAMETER ADDRESS=SGNS$GL_VMS6, - ? 
2420 DEFAULT=0, - 3 

2421 MIN=0,- ; 

2422 NAME=VMS6, - ; 

2423 . SIZE“LONG,-  —s_—? 

2424 TYPE=<SPECIAL>, ~ 

2425 VERSION_MASK=<SYSGEN> 
2426 ; 

2427 PARAMETER ADDRESS=SGNSGL_VMS7,- ; 
2428 DEFAULT=0, - ; 

2429 MIN=0,- ; 

2430 NAME=VMS7, - 3 

2431 _ SIZE=LONG, ~ ; 

2432 _ TYPE=<SPECIAL>, ~ 

2433 VERSION MASK=<SYSGEN> 
2434 ; . 

2435 PARAMETER ADDRESS=SGNS$GL_VMS8, - ? 
2436 DEFAULT=0, - 7 

2437 : MIN=0,- ; 

2438 NAME=VMS8, - ? 

2439 SIZE=LONG, ~ 2 

2440 TYPE=<SPECIAL>, - 

2441 VERSION_MASK=<SYSGEN> 
2442 

2443 ; 

2444 ; Specify Job Controller options. 

2445 ; 

2446 PARAMETER ADDRESS=SGN$GL_JOBCTLD, - ; 
2447 DEFAULT=0, - ; 

2448 MIN=0,- ; 

2449 . NAME=JOBCTLD,- ; 

2450 SIZE=LONG, - ; 
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2451 TYPE=<SPECIAL, DYNAMIC>, - 
2452 VERSION MASK=<SYSGEN> 
2453 = 
2454 ; - 
2455 ; Specify PUDRIVER load options 
2456 ; 
2457 PARAMETER ADDRESS=SGNSGL_PU_OPTIONS, - ; 
2458 DEFAULT=0, - z 
2459 MIN=0,- ; 
2460 NAME=PU_OPTIONS, - ; 
2461 _  SIZE=LONG, - . ; 
2462 TYPE=<SPECIAL, DYNAMIC>, ~ 
2463 VERSION _MASK=<SYSGEN> 
2464 
(2465 ; 
2466 ; Specify WPDRIVER options to control nonpaged pool allocation 
2467 ; 
2468 PARAMETER ADDRESS=SGNS$GL_WPTTE_SIZE, - 3 
2469 DEFAULT=1000,- ; 
2470 MIN=0,- ; 
2471 : NAME=WPTTE_SIZE, - ? 
2472 . SIZE=LONG, - ; 
2473 ice TYPE=<SPECIAL, DYNAMIC>, -; 
2474 UNIT#Entries, - 
2475 VERSION_MASK=<SYSGEN>, - 
2476 VERSION _MASK=<SYSGEN> 
2477 
2478 PARAMETER ADDRESS=SGNSGW_WPRE_SIZE, - ; 
2479 DEFAULT=5, - ; 
2480 MIN=0,- ; 
2481 NAME=WPRE SIZE, - ; 
2482 SIZE=WORD, -. ; 
2483 _ TYPE=<SPECIAL, DYNAMIC>, -; 
2484 UNIT=P ages, - 
2485 VERSION _MASK=<SYSGEN> 
2486 
2487 ; 
2488 ; Qbus Multi-level interrupt option 
2489 ; enables software workaround in VECDEF (see: LOADER.MAR) 
2490 ; 
2491 PARAMETER ADDRESS=SGNS$GB_QBUS_ MULT_INTR,- ; 
2492 DEFAULT=0, - . 
2493 MIN=0, - : 
2494 MAX=1, - ; 
2495 NAME=QBUS MULT _INTR,- ; 
2496 TYPE=<SPECIAL>,- ; 
2497 UNIT=Boolean,- 
2498 VERSION_MASK=<SYSGEN> 
2499 
2500 
2501 ; 
2502 ; Number of buffers in the Error Logging Buffer Ring 
2503 ; 
2504 PARAMETER ADDRESS=SGN$GW_ERLBUFCNT, - 
2505 DEFAULT=4, - 
2506 MIN=2, - 
2507 MAX=64, - 


238 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SYSPARAM - SYSTEM PARAMETERS 10-MAY-1989 15:26:20 VAX MACRO V5.0-8 Page 48 
X-101018 SYSGEN PARAMETERS 6~APR-1989 10:18:35 [SYS.SRC]SYSPARAM.MAR;2 (1) 


2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 


~e Ye *e Ve 


™e Se Se Se 


™e Ye fe 


we =e 


_e 


NAME =ERRORLOGBUFFERS, ~ 
SIZE=WORD, - 


. TYPE=<SYS>, - 
UNIT=Buffers,- 


VERSION_MASK=<SYSGEN> 


Bitmask to specify the dump style options to follow in BUGCHECK. 


The presently defined values are: 


0 
1 


= Full physical memory dump 
= Subset crash dump 


PARAMETER ADDRESS=SGNS$GL_DUMP_STYLE, - 


DEFAULT=0, = 

MIN=0, - 
NAME=DUMPSTYLE, - 
SIZE=LONG, - 
TYPE=<SYS>,- 
UNIT=Bitmask, - 
VERSION_MASK=<SYSGEN> 


This is the start of the user reserved sysgen parameters. 


PARAMETER 


PARAMETER 


PARAMETER 


PARAMETER 


ADDRESS=SGNS$GL_USERD1,- ; 
DEFAULT=0,- =; 
MIN=0, - ; 
NAME=USERD1, ~ 
SIZE=LONG, — 
TYPE=<DYNAMIC>, - 
VERSION_MASK=<SYSGEN> 


me te 


ADDRESS=SGN$GL_USERD2, - ; 
DEFAULT=0, - : 
MIN=0,- ; 
NAME=USERD2, - 
SIZE=LONG, - 
TYPE=<DYNAMIC>, - 
VERSION MASK=<SYSGEN> 


ee we 


ADDRESS=SGN$GL_USER3,- ; 
DEFAULT=0, - ; 
MIN=0,- ; 
NAME=USER3, - 
SIZE=LONG, ~ 
TYPE=<>, - 
VERSION _MASK=<SYSGEN> 


-e Ne 


ADDRESS=SGNSGL._USER4,- ; 


DEFAULT=0, - ; 
MIN=0,- ; 
NAME=USER4, - ; 
SIZE=LONG, - ; 
TYPE=<>,- 


VERSION _MASK=<SYSGEN> 
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2565 
2566 ; eo gee 
2567 ; Extra CPU time. This parameter sets the number of 10 millisecond 
2568 ; units to be allowed as an extension when CPU time expixes. One 
2569 ; extension is allowed for each access mode. 
2570 3 
2571 PARAMETER ADDRESS=SGNSGL_EXTRACPU, - ) 
2572 DEFAULT=1000,- + 10 Seconds 
2573 | MIN=0, - : 
2574 NAME =EXTRACPU, - : 
2575 SIZE=LONG, - - | 
2576 . TYPE=<SYS, DYNAMIC>, - ae 
2577 UNIT=10Ms, - 
2578 VERSION_MASK=<SYSGEN> 
2579 : . 
2580 ; 
2581 ; Maximum group code for system UIC 
2562 ; : . 
2863 : PARAMETER ADDRESS#EXE$GL_SYSUIC,- ; 
. 29864 DEFAULT=8,- #; 
2585 . MIN]=1,- ~ ot 
2586 MAX=32768,- 3 
2587 NAME=MAXSYSGROOUP, ~-. ; 
2588 ' SIZE=LONG, - ? 
2589 TYPE=<SYS, DYNAMIC>, ~ ? 
2590 UNIT=<UIC Group>, - 
2891 _ VERSION _MASK=<SYSGEN> 
2592 ; ch 
2593 ; Maximum time for a device to languish in mount verification before giving up. 
2594 3; 
2595 PARAMETER ADDRESS=IOC$GW_MVTIMEOUT, - . 
2596 DEFAULT#=3600, ~ ? 60 minute default 
2597 MIN=1,- 
2598 : MAX=64000, - ; 
2599 NAME=MVTIMEOUT, ~ ; 
2600 SIZE=WORD, - 
2601 TYPE=<SYS, DYNAMIC>, - 
2602 UNIT=Seconds, - 
2603 VERSION _MASK=<SYSGEN> 
2604 ; 
2605 ; Maximum time for a tape device to languish in mount verification before giving up. 
2606 ; 
2607 PARAMETER ADDRESS=IOCS$GW_TAPE Seyneeeo ne 
2608 : DEFAULT=600, ~- a 3 10 minute default 
2609 MIN=1, - 
2610 MAX=64000, - ; 
2611 ‘ NAME=TAPE  MVTIMEOUT, - ; 
2612 SIZE=WORD, - 
2613 TYPE=<SYS, DYNAMIC>, - 
2614 UNIT=Seconds, ~ 
2615 VERSION_MASK=<SYSGEN> 
2616 ; 
2617 ; Maximum allowable buffered I/O request size 
2618 ; 
2619 PARAMETER ADDRESS=IOC$GW_MAXBUF,- ; 
2620 DEFAULT=2048,- ; 
2621 MIN=1700, - ; 
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2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 


we Ye Ye Ye Se Xe Ne ™e Ye Ye 


we Ye Ne Ye Ne 


we Se 


MAX=64000, - ; 
NAME=MAXBUF,- ; 
SIZE=WORD, - ; 
TYPE=<SYS,DYNAMIC>,-  ; 
UNIT=Bytes, - 


VERS ION_MASK=<SYSGEN> 


Default buffer quota for Mailbox creation 


PARAMETER 


ADDRESS=IOCS$GW_MBXBF'QUO, - ; 
DEFAULT#1056,- ; 

MIN=256, - ; 

MAX=64000, - ; 

NAME=DEFMBXBUF QUO, - ; 
SIZE=WORD, - ; 

TYPE=<SYS, DYNAMIC>, - ; 
UNIT=Bytes, - 


VERS ION_MASK=<SYSGEN> 


Default maximum message size for Mailbox creation 


PARAMETER 


we 


ADDRESS=IOCS$GW_MBXMXMSG, - 
DEFAULT=256, - 
MIN=64, - 
MAX=64000, - 
NAME=DEFMBXMXMSG, ~- 
SIZE=WORD, - ; 
TYPE=<SYS, DYNAMIC>, - 
UNIT=Bytes, - 

VERSION eke einer 


~e Se Ye 
=e 


=e 


DESIRED FREE LIST LENGTH - SPECIFIES THE NUMBER OF FREE PAGES TO 


PARAMETER 


BE MAINTAINED AVAILABLE BY THE SWAPPER. 


ADDRESS=SGNSGL_FREELIM, - 
DEFAULT=32, - 

MIN=16,- 

NAME=FREELIM, - 
SIZE=LONG, - 

TYPE=<SYS, SYSGEN, MAJOR>, 
UNIT=Pages, - 

VERS ION_MASK#<SYSGEN> 


i] =e “se Neo Ve 
we 


=e 


Target free list length - specifies the number of free pages 


PARAMETER 


that the swapper will attempt to make available 
when correcting for free list < FREELIM. 


ADDRESS=SGNSGL_FREEGOAL, - ; 
DEFAULT=200, ~- 
MIN=16, ~ 
NAME=FREEGOAL, - 
SIZE=LONG, - 
TYPE=<SYS,MAJOR>, - 
UNIT=Pages,- 

VERSION MASK=<SYSGEN> 


Se Se Me Me Ne 


DESIRED FREE LIST LENGTH THAT MUST EXIST TO ALLOW PROCESSES 
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2679 ; TO GROW PAST WSQUOTA. 

2680 ; 

2681 PARAMETER ADDRESS=SCH$GL_GROWLIM, -; 

2682 DEFAULT=63, - ; 

2683 MIN=0, - ? 

2684 , NAME=GROWLIM, ~- ; 

2685 SIZE=LONG, - ? 

2686 TYPE=<SYS, DYNAMIC, MAJOR>, - ; 
2687 UNIT=Pages,- 

2688 VERSION_MASK=<SYSGEN> 

2689 ; 

2690 ; DESIRED FREE LIST LENGTH THAT MUST EXIST TO ALLOW PROCESSES 
2691 ; TO GROW PAST WSQUOTA. 

2692 ; 

2693 PARAMETER ADDRESS=SCH$GL_BORROWLIM, - ; 
2694 DEFAULT=300, - ; 

2695 MIN=O, - : 

2696 NAME=BORROWL IM, ~- ; 

2697 SIZE=LONG, - ? 

2698 TYPE=<SYS, DYNAMIC, MAJOR>, - ; 
2699 UNIT=Pages,- 

2700 3 _ - VERSION_MASK=<SYSGEN> 

2701 ; 

2702 ; NUMBER OF RETRIES TO PERFORM WHEN TRYING TO LOCK A MULTI-PROCESSOR 
2703 ; DATA STRUCTURE 

2704 ; 

2705 PARAMETER _ ADDRESS=EXES$GL_LOCKRTRY, - ? 
2706 DEFAULT=100000, - : 

2707 MIN=1, - ? 

2708 NAME=LOCKRETRY, - 2 

2709 SIZE=LONG, - ; 

2710 _ ‘TYPE=<SPECIAL, DYNAMIC>, -; 

2711 UNIT=Retries,- 

2712 VERSION _MASK=<SYSGEN> 

2713 ; 

2714 ; Maximum DR32 data rate 

2715 ; 

2716 PARAMETER ADDRESS=IOC$GW_XFMXRATE, - ; 
2717 . DEFAULT=236, - z 

2718 MIN=0, - ; 

2719 MAX=255, - ; 

2720 NAME=XFMAXRATE, - ; 

2721 SIZE=WORD, - ; 

2722 TYPE=<SYS, DYNAMIC>, - ; 

2723 UNIT=Special, - 

2724 VERSION _MASK=<SYSGEN> 

2725 3 

2726 ; Number of Unibus map registers to preallocate for LPA11 
2727 3; 

2728 PARAMETER ADDRESS=IOC$GW_LAMAPREG, - ? 
-2729 DEFAULT=0, - ? 

2730 MIN=0, - ; 

2731 MAX=255, - ? 

2732 NAME=LAMAPREGS , - ; 

2733 . SIZE=WORD, - ? 

2734 TYPE=<SYS, SYSGEN>, - ? 
2735 UNIT=Mapregs, - 
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2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 


2747 


2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 


=e Te 


~e Ne 


we Ve Se 


Se Me Ve 


ee Ce Ve 


Number of SPT entries 
connecting to devices 


PARAMETER 


VERSION_MASK=<SYSGEN> 


to preallocate for use by real time processes 
via the connect to interrupt driver. 


ADDRESS=EXES$GL_RTIMESPT, - 
DEFAULT#=0, - 

MIN=0, - 

NAME=REALTIME SPTS, - 
SIZE=LONG, - 


_ TYPE=<SYs, SYSGEN>, - 


UNIT=Pages,- 
VERSION_MASK=<SYSGEN> 


Number of pages created for command interpreter symbol table. 


PARAMETER 


ADDRESS=EXES$GL_CLITABL, - 
DEFAULT=250, - 

MIN=10,- 

MAX=500, - 

NAME=CLISYMTBL, - 
SIZE=LONG, - 
TYPE=<SYS, SYSGEN, DYNAMIC>, - 
UNIT=Pages,- 
VERSION_MASK=<SYSGEN> 


Initial size of lock id table (and growing increment) . 


PARAMETER 


ADDRESS=LCK$GL_IDTBLSIZ, - 
DEFAULT=200, - 

MIN=40, - 

MAX=262143,- 
NAME=LOCKIDTBL, ~ 
SIZE=LONG,- 

TYPE=<SYS, SYSGEN, MAJOR>, - 
UNIT=Entries,- 

VERS ION_MASK=<SYSGEN> 


Maximum size of lock id table. 


PARAMETER 


ADDRESS=LCK$GL_IDTBLMAX, - 
DEFAULT=65535, - 

MIN=200, - 

MAX=262143,- 
NAME=LOCKIDTBL_MAX, - 
SIZE=LONG, - 

TYPE=<SYS, SYSGEN, MAJOR, DYNAMIC>, ~ 
UNIT=Entries, - 

VERS ION_MASK=<SYSGEN> 
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2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2601 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2816 
2819 
2820 
28621 
2822 
2823 
2824 
2825 


- 2826 


2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 


3 


3 Size of resource hash table. 


3 


we te Xe 


we Me Ye 


me Ye Xe 


me Ye Ne 


PARAMETER — 


ADDRESS=LCKS$GL_HTBLSIZ, - 
DEFAULT=64, - 

MIN=1, baa 

MAX=8192,- 
NAME=RESHASHTBL, - 
SIZE=LONG, - 
TYPE=<SYS, SYSGEN, MAJOR>, - 
UNIT=Entries,- — 


_ VERSION _MASK=<SYSGEN> 


Deadlock detection timeout period 


PARAMETER 


SCS allocation counts 


PARAMETER 


ADDRESS=LCKS$GL_WAITTIME, - 
DEFAULT#10,- _— 
MIN=-0,- | 
NAME=DEADLOCK_WAIT, - 
SIZE=LONG, - 

TYPE=<SYS, DYNAMIC>, - 
UNIT=Seconds, - 
VERSION_MASK=<SYSGEN> 


- Buffer Descriptor Table entries | 


ADDRESS=SCS$GW_BDTCNT, - 


_ DEFAULT#=50, ~ 


SCS allocation counts 


PARAMETER 


SCS allocation counts 


MIN=0, - 

MAX=32767,- 
NAME=SCSBUFFCNT, - 
SIZE=WORD, ~- 
TYPE=<SYSGEN, SCS>, - 
UNIT=Ent ries, - 
VERSION MASK=<SYSGEN> 


- Connect Descriptor Table entries 


ADDRESS=SCS$GW_CDTCNT, - | 
DEFAULT=40,- . 

MIN=2, - . 

MAX=32767, - 
NAME=SCSCONNCNT, - 
SIZE=WORD, - 
TYPE=<SYSGEN, SCS>, - 
UNIT=Entries, - 

VERSION _MASK=<SYSGEN> 


- Response Descriptor Table entries 
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2850 
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2869 
2870 
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2872 
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2874 
2875 
2876 
2877 
2878 
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2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
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me Se Ve 


=e Ye Ne 


PARAMETER 


ADDRESS=SCS$GW_RDTCNT, - 
DEFAULT#=300, - 

MIN=@0, - 

MAX=32767,- 
NAME=SCSRESPCNT, -. 
SIZE=WORD, - 
TYPE=<SYSGEN, SCS>, - 
UNIT#=Entries,- 
VERSION _MASK=<SYSGEN> 


SCS maximum datagram size 


PARAMETER 


SCS maximum sequenced 


PARAMETER 


ADDRESS=SCSS$GW_MAXDG, - 
DEFAULT=576, - 

MIN=28, - 

MAX=985, - 
NAME=SCSMAXDG, ~ 
SIZE=WORD, - 
TYPE=<SYSGEN, SCS>, - 
UONIT=Bytes, - 

VERSION _MASK=<SYSGEN> 


message size 


ADDRESS=SCS$GW_MAXMSG, - 
DEFAULT#=132, - 

MIN=52, - 

MAX=985, - 
NAME=SCSMAXMSG, - 
SIZE=WORD, - 
TYPE=<SYSGEN, SCS>, - 
UNIT=Bytes, - 
VERSION_MASK=<SYSGEN> 


SCS flow control cushion 


PARAMETER 


SCS system id (unique 


PARAMETER 


ADDRESS=SCS$GW_FLOWCUSH, - 
DEFAULT=1, - 

MIN=0, - 

MAX=16, - 
NAME=SCSFLOWCUSH, - 
SIZE=WORD, - 

TYPE=<SCS, DYNAMIC>, - 
UNIT=Credits, - 
VERSION_MASK=<SYSGEN> 


48 bit number per system) 


ADDPRESS=SCS$GB_SYSTEMID, - 
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2907 
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2930 
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2952 
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2954 
2955 
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2957 
2958 
2959 
2960 
2961 
2962 
2963 


ee fe Ne 


ee Ye Fe 
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PARAMETER 


SCS system node name 


PARAMETER 


DEFAULT=0, - 
NAME=SCSSYSTEMID, - 
SIZE=LONG, - 
TYPE=<SYSGEN, SCS>, - 
UNIT=Pure-nunber, - 
VERSION_MASK=<SYSGEN> 


ADDRESS=SCS$GB_SYSTEMIDH, - 
DEFAULT=0, - 
NAME=SCSSYSTEMIDH, - 
SIZE=LONG, - 
TYPE=<SYSGEN, SCS>, - 
UNIT=Pure-number, - 

VERSION _MASK=<SYSGEN> 


ADDRESS=SCS$GB_NODENAME, - 
DEFAULT=<*A/ />,- 
MIN=<“*A/ />,- 
MAX=<*A/2Z222/>,- 
NAME=SCSNODE, - 
SIZE=QUAD, - 
TYPE=<ASCII, SYSGEN, SCS>, - 
UNIT#Ascii, - 

VERSION MASK=<SYSGEN> 


SCA process poller - polling interval 


PARAMETER 


CI port - timeout for 


PARAMETER 


ADDRESS=SCS$GW_PRCPOLINT, - 
DEFAULT#=30, - 

MIN=1,- 

MAX=32767,- 
NAME=PRCPOLINTERVAL, - 
SIZE=WORD, - 

TYPE=<SCS, DYNAMIC>, - 
UNIT=Seconds, - 
VERSION_MASK=<SYSGEN> 


START/STACK sequence, also basic driver wakeup interval 


ADDRESS=SCS$GW_PASTMOUT, ~ 
DEFAULT=5, - 

MIN=1, - 

MAX=99, - 

NAME=PASTIMOOT, - 
SIZE=WORD, - 

TYPE=<SCS, DYNAMIC>, - 
UNIT=Seconds, - 
VERSION_MASK=<SYSGEN> 
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2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 


2976 . 


2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
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me Ye Re 
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CI port - number of DG buffers to queue for START handshake 


PARAMETER 


ADDRESS=SCS$GW_PAPPDDG, ~ 
DEFAULT=4, - 

MIN=1, - 

MAX=16,- 
NAME=PASTDGBUF, - 
SIZE=WORD, ~- 

TYPE=<SCS>, - 
UNIT=Buffers, - 
VERSION_MASK=<SYSGEN> 


CI port - number of ports to poll each interval (for future expansion) 


PARAMETER 


ADDRESS=SCS$GB_PANPOLL, - 
DEFAULT#=16, - 

MIN=1,- 

MAX=223,- 
NAME=PANUMPOLL, ~- 
SIZE=BYTE, - 

TYPE=<SCS, DYNAMIC>, - 
UNIT=Ports,- 


VERSION_MASK=<SYSGEN> 


CI port - maximum port # to poll each interval (for future expansion) 


PARAMETER 


ADDRESS=SCS$GB_PAMXPORT, - 
DEFAULT=64, - 
MIN=0, - 
MAX=223,- 

NAME =P AMAXPORT, - 
SIZE=BYTE, - 

TYPE=<SCS, DYNAMIC>, - 
ONIT=Port-number,;, - 
VERSION _MASK=<SYSGEN> 


cI port - time between poll initiates 


PARAMETER 


ADDRESS=SCS$GW_PAPOLINT, - 
DEFAULT=5, - 

MIN=1, - 

MAX=32767,- | 
NAME=PAPOLLINTERVAL, - 
SIZE=WORD, - 

TYPE=<SCS, DYNAMIC>, - 
UNIT=Seconds, - 

VERSION _MASK=<SYSGEN> 


CI port - time between check for SYSAP’s waiting for pool 
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3021 ; 

3022 . — . 

3023 PARAMETER ADDRESS=SCS$GW_PAPOOLIN, ~- 
3024 ; : DEFAULT#15, - 

3025 .MIN=1,- 

3026 MAX=32767, - 

3027 . NAME=PAPOOLINTERVAL, ~- 
3028 SIZE=WORD, - 

3029 ; TYPE=<Sscs, DYNAMIC>, - 

3030 UNIT=Seconds, - 

3031 VERS ION_MASK=<SYSGEN> 
3032 

3033 ; 7 

3034 ; CI port - Flags including sanity timer enable/disable 
3035 ; 

3036 Bd 

3037 PARAMETER ADDRESS=SCS$GB _PASANITY, ~ 
3038 . DEFAULT#=1, - 

3039 .: MIN@20,- 

3040 . MAX=#1,- - 

3041 NAME=PASANITY, ~ 

3042 | SIZE=BYTE, - 

3043 TYPE=<SCS, DYNAMIC>, - 
3044 UNIT=Boolean, - 

3045 VERSION _MASK=<SYSGEN> 
3046 

3047 ; Se FS - 

3048 ; CI port - Flags including CI remote port polling enable/disable 
3049 ; a . 

3050 ; . 
3051 PARAMETER ADDRESS=SCS$GB_PANOPOLL, - 
3052 DEFAULT=0, - 

3053 MIN=0, - 

3054 MAX=1, - 

3055. NAME=PANOPOLL, - 

3056 SIZE=BYTE,- 

3057 TYPE=<SCS, DYNAMIC>, - 
3058 UNIT=Boolean,- 

3059 VERSION MASK=<SYSGEN> 
3060 

3061 ; . | 
3062 ; This is the start of the PEDRIVER reserved SYSGEN parameters. 
3063 ; 

3064 

3065 PARAMETER ADDRESS=SGNS$GL_PE1, - 
3066 DEFAULT=0, - 

3067 MIN=0, - 

3068 NAME=PE1, ~ 

3069 SIZE=LONG, - 

3070 TYPE=<SPECIAL, DYNAMIC>, - 
3071 VERSION _MASK=<SYSGEN> 
3072 : 

3073 PARAMETER ADDRESS=SGNS$GL_PE2, - 
3074 * DEFAULT=0, - 

3075 MIN=O, - 

3076 NAME=PE2, - 

3077 : SIZE=LONG, - 
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3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
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3090 
3091 
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3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 


we Se te Ye Ye 


™e Te Ye Ye Ye Ye Ye 


PARAMETER 


Time prompt timeout - this parameter sets the amount of time 
for the time of day to be entered when booting. 


TYPE=<SPECIAL, DYNAMIC>, - 
VERSION_MASK=<SYSGEN> 


ADDRESS=SGNS$GL_PE3, - 
DEFAULT=0, - 

MIN=0, - 

NAME=PE3 , - 

SIZE=LONG, - | 
TYPE=<SPECIAL, DYNAMIC>, - 
VERS ION_MASK=<SYSGEN> 


ADDRESS=SGNSGL_PE4,- 
DEFAULT=0, - 

MIN=0, - 

NAME=PE4,- 

SIZE=LONG, - 
TYPE=<SPECIAL, DYNAMIC>, - 
VERSION_MASK=<SYSGEN> 


ADDRESS=SGNSGL_PES,- 
DEFAULT=0, - 

MIN=0, - 

NAME=PES5,- 
SIZE=LONG, - 
TYPE=<SPECIAL>, - 
VERSION_MASK=<SYSGEN> 


ADDRESS=SGNS$GL_PE6, - 
DEFAULT=0, - 

MIN=0, ~ 

NAME=PE6, - 

SIZE=LONG, - 
TYPE=<SPECIAL>, - 
VERSION_MASK=<SYSGEN> 


of -1 gives the behavior of V2 and earlier. 


CLOCK_INTERVAL ~ Sets the number of microseconds between the hardware 
interval timer clock interrupts. 


PARAMETER 


ADDRESS=SGNS$GW_TPWAIT, - 
DEFAULT=-1, - 

MIN=0, - 
NAME=TIMEPROMPTWAIT, - 
SIZE=WORD, ~ 
TYPE=<SYS>,- 


UNIT=uFortnights, - 3 Close enough to seconds 


VERSION MASK=<SYSGEN> 


This parameter has no effect on processors that have 
implemented only the subset interval clock registers. 


ADDRESS=EXES$GW_CLKINT, - 


to wait 
The default value 


249 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SYSPARAM - SYSTEM PARAMETERS 10-MAY-1989 15:26:20 VAX MACRO V5.0-8 Page 59 
X-101018 SYSGEN PARAMETERS 6-APR-1989 10:16:35 [SYS.SRC]SYSPARAM.MAR;2 (1) 


3135 DEFAULT=10000, ~ 

3136 MIN=500, - 

3137 MAX=10000, - 

3138 NAME=CLOCK_INTERVAL, ~ 
3139 SIZE=WORD, - 

3140 TYPE=<SYS, SPECIAL>, - 

3141 ONIT=us, - 

3142 VERS ION_MASK=<SYSGEN> 
3143 

3144 ; 

3145 ; UDA port - UDABURSTRATE is one less than the maximum number of longwords 
3146 ; the host is willing to allow per NPR transfer. Zero implies 
3147 ; the port should use its own default. Both the port’s 
3148 ; default and the maximum the port will accept are Controller 
3149 ; dependent. . 

3150 ; 

3151 . : 
3152 PARAMETER ADDRESS=SCS$GB_UDABURST, - 
3153 DEFAULT=0, - 

3154 MIN=0,- 

3155 MAX=31, - 

3156 NAME=UDABURSTRATE, - 

3157 SIZE=BYTE, - 

3158 TYPE=<SYSGEN, SCS>, - 

3159 UNIT#=Longwords, - 

3160 VERSION _MASK=<SYSGEN> 
3161 

3162 

3163 ; 

3164 ; NOTE: The following two entries must be contiguous and in order!!!! 
3165 ; 

3166 ; Size of SYSTEM space logical name hash table. 
3167 ; 

3168 

3169 PARAMETER ADDRESS=LNMSGL_HTBLSIZ38, - 
3170 DEFAULT=128, - 

3171 MIN=1,- 

3172 : MAX=16383, - 

3173 NAME=LNMSHASHTBL, - 

3174 ; SIZE=LONG, - 

3175 TYPE=<SYS, SYSGEN>, - 

3176 UNIT=Entries, - 

3177 VERSION _MASK=<SYSGEN> 
3178 

3179 ; 

3180 ; Size of PROCESS space logical name hash table. 
3161 ; 

3182 

3183 PARAMETER ADDRESS=LNM$GL_HTBLSIZP, - 
3184 DEFAULT=128, - 

3185 MIN=1, - 

3186 MAX=16383, - 

3187 NAME=LNMPHASHTBL, - 

3188 = ' SIZE=LONG, - 

3189 . TYPE=<SYS, SYSGEN>, - 

3190 UNIT=Entries, - 

3191 VERSION_MASK=<SYSGEN> 


250 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SYSPARAM - SYSTEM PARAMETERS 10-MAY-1989 15:26:20 VAX MACRO V5.0-8 Page 60 
X-101018 SYSGEN PARAMETERS 6~APR-1989 10:18:35 [SYS.SRC])SYSPARAM.MAR;2 (1) 


3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 


3202: 


3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 


@e we 


<e 


EXE$GL_DEFFLAGS: : 


3214... 


3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 


=e = 6e 


=e 


3227 + 


3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 


me Ne 


~<@LONG - <1@EXESV_POOLPGING>- 


IF NOT_DEFINED VERSION 
-IF NOT_DEFINED GETSYISW 


PERMANENT DEFAULT SYSTEM FLAGS 


-ALIGN LONG 
IF NDF , PRMSW 


-ENDC 


ENABLE SYSTEM POOL PAGING 

SBI ERROR DETECTION — 
AUTOMATIC REBOOT ON BUGCHECK 
ENABLE CRD ERROR DETECTION 
SYSTEM DUMP ON BUGCHECK 

MAKE ALL BUGCHECKS FATAL 
ENABLE USE OF CONCEALED DEVICES 
Enable job controller queues 
SHARE F11ACP 


!<1@EXESV_SBIERR>- 
!<1@EXESV_BUGREBOOT>~ 
!<1@EXE$V_CRDENABL>- 
!<1@EXE$V_BUGDUMP>- 
!<1@EXESV_FATAL_BUG>- 
!<1@EXESV_CONCEALED>- 
!<1@EXESV_JOBQUEUES>- 
!<1@EXESV_SHRF11ACP> 


™e ye Se Ye VO Me te Me Ne Ne Ye Me Ne 


- ENDC + NOT_DEFINED GETSYISW 


. IF_FALSE 


DEFINE EXESGL_DEFFLAGS, - 
VERSION _MASK=<SYSGEN> 


~ENDC 3 Version 


BUGCHECK REBOOT - ENABLES AUTOMATIC REBOOT ON BUGCHECK 


-NLIST CND 

PARAMETER ADDRESS=EXES$GL_DEFFLAGS, - ? 
DEFAULT=1, - ; 
MAX=1, - ; 
“MIN=0, -. ; 
NAME=BUGREBOOT, ~-; 
BIT=EXESV_BUGREBOOT, - ; 
TYPE=<DYNAMIC, SYS>,- ; 
UNIT=Boolean, - 
VERSION_MASK=<SYSGEN> 

-LIST CND 


CRD ERROR ENABLE - ENABLES DETECTION AND LOGGING OF MEMORY CRD ERRORS) 


PARAMETER ADDRESS=EXES$GL_DEFFLAGS, - ; 

DEFAULT=1, - 
MAX=1, - 

~ MIN=0, - 
NAME=CRDENABLE, ~; 

- BIT=EXE$V_CRDENABL, -; 
TYPE=<SYS, SYSGEN>, -; 
UNIT=Boolean, - 
VERSION_MASK=<SYSGEN> 


Se Ne Ve 


BUGCHECK DUMP ENABLE - ENABLE SYSTEM DUMP ON BUGCHECK 
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3249 PARAMETER ADDRESS=EXESGL_DEFFLAGS, - ’ 
3250 DEFAULT=1, - : 

3251 MAX=1, - ; 

3252 MIN=0, - ; 

3253 NAME=DUMPBUG,- ; 

3254 BIT=EXE$V_BUGDUMP, - ’ 

3255 TYPE=<SYS>,- 

3256 UNIT=Boolean, - 

3257 VERSION _MASK=<SYSGEN> 

3258 ; 

3259 ; FATAL BUGCHECK - TURNS ALL CONTINUABLE BUGCHECKS INTO FATAL BUGCHECKS 
3260 ; : 

3261 PARAMETER ADDRESS=EXESGL_DEFFLAGS, - ; 
3262 DEFAULT=0, - ; 

3263 ; MAX=1,- ; 

3264 | MIN=0, - ; 

3265 NAME=BUGCHECKFATAL, -; 

3266 - re BIT#EXE$V_FATAL_BUG,- ; 

3267 TYPE=<SYS, DYNAMIC>, ~; 

3268 ONIT=Boolean, - 

3269 VERSION_MASK=<SYSGEN> 

3270 ; 

3271 ; MULTIPLE ACP - SPECIFIES THAT SEPARATE ACPS ARE TO BE CREATED FOR 
3272 3 EACH CLASS OF DISK. 

3273 

3274 PARAMETER ADDRESS=EXESGL_DEFFLAGS, -; 

3275 DEFAULT=0, - ; 

3276 MAX=1, - z 

3277 MIN=0, - ; 

3278 NAME=ACP_MULTIPLE, - ; 

3279 BIT#=EXE$V_MULTACP, - ; 

3280 TYPE=<ACP, DYNAMIC>, - ; 

3281 UNIT=Boolean,- 

3262 VERSION _MASK=<SYSGEN> 

3283 ; 

3284 ; AUTO CONFIGURATION INHIBIT - INHIBITS THE AUTOMATIC CONFIGURATION 
3285 ; OF DEVICES. 

3286 ; 

3287 PARAMETER ADDRESS=EXESGL_DEFFLAGS, -; 

3288 DEFAULT=0, - ; 

3289 MAX=1, - ; 

3290 MIN=0, - ; 

3291 NAME=NOAUTOCONFIG, - 

3292 . Lo BIT=EXE$V_NOAUTOCNF,- ; 

3293 TYPE=<SPECIAL, DYNAMIC>, -; 

3294 UNIT=Boolean, - 

3295 VERSION _MASK=<SYSGEN> 

3296 ; 

3297 ; NO CLOCK - INHIBITS VARIOUS TIME-RELATED FUNCTIONS 
3298 ; 

3299 PARAMETER ADDRESS=EXE$GL_TIME CONTROL,- ; 
3300 DEFAULT=0, - ; 

3301 MAX=-1,- ; 

3302 MIN=0, - ; 

3303 NAME=TIME_ CONTROL, - ; 

3304 TYPE=<SPECIAL, DYNAMIC>, - ; 
3305 UNIT=Bit-mask, - 
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3306 VERSION _MASK=<SYSGEN> 
3307 
3308 BREAKPOINTS - BITMASK WHICH ALLOWS WHICH HARDCODED 


we Te te Ye Ve 


3309 CALLERS OF THE INITIAL BREAKPOINT IN THE 
3310 EXECUTIVE ARE ALLOWED TO MAKE THAT CALL. 
3311 
3312 PARAMETER ADDRESS=SGNSGL_BRKMSK, - ; 
3313 DEFAULT=<BPTSM_INITBEGIN!~ ; 
3314 BPT$M_INITEND>, - ; 
3315 MAX==1, - ; 
3316 MIN=0, - ? 
3317 NAME=BREAKPOINTS, - : 
3318 TYPE=<SPECIAL>, - : 
3319 UNIT=Bitmask, - 
3320 VERSION_MASK=<SYSGEN> 
3321 ; 
- 3322 ; CLUSTERING INHIBIT - INHIBITS ALL PAGE READ CLUSTERING 
' 3323 ¢ ; 
3324 PARAMETER ADDRESS#EXESGL_DEFFLAGS, - ; 
3325 . .  DEFAULT=0, - ; 
3326 _. MAX=1,- ; 
3327 MIN=0, - ; . 
3328 NAME=NOCLUSTER, - : 
3329 BIT=EXESV_NOCLUSTER,- ; 
3330 TYPE=<SPECIAL>, - ; 
3331 UNIT=Boolean, - 
3332 VERSION_MASK=<SYSGEN> 
3333 ; 
3334 ; ENABLE PAGING OF PAGED DYNAMIC POOL 
3335 3 oe 
3336 PARAMETER ADDRESS=EXESGL_DEFFLAGS, - ; 
3337 DEFAULT=1, ~ ; 
3338 MAX=1, - : 
3339 . MIN=0, - ; 
3340 NAME=POOLPAGING, - ; 
3341 BIT=EXESV_POOLPGING,- ; 
3342 TYPE=<SPECIAL>, -; 
3343 UNIT=Boolean, - 
3344 VERSION_MASK=<SYSGEN> 
3345 ; 
3346 ; SBI ERROR DETECTION ENABLE 
3347 ; 
3348 PARAMETER ADDRESS=EXES$GL_DEFFLAGS, - ; 
3349 . DEFAULT=1, - ; 
3350 MAX=1, - ; 
3351 MIN=0, - ; 
3352 NAME=SBIERRENABLE, ~ : 
3353 BIT=EXE$V_SBIERR, - ; 
3354 . TYPE=<SPECIAL>, - ; 
3355 UNIT=Boolean, - 
335€ VERSION MASK=<SYSGEN> 
3257 ; ~ 
2I=B ; FORCE ENTRY OF TIME AT SYSTEM BOOT 
3259 ; 
3360 PARAMETER ADDRESS=EXESGL_DEFFLAGS, - ; 
33€1 DEFAULT=0, - ? 
3362 MAX=1, ~ 7 
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3363 MIN=0, - ; 

3364 NAME=SETTIME,- ; 

3365 | BIT=EXES$V_SETTIME, - ; 

3366 TYPE=<SYS, SYSGEN>, -; 

3367 UNIT=Boolean, - 

3368 VERSION MASK=<SYSGEN> 

3369 ; ld 

3370 ; ENABLE SHARING OF F11ACP 

3371 ; 

3372 PARAMETER ADDRESS#EXES$GL_DEFFLAGS, - ; 
3373 DEFAULT=1, - ; 

3374 MAX=1, - ; 

3375 MIN=0, - ; 

3376 NAME=ACP_ SHARE, -; 

3377 BIT=EXESV_SHRF11ACP, - 3 

3378 TYPE=<ACP>, -; 

3379 as ¢; UNIT=Boolean, - 

3380 VERS ION_MASK=<SYSGEN> 

3381 ; 

3382 ; SELECT ALTERNATE AUTHORIZATION FILE - CAUSES SYSINIT TO MAKE A LOGICAL 
3383 ; NAME REDIRECTING SYSUAF TO SYSUAFALT. 
3384 ; 

3385 PARAMETER ADDRESS=EXE$GL_DEFFLAGS, - ; 
3386 DEFAULT#=0, - : 

3387 MAX=1, - 3 

3388 MIN=O, - 2 

3389 NAME=UAFALTERNATE, - ; 

3390 BIT=EXESV_SYSUAFALT, - ; 

3391 TYPE=<SYS, SYSGEN>, - H 

3392 UNIT=Boolean,- 

3393 VERSION_MASK=<SYSGEN> 

3394 ; 

3395 ; LEAVE SYSTEM WRITABLE - FOR DEBUGGING PURPOSES LEAVES SYSTEM CODE 
3396 ; WRITABLE. 

3397 PARAMETER ADDRESS=EXESGL_DEF FLAGS, - - 
3398 DEFAULT=0, - z 

3399 MAX=1, - . ; 

3400 MIN=0, - ; 

3401 NAME=WRITABLESYS, -; 

3402 BIT=EXESV_SYSWRTABL, ~; 

3403 TYPE=<SPECIAL>, - ; 

3404 UNIT=Boolean, - 

3405 VERSION_MASK=<SYSGEN> 

3406 ; 

3407 ; 

3408 ; Enable resource allocation checking 

3409 ; 

3410 

3411 PARAMETER ADDRESS=EXESGL_DEFFLAGS, - ; 
3412 DEFAULT=0, ~ ; 
3413 MAX=1, - 2 
3414 MIN=0O, - ? 
3415 NAME=RESALLOC, - ; 
3416 BIT=EXESV_RESALLOC, ~ 7 
3417 TYPE=<SPECIAL>, - ; 
3418 UNIT=Boolean, - 

3419 VERSION_MASK=<SYSGEN> 
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3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 


we Ne Ye 


PARAMETER 


3430 


3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 


se Se Ne 


PARAMETER 


“=e ‘we 


=e Ye 


PARAMETER 


IF 
IF 


=e 


ve Se 


-ALIGN LONG 
NDF, PRMSW 
EXE$GL_DYNAMIC_FLAGS: : 


-IF 


-ENDC 
- LONG 


-ENDC 


SVIELD 


SET TO INHIBIT SYSTEM SERVICES ON A PER PROCESS BASIS 


ADDRESS*EXESGL_DEFFLAGS, - ? 
DEFAULT=0, - 
MAX=1 on 
MIN=0, - 
NAME#SSINHIBIT, -; 
BIT=EXESV _SSINHIBIT, -; 
TYPE=<SPECIAL>, - ; 
UNIT=Boolean, - 

VERS ION_MASK=<SYSGEN> 


ve Te 


ve 


RESET TO DISABLE THE USE OF CONCEALED DEVICES 


ADDRESS=EXES$GL_DEFFLAGS, - 
DEFAULT=1, - ; 
MAX=1, - ; 

MIN=0, - : 
NAME=CONCEAL_ DEVICES, -; 
BIT#EXESV | CONCEALED, -; 
TYPE=<SPECIAL>, - 
UNIT=Boolean,- 

VERSION MASK=<SYSGEN> 


=e 


me 


SAVEDUMP - IF THE DUMP IS IN THE PAGE FILE, SAVE IT UNTIL IT IS 


ANALYZED AND COPIED. 


=e 


ADDRESS=EXE$GL_DEFFLAGS, - 
DEFAULT=0, - 
MAX=1, - 
MIN=0, - 
NAME=SAVEDUOMP, - 
BIT=EXESV_SAVEDUMP, - ; 
TYPE=<SYS>,- 7 
UNIT=Boolean, - 

VERS ION_MASK=<SYSGEN> 


me Se Ye Ye 


NOT DEFINED VERSION 
NOT DEFINED GETSYISW 


DYNAMIC SYSTEM CONTROL FLAGS. 


ee Me Me 


Dynamic SYSGEN flags 


3; NDF, PRMSW 
<1@EXESV_WRITESYSPARAMS>! - 
<1@EXESV_| BRK_TERM>; 


a 


NOT | DEFINED GETSYISW 


EXE, 0, <~ ; DEFINITION FOR EXES$GL_DYNAMIC_FLAGS 

CLASS PROT, - 7 Do non-discretionary classification check 
WRITESYSPARAMS, - 3; Write the active parameters to the system 
BRK_TERM, - ? Associate on terminal in breakin detection 


CONFIDENTIAL AND PROPRIETARY | 
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3477 
34786 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 


~e Me Se Se Ye te 


@e Se Se Ye Ye Ye Ye 


BRK_DISUSER, - ? Disable user account on breakin 
NOPGFLSWP , - 7 Disallow swapping into page files 
> 
-IF_FALSE 


DEFINE EXES$GL DYNAMIC FLAGS, - 
VERSION MASK=<SYSGEN> 


DEFINE EXE$V_CLASS PROT, - 
VERSION_MASK=<SYSGEN> 


DEFINE EXESV_WRITESYSPARAMS, - 
VERSION_MASK=<SYSGEN> 


DEFINE EXES$V_BRK_TERM, - 
VERSION_MASK=<SYSGEN> 


DEFINE EXES$V_BRK_DISUSER, - 
VERSION_MASK=<SYSGEN> 


DEFINE EXESV_NOPGFLSWP, - 
VERSION_MASK=<SYSGEN> 


-ENDC 


CLASS PROT - 


PARAMETER 


Perform the non-discretionary classification 
checks. This also is looked at by the XQP to 
determine of a classification block should be 
added to the header of any created files. 


ADDRESS=#EXESGL_DYNAMIC_FLAGS,- ; 
DEFAULT=0, - 

MAX=1,- | 
MIN=0, - 
NAME=CLASS_PROT, -; 
BIT#EXESV_CLASS PROT, - 
TYPE=<DYNAMIC, SYS>, - 
UNIT=Boolean, - 
VERSION _MASK=<SYSGEN> 


~e Ne Ye 


-e %e 


WRITESYSPARAMS - Set by SYSBOOT if a USE DEFAULT, USE FILE, or a 


PARAMETER 


SET command is executed. Cleared if a USE CURRENT or 


‘WRITE CURRENT command is executed. If set STARTUP .COM 


will issue a WRITE CURRENT SYSGEN command. 


ADDRESS=EXE$GL_DYNAMIC_FLAGS,- ; 
DEFAULT=1, - 
MAX=1, - 
MIN=0, - 


Se Me Ne 


-NAME=WRITESYSPARAMS, ~; 


BIT=EXESV_WRITESYSPARAMS, ~; 
TYPE=<DYNAMIC, SPECIAL>, -; 
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3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3°85 
3586 
3587 
3588 
3589 
3590 


LGI_BRK_TERM - 


™e Te Ye Ye Te Ye 


PARAMETER 


LGI_BRK_DISUSER 


=e WO Ne Me Ne Ne 


PARAMETER 


UNIT=Boolean, - 
VERSION_MASK=<SYSGEN> 


Use the terminal name in the association string 
used in LOGIN’s breakin detection. If not set, 
breakin detection associates on username alone 

for terminal logins. 


ADDRESS=EXE$GL_DYNAMIC_FLAGS,- ; 
DEFAULT=1, - 
MAX=1, - 
MIN=0, - 
NAME=LGI_BRK_TERM, ~-; 
BIT=EXESV_BRK_TERM, -; 
TYPE=<DYNAMIC, LGI>, -; 
UNIT=Boolean, - 
VERSION_MASK=<SYSGEN> 


~e %e Ve 


- If enabled, set the DISUSER flag in the user’s 
UAF record if a breakin attempt is detected. 
This assures a permanent lockout of the user 
until re-enabled by the system manager. 


ADDRESS=EXESGL_DYNAMIC_FLAGS,- ; 


DEFAULT=0, - ; 
MAX=1, - fe 
MIN=0O, - ? 


NAME=LGI_BRK_DISUSER, -; 
BIT=EXE$V_BRK_DISUSER, -; 
TYPE=<DYNAMIC, LGI>, -; 


. UNIT=Boolean, - 


we Ye Ne 


VERSION_MASK=<SYSGEN> 


NOPGFLSWP - If set, disable swapping into pagefiles 


PARAMETER ADDRESS=EXESGL DYNAMIC FLAGS,- ; 
DEFAULT=0,- —; a 
MAX=1, - 3 
MIN=0, - 2 
NAME=NOPGFLSWP, -; 
BIT=EXES$V_NOPGFLSWP, -; 
TYPE=<DYNAMIC, SPECIAL>, ~; 
UNIT=Boolean, - 
VERSION MASK=<SYSGEN> 
IF NOT_DEFINED VERSION 
If NOT DEFINED GETSYISW 
3 STATIC SYSTEM CONTROL FLAGS. 
-ALIGN LONG ? 
.IF NDF, PRMSW ; 
EXES$GL_STATIC_FLAGS:: 7 Static SYSGEN flags 
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3591 -ENDC 7 NDF, PRMSW 

3592 -LONG <1@EXES$V_XOP_RESIDENT>!<1@EXE$V_REBLDSYSD> 

3593 -ENDC ; NOT DEFINED GETSYISW 

3594 

3595 SVIELD EXE, 0,<- ; DEFINITION FOR EXES$GL_STATIC_FLAGS 

3596 XQP_RESIDENT, ~ 3 MEMORY RESIDENT XOQP 

3597 REBLDSYSD, - 3 REBUILD SYSTEM DISK IN SYSMOUNT 

3598 SHADOWING, ~ 3 LOAD VOLUME SHADOWING CODE 

3599 SA_APP, - : Booting stand-alone application (SA- 
BACKUP 

3600 > 

3601 

3602 . IF_FALSE 

3603 

3604 DEFINE EXESGL_STATIC_FLAGS, - 

3605 VERSION MASK=<SYSGEN> 

3606 s 

3607 DEFINE EXESV XQP_RESIDENT, - 

3608 VERSION_MASK=<SYSGEN> 

3609 

3610 DEF INE EXESV_REBLDSYSD, - 

3611 VERSION MASK=<SYSGEN> 

3612 

3613 DEFINE EXES$V_SHADOWING, - 

3614 VERSION_MASK=<SYSGEN> 

3615 

3616 -ENDC 7 Version 

3617 

3618 

3619 SHADOWING - If set, use shadowing Disk Class Driver (DSDRIVER) 


me Ye Ye We 


3620 If clear, use regular Disk Class Driver (DUDRIVER) 
3621 

3622 PARAMETER ADDRESS*EXE$GL_STATIC_FLAGS, - 

3623 DEFAULT=0, - 

3624 MIN#0, - 

3625 MAX=1, - 

3626 NAME=SHADOWING, - 

3627 BIT=EXES$V_SHADOWING, - 

3628 TYPE=<SYS, STATIC>, - 

3629 UNIT=Boolean, - 

3630 VERSION_MASK=<SYSGEN> 

3631 

3632 ; 

3633 - PAGE 

3634 -SBTTL SYSTEM MESSAGE PARAMETERS 

3635 ; 

3636 ; DEFINE THE CONTROL BITS IN EXES$GL_MSGFLAGS 

3637 ; 

3638 iF NOT_ DEFINED VERSION 

3639 

3640 SGBLINI GLOBAL 

3641 SVIELD EXE,0,<- 

3642 MOUNTMSG, - ; ENABLE MOUNT NOTIFICATION 
3643 DISMOUMSG, - 3 ENABLE DISMOUNT NOTIFICATION 
3644 > 

3645 

3646 IF NOT_ DEFINED GETSYISW 

3647 ; 
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3648 


3649 ; 


3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 


3692. 


3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 


? DEFINE THE EXES$GL_MSGFLAGS LONGWORD AND ITS INITIAL VALUE. 


-ALIGN LONG 


; 
IF NDF, PRMSW F 

EXE$GL_MSGFLAGS: : ; 
-ENDC ; 
-LONG 0 


-ENDC ; NOT DEFINED GETSYISW 
. IF_FALSE 


DEFINE EXE$GL_MSGFLAGS, - 
VERSION_MASK=<SYSGEN> _ 


DEFINE EXE$V_MOUNTMSG, - 
VERSION _MASK=<SYSGEN> 


DEFINE EXES$V_DISMOUMSG, - 
VERSION_MASK=<SYSGEN> 


-ENDC 3; Version 


se Se 


MOUNTMSG - CONTROLS OPERATOR NOTIFICATION OF VOLUME MOUNTING 


Ve 


PARAMETER ADDRESS=EXESGL_MSGFLAGS, - 
DEFAULT=0, ~ 
MAX=1, - 
MIN=0, - 
NAME=MOUNTMSG, - 
BIT=EXE$V_MOUNTMSG, - z 
TYPE=<SYS, DYNAMIC>, - ; 
UNIT=Boolean,- 
VERSION_MASK=<SYSGEN> 


se 


we Ve Ne Ne 


DISMOUMSG - Controls operator notification of volume dismounting 


=e Ve 


PARAMETER ADDRESS=EXESGL_MSGFLAGS, - zo 
DEFAULT=0, - 
MAX=1, - 
MIN=0, ~ 
NAME=D ISMOUMSG, - 
BIT=EXE$V_DISMOUMSG, - 
TYPE=<SYS, DYNAMIC>, ~ 
UNIT=Boolean,- 
VERS ION_MASK=<SYSGEN> 


7e Me Ne 


ve 


-e 


- PAGE 
-SBTTL SYSTEM LOADABLE CODE PARAMETERS 


DEFINE THE CONTROL BITS IN SGN$GL_LOADFLAGS 


we Ne Ne 


.IF NOT_DEFINED VERSION 
$GBLINI GLOBAL 
SVIELD SGN,0,<- 
LOAD. SYS_IMAGES, - ; LOAD SYSTEM IMAGES 
> 
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3705 IF NOT_DEFINED GETSYISW 

3706 

3707 ; 

3708 ; DEFINE THE SGNS$GL_LOADFLAGS LONGWORD AND ITS INITIAL VALUE. 
3709 ; 

3710 -ALIGN LONG 2 

3711 iF NDF, PRMSW ; 

3712 SGN$GL_LOADFLAGS: : ; 

3713 -ENDC ? 

3714 
3715 - LONG <1@SGN$V_LOAD_SYS_IMAGES> ; ENABLE LOADING OF SYSTEM IMAGES 
3716 
3717 eENDC * NOT DEFINED GETSYISW 

3718 -IF_FALSE 

3719 

3720 DEFINE SGNS$GL_LOADFLAGS, - 

3721 VERSION _MASK=<SYSGEN> 

3722 

3723 DEFINE SGNSV_LOAD_SYS_IMAGES, - 

3724 VERSION |! MASK=<SYSGEN> 

3725 

3726 -ENDC 3 Version 

3727 

3728 

3729 ; 

3730 ; LOAD_SYS_IMAGES - CONTROLS LOADING SYSTEM IMAGES 
3731 ; 

3732 PARAMETER ADDRESS=SGNS$GL_LOADFLAGS, - 
3733 DEFAULT=1, - 

3734 MAX=1, - 

3735 MIN=W0, - 

3736 NAME=LOAD_SYS_IMAGES, - 

3737 BIT=SGNSV_; LOAD | SYs __ IMAGES, - 
3738 TYPE=<SPECIAL>, - 

3739 UNIT=Boolean, - 

3740 VERSION_MASK=<SYSGEN> 

3741 - PAGE 

3742 -SBTTL TERMINAL DRIVER. SYSTEM PARAMETERS 
3743 ; w 

3744 ; DIALUP SUPPORT CONTROL PARAMETERS 

3745 ; 

3746 ; DELTA TIME FOR DIALUP TIMER SCAN . 

3747 ; 

3748 PARAMETER ADDRESS=TTY$GL_DELTA,- ; 
3749 DEFAULT=<100000*100>,- ; 
3750 MIN=100000, - ; 
3751 NAME=TTY_ SCANDELTA, - 7 
3752 SIZE=LONG, - z 
3753 TYPE=<TTY>, - ; 
3754 UNIT=100Ns, - 

3755 VERSION MASK=<SYSGEN> 
3756 ; = 

3757 ; FLAGS FOR DIALUP 

3758 ; 

3759 ; BIT 0 is 0 => NORMAL, 1 => UNITED KINGDOM 
3760 ; BIT 1 SPECIFIES ALTERNATE MODEM PROTOCOL 
3761 ; 
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3762 PARAMETER ADDRESS=TTY$GB_DIALTYP, - ; 

3763 DEFAULT=0, - , 

3764 MIN=0,- ; 

3765 MAX=<*X0OFF>, - ; 

3766 NAME=TTY_ DIALTYPE, - ; 

3767 TYPE=<TTY>, - ; 

3768 SIZE=BYTE, - 3 

3769 UNIT=Bit-Encoded, - 

3770 _ VERS ION_MASK=<SYSGEN> 

3771 ; . 

3772 ; NOTE ALIGNMENT! 

3773 ; 

3774 ; TERMINAL CANONICAL CHARACTERISTICS 

3775 ; 

3776 ; 

3777 ; DEFAULT SPEED FOR TERMINALS 

3778 ; 

3779 PARAMETER ADDRESS=TTY$GB_DEFSPEED, -; DEFAULT SPEED FOR TERMINALS AND P 
3780 DEFAULT=TTS$C_BAUD _9600,-; 96C0O BAUD - NO PARITY 
3781 MIN=1, - 3 

3782 MAX=16, - ; 

3783 _ NAME=TTY_SPEED, - ; 

3784 SIZE=BYTE, - ; 

3785 TYPE=<TTY>, - ? 

3786 UNIT=Special, - ? TT$C_BAUD VALUES 

3787 VERSION _MASK=<SYSGEN> 

3788 ; 

3789 ; DEFAULT RECEIVE SPEED 

3790 ; 

3791 PARAMETER ADDRESS=TTY$GB_RSPEED,- ;THE RECEIVE SPEED FOR A TERMINAL 
3792 DEFAULT=0, - 7;USE THE DEFAULT SPEED . 
3793 MIN=0, - ; 

3794 MAX=16,-. ; 

3795 NAME=TTY_RSPEED, - ; 

3796 SIZE=BYTE, - ; 

3797 TYPE=<TTY>,- ; 

3798 UNIT=Special, - # TT$C_BAUD VALUES AND 0 
3799 VERS ION_MASK=<SYSGEN> 

3800 ; 

3801 ; DEFAULT PARITY 

3802 ; 

3803 PARAMETER ADDRESS=TTY$GB_PARITY,- ;THE PARITY OF THE TERMINALS 
3804 DEFAULT=24, - 7NO PARITY EIGHT BITS. 
3805 MIN=0, - ; 
3806 MAX=<“XOFF>, - : 

3807 NAME=TTY_ PARITY, - ; 

3808 SIZE=BYTE, - ; 

3809 TYPE=<TTY>, - : 

3810 UNIT=Special, - ? 

3811 VERSION_MASK=<SYSGEN> 

3812 ; 

3813 ; DEFAULT TERMINAL LINE WIDTH 

3814 ; 

3815 PARAMETER ADDRESS=TTY$GW_DEFBUF,- ; DEFAULT BUFFER SIZE 
3814 DFE FAULT=80, - ? 

3817 MIN=0, ~- ; 

3818 MAK=65535, - ; 
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3819 NAME=TTY BUF,- ; 

3820 SIZE=WORD, - ; 

3821 TYPE=<TTY>,- : 

3822 UNIT=Characters, - 

3823 VERSION _MASK=<SYSGEN> 

3824 ; 

3825 ; DEFAULT TERMINAL CHARACTERISTICS 

3826 ; : 
3827 PARAMETER ADDRESS=TTY$GL_DEFCHAR,-; DEFAULT CHARACTERISTICS 
3828 DEFAULT=<<24@TTSV_PAGE>+TT$M_TTSYNC+TT$M_WRAP+TTSM_LOWER+TT$M_SCOPE>, - 
3829 MIN=0, - ; 

3830 NAME=TTY_DEFCHAR, - : 

3831 SIZE=LONG, - : 

3832 TYPE=<TTY>, - : 

3833 UNIT=Bit~Encoded, - 

38634 VERSION MASK=<SYSGEN> 

3835 ; 

3836 ; Device characteristics second word. 

3837 ; 

3838 PARAMETER ADDRESS=TTY$GL_DEFCHAR2, ~; 

3839 DEFAULT=TT2$M_EDITING!TT2$M_ AUTOBAUD,-; SET AUTOBAUD FOR DEF 
3840 MIN=O, - 

3841 NAME=TTY_DEFCHAR2, - 

3842 SIZE=LONG, - 

3843 TYPE=<TTY>,- 

3844 UNIT=Bit-Encoded, - 

3845 VERSION_MASK=<SYSGEN> 

3846 

3847 ; 

3848 ; SIZE OF TYPEAHEAD BUFFER 

3849 ; 

3850 PARAMETER ADDRESS=TTY$GW_TYPAHDSZ, - z 
3851 DEFAULT=78, - ; 
3852 MIN=0, ~- z 
3853 NAME=TTY_TYPAHDSZ, - ; 
3854 SIZE=WORD, - 7 
3855 TYPE=<TTY>,- ; 
3856 UNIT=Bytes, - 

3857 VERSION_MASK=<SYSGEN> 

3858 ; 

3859 ; Alternate Typeahead size. 

3860 ; ; 

3861 PARAMETER ADDRESS=TTY$GW_ALTYPAHD, - ? 
3862 DEFAULT=200, - ; 
3863 MIN=0, - 

3864 MAX=<*X07FFF>, ~ ? 

3865 NAME=TTY_ALTYPAHD, - 

3866 SIZE=WORD, - 

3867 TYPE=<TTY>, - 

3868 UNIT=Bytes,- 

3869 VERSION_MASK=<SYSGEN> 

3870 ; 

3871 ; Alternate Typehaead buffer alarm size. 

3872 ; 

3873 PARAMETER ADDRESS=TTY$GW_ALTALARM, - ; 
3874 DEFAULT=64, - 7ASSUME WORST CASE 
3875 MIN=0, - 
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3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 


~7e Se Ne 


ze we Ne 


~e Ne Ne 


DMA size 


PARAMETER 


NAME=TTY ALTALARM, - 
SIZE=WORD, - 
TYPE=<TTY>, - 
UNIT=Bytes, - 
VERSION_MASK=<SYSGEN> 


ADDRESS=TTY$GW_DMASIZE, - 


DEFAULT=64, - 

MIN=0, - 
NAME=TTY_DMASIZE, - 
SIZE=WORD, - 
TYPE=<TTY, DYNAMIC>, - 
UNIT=Bytes, - | 
VERSION_MASK=<SYSGEN> 


DEFAULT TERMINAL ALLOCATION PROTECTION 


PARAMETER 


PARAMETER 


ADDRESS=TTY$GW_PROT, - 
DEFAULT=<“XOFFFO>, - 
MIN=0, - 

NAME=TTY PROT, - 
SIZE=WORD, - 
TYPE=<TTY>,- 
UNIT=Protection, - 
VERSION _MASK=<SYSGEN> 


ADDRESS=TTY$GL_OWNUIC, - 
DEFAULT=<*X00010004>, - 
MIN=0, - 
NAME=TTY_OWNER, - 
SIZE=LONG, - 

TYPE=<TTY>- 

UNIT=UIC, - 
VERSION_MASK=<SYSGEN> 


DEFAULT TERMINAL CLASS NAME PREFIX 


PARAMETER 


ADDRESS=TTY$GW_CLASSNAM, - 


DEFAULT=<“A/TT/>, - 
MIN=<“*A/AAAA/>, - 
MAX=<“A/Z222/>,- 
NAME=TTY_CLASSNAME, - 
SIZE=WORD, - 
TYPE=<ASCII, TTY>,- 
UNIT=Ascii,- 
VERSION_MASK=<SYSGEN> 


DEFAULT SILO TIMEOUT VALUE FOR DMF32 


PARAMETER 


ADDRESS=TTY$GB_SILOTIME, 


DEFAULT=8, - 
MIN=0, - 
MAX=255, - 
NAME=TTY_SILOTIME, - 


me Ve Veo 


me Ye Se Ye Yo Ve 


we 


PROTECTION CLASSES 
SYSTEM ONLY 


=e Se Be Ve Be Ve 


=e 


OWNER UIC 
SYSTEM OWNER 


™e te Se Ye Ye Yo Ye 


we 
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3933 
3934 
3935 
3936 
3937 
3938 
-3939 
3940 
3941 
3942 


3943, 


3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 


se Se Ge 


we Ce te 


@e Ye Ye 


te Ne Ye We 


we Ye Vo 


=e 


SIZE=BYTE, - 
TYPE=<TTY>, - 
UNIT=Ms, - 

VERSION _MASK=<SYSGEN> 


Se Ye 


DISCONNECTED VIRTUAL TERMINAL TIMEOUT. 


PARAMETER ADDRESS=TTY$GL_TIMEOUT, - 


DEFAULT=60*15, — , 15 minute default 


MIN=0, - 

NAME=T'TY _prmeour, - ? 
SIZE=LONG, - ; 
TYPE=<TTY, DYNAMIC>, ~ 3 
UNIT=Seconds, ~ 
VERSION_MASK=<SYSGEN> 


AUTOBAUD RATE RECOGNITION CHARACTER 


PARAMETER ADDRESS=TTY$GB_AUTOCHAR, - 
DEFAULT#=7, - ; 
MIN=0, - ; 
MAX=#255,- ; 
NAME=TTY_AUTOCHAR, - ? 
SIZE=BYTE, ~ ? 
TYPE=<TTY, DYNAMIC>, - ? 
UNIT=Character,- 
VERSION 1 MASK=<SYSGEN> 


default port functions. 


PARAMETER ADDRESS=TTY$GL_DEF PORT, -; 
DEFAULT=0, - 
MIN=0, - 
NAME=TTY_DEFPORT- 
SIZE=LONG, - 
TYPE=<TTY, SPECIAL>, - 
UNIT=Bit-Encoded, - 
VERSION_MASK=<SYSGEN> 


me te Ye Ne 


END OF TERMINAL SYSTEM PARAMETERS 


- PAGE 


. eSBTTL RMS DEFAULT PARAMETERS 


RMS DEFAULT PARAMETERS 


PARAMETER ADDRESS=SYS$GB_DFMBC,- ; 


Default is “G (Bell) 


DEFAULT PORT CHARACTERISTICS 


DEFAULT=16, ~ 3 DEFAULT MULTI-BLOCK COUNT 


MIN=1,- 

MAX=127, ~ 
NAME=RMS_DFMBC, ~ 
SIZE=BYTE, ~ 
TYPE=<RMS, DYNAMIC>, - 
UNIT=Blocks, ~- 

VERSION _MASK=<SYSGEN> 


we Ve Ye Ye Ve 
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3 DEFAULT MOLTI-BUFFER COUNT FOR SEQUENTIAL . DISK 


3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
- 4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 


3 


=e Ve Ve 


we Ye Ne 


we Ne Ye 


=e Me fe 


PARAMETER 
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ADDRESS=SYS$GB_DFMBFSDK, - 
DEFAULT#=0, - ; 
MIN=0, - 

MAX=127,=- 


SIZE=BYTE, - 
TYPE=<RMS, DYNAMIC>, - 
UNIT=Blocks, - 
VERSION_MASK=<SYSGEN> 


; 
; 
-NAME=RMS_DFMBFSDK, - 3 
3 
; 


DEFAULT MULTI BUFFER COUNT FOR MAGTAPE 


PARAMETER 


DEFAULT MULTI-BUFFER COUNT FOR UNIT RECORD DEVICES. 


PARAMETER 


ADDRESS=SYS$GB_DFMBFSMT, 
DEFAULT=0, - 
MIN=0, - 

MAX=127,- 
NAME=RMS_DFMBFSMT, - 
SIZE=BYTE, - 

TYPE=<RMS, DYNAMIC>, - 
UNIT=Blocks, - 
VERSION_MASK=<SYSGEN> 


Se Me Se Ne Re Be t 


ADDRESS=SYS$GB_DFMBFSUR, - 
DEFAULT=0, - 

MIN=0, - 

MAX=127,- 
NAME=RMS_DFMBFSOR, - 
SIZE=BYTE, - 
TYPE=<RMS, DYNAMIC>, - 
UNIT=Buffers, - 
VERSION_MASK=<SYSGEN> 


we Ye Me Me Ne Ye 


DEFAULT MULTI-BUFFER COUNT FOR RELATIVE FILES 


PARAMETER 


ADDRESS=SYS$GB_DFMBFREL, - 
DEFAULT=0, - 

MIN=0, - 

MAX=127,- 
NAME=RMS_DFMBFREL, - 
SIZE=BYTE, - 
TYPE=<RMS, DYNAMIC>, - 
UNIT=Buffers,- 
VERSION _MASK=<SYSGEN> 


DEFAULT MULTI-BUFFER COUNT INDEXED FILES 


PARAMETER 


ADDRESS=SYS$GB_DFMBFIDX, 
DEFAULT=0, - 

MIN=0, - 

MAX=127, ~ 
NAME=RMS_DFMBF IDX, - 
SIZE=BYTE, - 

TYPZ=<RMS, DYNAMIC>, - 


se Ne Se Ne 


ve 


ve 


7e Se Me Me Ne Me 


we 


e 
g 


we 


ve 
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4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
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Se “oe Se 


=e Ye Ve 


=e te Ye 


me Ne Ve 


ze 


UNIT=Buffers, - 
VERSION_MASK=<SYSGEN> 


DEFAULT MULTI-BUFFER COUNT HASHED 


PARAMETER 


Default rms Prologue 


PARAMETER 


ADDRESS=SYS$GB_DFMBFHSH, - 
DEFAULT=0, - ; 
MIN=0, - ; 
MAX=127, - ; 
NAME=RMS_DFMBFHSH, - ; 
SIZE=BYTE, - ? 
TYPE=<RMS, DYNAMIC>, - ; 
ONIT=Buffers, - 
VERSION_MASK=<SYSGEN> 


ADDRESS = SYS$GB_RMSPROLOG, ~ 


me 


DEFAULT = 0,- ? 0, 2 and 3 are valid, only 


MIN = 0,- 

MAX = 3,- 

NAME = RMS PROLOGUE, - 
SIZE = BYTE,- 

TYPE = <RMS,DYNAMIC>, - 
UNIT = Prolog-Lvl,- 
VERSION _MASK=<SYSGEN> 


Default file extend quantity 


PARAMETER 


ADDRESS = SYS$GW_RMSEXTEND, - 


DEFAULT = 0,- 

MIN = 0,- 

MAX = 65535,- 

NAME = RMS EXTEND SIZE, ~ 
SIZE = WORD, - 

TYPE = <RMS,DYNAMIC>, - 
UNIT = Blocks,- 
VERSION_MASK=<SYSGEN> 


Default file protection 


PARAMETER 


ADDRESS = SYSS$GW_FILEPROT, - 
DEFAULT = <*XFAO0O>, - 

MIN = 0,- 

MAX = <“XFFFF>, - 


NAME = RMS FILEPROT, - 
SIZE = WORD, - 
TYPE = RMS, - 


UNIT = Prot-mask, - 
VERSION _MASK=<SYSGEN> 


Global buffer quota - This parameter determines the maximum number 
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4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4139 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 


} ef global buffers that may be in use in the system at any one time. 


° 
a 


=e Fe Me Ve Me 


=e 


~e Se Ne 


se 


PARAMETER ADDRESS=SYS$GW_GBLBUFQUO, - 


DEFAULT#=1024, - 
MIN=0, - 

MAX=32767, = 
SIZE=WORD, - 
NAME=RMS_GBLBUFQUO, - 
TYPE=<RMS, DYNAMIC>, - 
UNIT=<Gbl bufs>,- 
VERSION_MASK=<SYSGEN> 


Network block count - This parameter determines the number 

of blocks to use for RMS DAP network record-mode transfers. 
This parameter determines the maximum record size that can be 
sent over the network. 


PARAMETER ADDRESS=SYS$GB_DFNBC, - 


-IF 


IF 
- ALIGN 
-ENDC 


DEFAULT=8, - 

MIN=1, - 

MAX®127,- 

SIZE=BYTE, - 
NAME=RMS_DFNBC, - 
TYPE=<RMS, DYNAMIC>, - 
UNIT=<Blocks>, - 
VERSION_MASK=<SYSGEN> 


NOT_ DEFINED GETSYISW 


NOT_DEFINED, VERSION 
LONG 


END OF RMS DEFAULT PARAMETERS 


- PAGE 
-SBTTL 
o=.—4 
DEFINE 


-=.+4 
-BLKL 
-=.~4 
DEFINE 


~=.+4 
-BLKL 
-=.-1 
DEFINE 


=.41 
.BLKB 


-ENDC 


PROCESS QUOTA DEFAULTS AND MINIMA 


we Xe 


POQLSAL_DEFAULT, - 
VERSION MASK=<SYSGEN> 


POL$ LENGTH 


me Se Ye Ve 


POLSAL MIN, - 
VERSION MASK=<SYSGEN> 


PQL$_LENGTH 


=e Ye Ne Ve 


PQLSAB_FLAG, - 
VERSION_MASK=<SYSGEN> 


se Se 


PQLS LENGTH 


; NOT DEFINED GETSYISW 
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DEFINE PROCESS QUOTA DEFAULTS AND MINIMA 


4161 ; 


4162 ; 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 


PQL 


PQL 


POL 


POL 


PQL 


POL 


PQL 


PQL 


PQL 


ASTLM, - ; 
DEFLT=24, - ; 
MINIM=4 , - ; 
UNT=Ast,, - ; 
PQL VERSION MASK=<SYSGEN> 
BIOLM, - 
DEFLT=18, - 
MINIM=4 , - 
UNT=I/0, - 
PQL VERSION _MASK=<SYSGEN> 


se te Ye 


BYTLM, - 


DEFLT=8192, - ; 
FLAG=DEDUCTIBLE, - Hi 
MINIM=1024, - 2 

UNT=Bytes, - 2 


PQL VERSION MASK=<SYSGEN> 


CPULM, - ; 
DEFLT=0, - ; 
FLAG=DEDUCTIBLE, - ; 
MINIM=0, - ; 
UNT=10Ms,- ; 
PQL VERSION MASK=<SYSGEN> 


DIOLM, - 

DEFLT=18, - 
MINIM=4, - 
UNT=1/0,- 
PQL VERSION MASK=<SYSGEN> 


me Ne Se 


FILLM, - : 
DEFLT=16, ~ ? 
FLAG=DEDUCTIBLE, - ; 
MINIM=2, - ; 
UNT=Files, - A 
PQL VERSION _MASK=<SYSGEN> 


PGFLQUOTA, - ; 
DEFLT=8192, - ; 
FLAG=DEDUCTIBLE, - ; 
MINIM=512,- ; 
UNT=Pages,- — ; 
PQL VERSION_MASK=<SYSGEN> 


PRCLM, - 

DEFLT=8, - 
FLAG=DEDUCTIBLE, - 
MINIM=0, - 

UNT=P rocesses, - 
PQL VERSION MASK=<SYSGEN> 


=e Ye Yo Xe 


TQELM, - ; 


AST LIMIT 


BUFFERED I/O LIMIT 


"oe 


BUFFERED I/O BYTE COUNT LIMIT 


CPU TIME LIMIT 


DIRECT I/O LIMIT 


=e 


‘OPEN FILE LIMIT 


PAGING FILE QUOTA 


SUB-PROCESS LIMIT 


TIMER QUEUE ENTRY LIMIT 
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4218 DEFLT=8, - ; 

4219 FLAG=DEDUCTIBLE, - , 

4220 MINIM=0,- ; 

4221 UNT=Timers, - 

4222 PQL VERSION _MASK=<SYSGEN> 

4223 , 

4224 POL WSDEFAULT, - 3 WORKING SET DEFAULT SIZE 
4225 DEFLT=100, - ; 

4226 MINIM=60, - ; 

4227 UNT=P ages, - ; 

4228 DYNAMIC_FLAG#STATIC, - 

4229 PQL VERSION MASK=<SYSGEN> 

4230 

4231 ; 

4232 ; DEFAULT WORKING SET SIZE - SIZE OF SHELL WORKING SET 
4233 ; 

4234 IF NOT _DEFINED GETSYISW 

4235 IF NDF, PRMSW 7 

4236 IF NOT_DEFINED VERSION 

4237 SGN$GL_DFWSCNT==PQLSGDWSDEFAULT 3 SYNONYM 

4238 IF_FALSE 

4239 

4240 DEFINE SGNSGL_DFWSCNT, - 

4241 VERSION_MASK=<SYSGEN> 

4242 

4243 -ENDC ; 

4244 -ENDC : 

4245 -ENDC + NOT_DEFINED GETSYIS 

4246 POL WSQUOTA, - 7 WORKING SET QUOTA 
4247 DEFLT=200, - , : 

4248 MINIM=60, - : 

4249 UNT=Pages, - : 

4250 PQL VERSION _MASK=<SYSGEN> 

4251 

4252 PQL WSEXTENT, - 3 WORKING SET EXTENT 
4253 DEFLT=400, - ; 

4254 MINIM=60, - 2 

4255 UNT=P ages, - ; 

4256 PQL VERSION MASK=<SYSGEN> 

4257 

4258 POL ENQLM, - ? ENQUEVE LIMIT 
4259 DEFLT=30, - ? 

4260 FLAG=DEDUCTIBLE, - ? 

4261 MINIM=4, - ? 

4262 UNT=Locks, - ;? 

4263 PQL VERSION _MASK=<SYSGEN> 

4264 

4265 PQL JTQUOTA, ~ 3; JOB-WIDE LOGICAL NAME TABLE QUOTA 
4266 DEFLT=1024, - ; 

4267 MINIM=0, - 3 

4268 UNT=Bytes, - ; 

4269 PQL VERSION _MASK=<SYSGEN> 

4270 

4271 .» PAGE 

4272 -SBTTL FILE ACP CONFIGURATION DATA 

4273 

4274 3+ 
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4275 ; 

4276 ; File ACP configuration data. These parameters are used whenever an ACP is 
4277 ; started up (or, in the case of per volume data, when a volume is mounted). 
4278 ; 

4279 ;- 

4280 

4281 ; 

4282 ; Number of blocks in bitmap cache. 

4283 ; 

4284 PARAMETER ADDRESS=ACPS$GW_MAPCACHE, - ; 
4285 DEFAULT#=8, - ; 

4286 MIN=1, - ; 

4287 NAME=ACP _MAPCACHE, - ; 

4288 SIZE=WORD, - ; 

4289 TYPE=<ACP, DYNAMIC>, - ; 

4290 UNIT=Pages, - ; 

4291 VERSION _MASK=<SYSGEN> 

4292 ; 

4293 ; Number of blocks in file header cache. 

4294 ; 

4295 PARAMETER ADDRESS#ACP$GW_HDRCACHE, ~ ; 
4296 DEFAULT=32, - ; 

4297 MIN=3, ~- ? 

4298 NAME=ACP_HDRCACHE, ~ ; 

4299 SIZE=WORD, ~- ; 

4300 TYPE=<ACP, DYNAMIC>, - ; 

4301 UNIT=Pages, - ; 

4302 VERSION _MASK=<SYSGEN> 

4303 ; 

4304 ; Number of blocks in file system directory data block cache. 
4305 ; 

4306 PARAMETER ADDRESS=ACPS$GW_DIRCACHE, - ? 
4307 DEFAULT=20, - ; 

4308 MIN=2, - ; 

4309 NAME=ACP_DIRCACHE, - ; 

4310 SIZE=WORD, - ; 

4311 TYPE=<ACP, DYNAMIC>, - 3 

4312 UNIT=Pages, - ; 

4313 VERSION |! MASK=<SYSGEN> 

4314 ; 

4315 ; Number of pages in file system directory index cache. 
4316 ; 

4317 PARAMETER ADDRESS=ACP$GW_DINDXCACHE, - ; 
4318 DEFAULT=25, - ; 

4319 MIN=2, - ; 

4320 NAME=ACP _DINDXCACHE, - ; 

4321 SIZE=WORD, - ; 

4322 TYPE=<ACP, DYNAMIC>, - : 

4323 UNIT=Pages, - ; 

4324 VERSION |! MASK=<SYSGEN> 

4325 ; 

4326 ; ACP working set in pages (0 means maximal) 

4327 ; 

4328 PARAMETER ADDRESS=ACP$GW_WORKSET, - ; 
4329 DEFAULT=0, - ; 

4330 MIN=0O, - ; 

4331 NAME=ACP_WORKSET, - ; 
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4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4388 


=e te Fe 


Se Ye Ye 


=e Ne Se 


se Ne 


“e 


me Me Ye 


SIZE=WORD, - ; 
TYPE=<ACP, DYNAMIC>, = 
UNIT=Pages,- ? 
VERSION _MASK=<SYSGEN> 


The following parameters are applied on a per 


Number of cached index file slots 
PARAMETER ADDRESS=ACP$GW_FIDCACHE, 
DEFAULT=64, - 
MIN=0, - 
NAME=ACP_FIDCACHE, - 
SIZE=WORD, ~ ; 
TYPE=<ACP, DYNAMIC>, - 
UNIT=File-Ids,- ; 
VERSION_MASK=<SYSGEN> 


se Ve 


Number of cached disk extents 
PARAMETER ADDRESS=ACP$GW_EXTCACHE, 
DEFAULT=64, - ; 
MIN=0, - 7 
NAME=ACP_EXTCACHE, - 
SIZE=WORD, - ? 
TYPE=<ACP, DYNAMIC>, - 


UNIT=Extents,- ; 
VERSION_MASK=<SYSGEN> 


; 


volume basis. 


7 


ve 


we 


q 
we 


7 


™e 


Maximum fraction of disk to cache in tenths of percent 


PARAMETER ADDRESS=ACP$GW_EXTLIMIT, 
DEFAULT=100, - 
MIN=0, - 
MAX=1000, - 
NAME=ACP_EXTLIMIT, - 
SIZE=WORD, - : 
TYPE=<ACP, DYNAMIC>, - 
UNIT=<Percent/10>, - 
VERS ION_MASK=<SYSGEN> 


=e Se Ne 


Number of quota file entries to cache 


PARAMETER 
DEFAULT=64, - 
MIN=O, - 
MAX=-1, - 
NAME=ACP_QUOCACHE, ~ 
SIZE=WORD, ~ 
TYPE=<ACP, DYNAMIC>, - 
UNIT=Users,- 
VERSION _MASK=<SYSGEN> 


Default access for system volumes 


2 
e 


=e 


-e Ye 


ADDRESS=ACP$GW_QUOCACHE, - 
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4389 PARAMETER ADDRESS=ACP$GW_SYSACC, - : 
4390 DEFAULT=8, - ; 

4391 MIN=#0, - 3 

4392 NAME=ACP_SYSACC, - 2 
4393 SIZE=@WORD, - : 
4394 _ YYPE=<ACP, DYNAMIC>, - ; 
4395 UNIT=Directories,- 

4396 VERSION_MASK=<SYSGEN> 
4397 3; 

4398 ; Maximum number of blocks to read at once for directories. 
4399 ; 

4400 PARAMETER ADDRESS=ACPS$GB_MAXREAD, - ? 
4401 DEFAULT#=32,- 3 

4402 MIN=1,- , 

4403 MAX=64, - ; 

4404 NAME@ACP_MAXREAD, - ; 
4405 SIZE=BYTE, - : 

4406 TYPE=<ACP, DYNAMIC>, - : 
4407 UNIT=Blocks, - 3 

4408 VERSION_MASK=<SYSGEN> 
4409 ; 

4410 ; Default window size for system volumes. 

4411 ; 

4412 PARAMETER ADDRESS=ACP$GB_WINDOW, - Z 
4413 DEFAULT#=7, - ? 

4414 MIN=#1,- : 

4415 -NAME=ACP_WINDOW, - ; 
4416 SIZE=BYTE, - 3 

4417 - TYPE=<ACP, DYNAMIC>, - ? 
4418 UNIT=Pointers,- ; 

4419 ‘VERSION MASK=<SYSGEN> 
4420 ; 

4421 ; Deferred cache writeback enable. 

4422 ; 

4423 PARAMETER ADDRESS=ACP$GB_WRITBACK, - 
4424 DEFAULT=1, - 

4425 MIN=0, - 

4426 MAX=1, - 

4427 _. NAME=ACP_WRITEBACK, - 
4428 SIZE=BYTE, - 

4429 TYPE=<ACP, DYNAMIC>, - 
4430 UNIT=Boolean, - 

4431 VERSION _MASK=<SYSGEN> 
4432 ; 

4433 ; ACP datacheck enable flags. 

4434 ; 

4435 PARAMETER ADDRESS=ACP$GB_DATACHK, - 
4436 DEFAULT=2, - 

4437 MIN=0, - 

4438 MAX=3, - 

4439 NAME=ACP DATACHECK, ~ 
4440 SIZE=BYTE, - 

4441 TYPE=<ACP, DYNAMIC>, - 
4442 UNIT=Bit-mask, - 

4443 VERSION _MASK=<SYSGEN> 
4444 ; 

4445 ; Containing the following flags: 
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4446 ; 


4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 


™e Ye Ye Ne Ne Ye 


we Ye Ye 


IF NOT_DEFINED VERSION 


IF NDF, PRMSW 3 Only for exec version of sysparam 


SGBLINI GLOBAL 
SVIELD ACP,0,<- 


<READCHK>= 3 do datachecks on reads 
<WRITECHK>- 3 do datachecks on writes 
> 

eENDC 

-IF_FALSE 


DEFINE ACPS$V_READCHK, - 
VERSION MASK=<SYSGEN> 


DEFINE ACPS$V_WRITECHK, - 
VERSION _MASK=<SYSGEN> 


-ENDC ; 


The following parameters apply per ACP. 


ACP base priority 


PARAMETER ADDRESS=ACPS$GB_BASEPRIO, - 
DEFAULT=8, - ; 
MIN=4, - : 
MAX=31, - ; 
NAME=ACP_BASEPRIO, - ; 
SIZE=BYTE, - : 
TYPE=<ACP, DYNAMIC>, - ; 
UNIT=Priority, - 


VERSION MASK=<SYSGEN> 


ACP Swap flags 


PARAMETER ADDRESS=ACPSGB | SWAPFLGS, - 
DEFAULT=<“*B1111>, - 3% 
MIN=0, - ; 
MAX=15, - ? 
NAME=ACP _SWAPFLGS, - 
SIZE=BYTE, - 3 
TYPE=<ACP, DYNAMIC>- 
UNIT=Bit-mask, - 
VERSION _MASK=<SYSGEN> 


=e 


=e 


™e 


se 


3 swappable, as follows: 


IF NOT_DEFINED VERSION 
IF NDF, PRMSW 

S$GBLINI GLOBAL 

S$VIELD ACP,0,<- 


ee 


Only for exec version of sysparam 


<SWAPSYS>- 3; /SYSTEM 
<SWAPGRP>- 3; /GROUP 
<SWAPPRV>-~- ? other (private mount) 
<SWAPMAG>- 7 magtape 
> 
-ENDC 
. IF_FALSE 
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4503 

4504 DEFINE ACPS$V_SWAPSYS,- 

4505 VERSION_MASK=<SYSGEN> 

4506 

4507 DEFINE ACPS$V_SWAPGRP, - 

4508 VERSION MASK=<SYSGEN> 

4509 = 

4510 DEFINE ACPS$V_SWAPPRV, - 

4511 VERSION _MASK=<SYSGEN> 

4512 

4513 DEFINE ACPS$V_SWAPMAG, - 

4514 VERSION MASK=<SYSGEN> 

4515 ~ 

4516 -ENDC ; 

4517 ; 

4518 ; XQP memory resident control flag 

4519 ; 

4520 PARAMETER ADDRESS=EXES$GL_STATIC_FLAGS, - 
4521 DEFAULT=1, - 

4522 MIN=O, - 

4523 MAX=1, - 

4524 NAME=ACP_XOQP_ RES, - 

4525 BIT=EXESV_XQP_RESIDENT, - 
4526 TYPE=<ACP, STATIC>, - 
4527 UONIT=Boolean,- 

4528 VERSION_MASK=<SYSGEN> 
4529 ; 

4530 ; System disk rebuild flag. 

4531 ; 

4532 PARAMETER ADDRESS#=EXE$GL_STATIC_FLAGS, - 
4533 DEFAULT=1, - 

4534 MIN=0, - 

4535 MAX=1, - 

4536 NAME=ACP_REBLDSYSD, - 
4537 BIT#=EXES$V_REBLDSYSD, - 
4538 TYPE=<ACP, STATIC>, - 
4539 UNIT=Boolean,- 

4540 VERSION_MASK=<SYSGEN> 
4541 

4542 ; 

4543 ; Stand-alone application boot flag. 

4544 ; 

4545 PARAMETER ADDRESS*EXE$GL_STATIC_FLAGS, - 
4546 DEFAULT=0, - 

4547 MIN=0, - 

4548 MAX=1, - 

4549 ; NAME=SA_APP, - 

4550 BIT=EXESV_SA_APP, - 

4551 TYPE=<SPECIAL, STATIC>, - 
4552 UNIT=Boolean, - 

4553 VERSION _MASK=<SYSGEN> 
4554 

4555 IF NOT_DEFINED VERSION 

4556 -IIF NOT_DEFINED GETSYISW, -ALIGN LONG 
4557 -ENDC 

4558 

4559 - PAGE 
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4560 -SBTTL Job Controller Parameters 

4561 ; 

4562 ; Default Priority for Job Initiations 

4563 ; 

4564 PARAMETER SYS$GB_DEFPRI,- ; 

4565 DEFAULT#=4, ~ ; 

4566 MIN=1,- ? 

4567 MAX=31,- ? 

4568 NAME=DEF PRI, - : 

4569 SIZE=BYTE, - ; 

4570 TYPE=<SYS, JBC, DYNAMIC>, - ; 
4571 UNIT=Priority,- 

4572 VERSION_MASK=<SYSGEN> 
4573 ; 

4574 ; Limit for interactive Jobs 

4575 ; 

4576 PARAMETER ADDRESS=SYS$GW_IJOBLIM, - : 
4577 DEFAULT=64, - : 

4578 MIN=1,- 3 

4579 MAX=1024,- ; 

4580 NAME=IJOBLIM,- ; 

4581 SIZE=WORD, - : 

4582 TYPE=<JBC, DYNAMIC>, - ; 
4583 UNIT=Jobs, - 

4524 VERSION_MASK=<SYSGEN> 
45a5 ; 

4586 ; Limit for batch Jobs 

4587 ; 

4588 PARAMETER ADDRESS=SYS$GW_BJOBLIM, - : 
45a9 DEFAULT=16, - ; 

4590 MIN=0, - ; 

4591 MAX=1024, - ; 

4592 NAME=BJOBLIM,- ; 

4593 SIZE=WORD, - ; 

4594 TYPE=<JBC, DYNAMIC>, - ; 
4595 UNIT=Jobs, - 

4596 VERSION _MASK=<SYSGEN> 
4597 

4598 ; 7 

4599 ; Limit for network Jobs 

4600 ; 

4601 PARAMETER ADDRESS=SYS$GW_NJOBLIM, - ; 
4602 DEFAULT=16, - : 

4603 MIN=0,- ? 

4604 MAX=1024,- ; 

4605 NAME=NJOBLIM,- ; 

4606 SIZE=WORD, - ? 

4607 TYPE=<JBC, DYNAMIC>, ~ ; 
4608 UNIT=Jobs, - 

4609 VERSION _MASK=<SYSGEN> 
4610 ; 

4611 ; Limit for Remote Terminal Jobs 

4612 ; 

4613 PARAMETER ADDRESS=SYS$GW_RJOBLIM, - 3 
4614 DEFAULT=16,- . : 

4615 MIN=0, - ; 

4616 MAX=65535,- : 
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4617 NAME=RJOBLIM,- ; 

4618 SIZE=WORD, - ? 

4619 TYPE=<JBC, DYNAMIC>, - ; 
4620 UNIT=Jobs, - 

4621 VERSION _MASK=<SYSGEN> 
4622 ; 

4623 ; DEFQUEPRI - Default Queue Priority 

4624 ; 

4625 PARAMETER ADDRESS=SYS$GB_DEFQUEPRI, - 
4626 DEFAULT=100, - 

4627 MAX=255, - 

4628 MIN=0, - 

4629 NAME=DEFQUEPRI, - 

4630 TYPE=<JBC, DYNAMIC>, - 
4631 UNIT=Priority, - 

4632 VERSION_MASK=<SYSGEN> 
4633 ; 

4634 ; MAXQUEPRI ~- Maximum Queue Priority 

4635 ; 

4636 PARAMETER ADDRESS=SYS$GB_MAXQUEPRI, - 
4637 DEFAULT=100, - 

4638 MAX#255, - 

4639 MIN=0, - 

4640 NAME=MAXQUEPRI, - 

4641 TYPE=<JBC, DYNAMIC>, - 
4642 UNIT=Priority, - 

4643 VERSION_MASK=<SYSGEN> 
4644 

4645 «PAGE 

4646 -SBTTL Login Security Parameters 

4647 ; 

4648 ; Number of seconds that a dialup user has in which to enter the system 
4649 ; password before LOGINOUT goes away 

4650 ; 

4651 PARAMETER ADDRESS=SYS$GB_PWD_TMO, - 
4652 DEFAULT=30, - 

4653 MIN=0, - 

4654 MAX=255, - 

4655 NAME=LGI_PWD_TMO, - 

4656 SIZE=BYTE, - 

4657 TYPE=<DYNAMIC, LGI>, - 
4658 UNIT=Seconds, - 

4659 VERSION_MASK=<SYSGEN> 
4660 . 

4661 ; 

4662 ; Number of retries an interactive user has before the process goes away 
4663 ; 

4664 PARAMETER ADDRESS=SYS$GB_RETRY_LIM, ~ 
4665 DEFAULT=3, - 

4666 MIN=0, - 

4667 MAX=255, - 

4668 NAME=LGI_RETRY_LIM, - 
4669 SIZE=BYTE, - 

4670 TYPE=<DYNAMIC, LGI>, - 
4671 UNIT=Tries,- 

4672 VERSION _MASK=<SYSGEN> 
4673 
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4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 
4715 
4716 
4717 


we Ne Ye Ye 


=e Se Ye 


0 Me Me Me 


7e Ye Te 


_ 4718 
4719 


4720 
4721 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 


Number of seconds that a user has in which to attempt another login 
before the process goes away 


PARAMETER 


Number of consecutive 


Linear ae 


_ADDRESS=SYS$GB_RETRY_TMO, - 


DEFAULT=20, - 


_ MIN=0,- 


MAX#=255,.- os 
NAME=LGI_RETRY_TMO, - oe 
SIZE=BYTE, - 7 
TYPE=<DYNAMIC, LGI>, - 
UNIT=Seconds, - 
VERSION_MASK=<SYSGEN> 


login failures before LOGINOUT begins evasive action 
ADDRESS=SYS$GB_BRK_LIM, - 


DEFAULT#=5, - 
MIN=0, - 


.MAX=#255,- 


NAME=LGI_BRK_LIM, - 
SIZE=BYTE, - 
TYPE=<DYNAMIC, LGI>, - 
UNIT=Failures, - 


_ VERSION_MASK=<SYSGEN> 


Number of seconds that a suspect must be free of login failures before it is 
taken off the suspect list * 


PARAMETER 


ADDRESS=SYS$GL_BRK_TMO, - 
' DEFAULT=300, - 


ae MIN=O, - oA EE, casas OS 


MAX=~1, - | _— 
NAME=LGI_BRK_TMO, - i. 
SIZE=LONG, - 


_ TYPE=<DYNAMIC, LGI>, - 


UNIT=Seconds, - 4° See 
VERSION _MASK=<SYSGEN> a 


Number of seconds that LOGINOUT should practice evasive action on an intruder 


_ PARAMETER , 


~PAGE | 


ADDRESS=SYS$GL_HID_ TIM, ~ 
DEFAULT=300, - 


_. MIN@=0,- 
“MAX=-1, - 


NAME=LGI_HID_ TIM, - 
SIZE=LONG, - 


_TYPE=<DYNAMIC, LGI>, - 


UNIT=Seconds, - 
VERSION .MASK=<SYSGEN> 


-SBTTL Cluster Datameters 
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4735 
4736 
4737 
4738 
4739 
4740 
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4747 
4748 
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4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 


ee Se te 


@e Ye te 


we 


“VAXCLUSTER - Controls loading of cluster code 
O: Never load 


1: Load 


if SCSLOA is being loaded 


2: Always load (and also load SCSLOA) 


PARAMETER 


ADDRESS=CLUSGB_VAXCLUSTER, - ? 
DEFAULT=1, - 
MAX=2, - 

MIN#=#0, - 
NAME=VAXCLUSTER, 
SIZE=BYTE, - 
TYPE=<CLUSTER>, - 
UNIT=Coded-value, ~ 
VERSION MASK=<SYSGEN> 


se 6 § fe Ne Ne 


"we 


Maximum number of votes that are expected to be in the cluster. 
Also known as the universe of votes. 


PARAMETER 


ADDRESS=CLUSGW_EXP Bod 
DEFAULT#=1, - 

MIN#1, - 

MAX=127, - 

NAME=EXPECTED VOTES, - 
SIZE=WORD, ~ 
TYPE=<CLUSTER>, - 
UNIT=Votes, - 


_ VERSION_MASK=<SYSGEN> 


Number of votes this system contributes to quorum 


Interval during which 


PARAMETER 


ADDRESS=CLU$GW_VOTES, - 


.DEFAULT=1, - 


MIN=0, - 

MAX=127, - 
NAME=VOTES, - 
SIZE=WORD, - 
TYPE=<CLUSTER>, - 
UNIT=Votes, - 

VERSION _MASK=<SYSGEN> 


to attempt reconnection to a remote system 


ADDRESS=CLUS$GW_RECNXINT, - 
DEFAULT=20, - 
MIN#1, = 


| MAX=32767, - 


NAME=RECNXINTERVAL, - 
SIZE=WORD, - 
TYPE=<CLUSTER, DYNAMIC>, - 
UNIT=Seconds, - 
VERSION_MASK=<SYSGEN> 
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4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
° 4805 
4806 
4807 
4808 
4809 


4810 


4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 


e 
e 
: 
‘ 


se Se Se 


=e Ne Ne 


=e 


=e 


=e Se Ne 


The cluster quorum disk name 


PARAMETER 


ADDRESS=CLU$GB | QDISK, - 
DEFAULT=<“*A/ = //>, = 
MIN=<*A/ />,~ 
MAX=<*A/22Z22/>,- 
NAME=DISK QUORUM, - 
SIZE=OCTA, - 
TYPE=<ASCII, CLUSTER>, - 
UNIT=Ascii,- 
VERSION _MASK=<SYSGEN> 


Number of votes contributed by quorum disk 


PARAMETER 


Disk Quorum Inverval 


PARAMETER 


ADDRESS=CLUSGW | QDSKVOTES, - 


‘DEFAULT=1, ~- 


MIN=0, - 


- MAX=127,- 


NAME=QDSKVOTES, - 
SIZE=WORD, - 
TYPE=<CLUSTER>, - 


’ “UNIT=Votes, - 
- VERSION |_ MASK=<SYSGEN> 


ADDRESS=CLUS$GW_QDSKINTERVAL, ~ 
DEFAULT=10, - 

MIN=1,- 

MAX=32767,- 

Malte ODA KT NTERVAL 
SIZE=WORD, - 

TYPE=<CLUSTER>, - 
UNIT=Seconds, - 
VERSION_MASK=<SYSGEN> 


Define a parameter which determines the disk allocation class for 
this system. The disk device allocation class is used to derive a common 
lock resource name for multiple access paths to the same disk device.— 


PARAMETER 


ADDRESS=CLUSGL ALLOCLS, - 
NAME=ALLOCLASS, fz - 
TYPE=<CLUSTER>, -~ 
DEFAULT=0, - — 


" MIN=0, - 


MAX=255, - 
UNIT=Pure-number, - 
VERSION_MASK=<SYSGEN> 


Lock manager directory system weight. Determines portion of lock 
manger directory entires which will be handled by this system. 


PARAMETER 


; ADERES SS et cs ence hla 


DEFAULT=0, ~ 


279 


CONFIDENTIAL AND PROPRIETARY 


SYSPARAM - SYSTEM PARAMETERS 10-MAY-1989 15:26:20 VAX MACRO V5.0-8 Page 89 
X-101018 SYSGEN PARAMETERS 6-APR-1989 10:18:35 [SYS.SRC)SYSPARAM.MAR;2 (1). 


4645 MIN=0, - 

4846 MAX=255,- 

4847 NAME=LOCKDIRWT, - 

4848 SIZE=WORD, - 

4849 TYPE=<CLUSTER>, - 

4850 ONIT=Pure-nunber,- 

4851 VERSION _MASK=<SYSGEN> 

4652 

4853 -IF NOT_DEFINED VERSION 

4854 IF NOT_DEFINED GETSYISW 

4655 ; . 

4856 ; Cluster boolean flags 

4857 ; 

4858 -ALIGN LONG ; 

4859 -IF NDF, PRMSW ; 

4860 CLUS$GL_SGN_FLAGS:: 2 Static SYSGEN flags 
4861 -ENDC ; NDF, PRMSW 

4862 -LONG 0 s init to <1L@CLUS$V_xxx>!<1l@CLUSV_xxx> 
4863 -ENDC ¢ NOT DEFINED GETSYISW 
4864 . 

4665 $VIELD CLU,0,<- + Definition for CLUSGL_SGN_FLAGS 
4866 NISCS_LOAD_PEAO,- 3 Load PEAO for NISCS 
4867 NIscs | CONV | | BOOT, - 3 Allow remote conversational boot 
4868 > 

4869 -IF_FALSE 

4870 

4871 DEFINE CLUS$GL_SGN_FLAGS, - 

4872 VERSION | MASK=<SYSGEN> 

4873 

4874 DEFINE CLUSV_NISCS_LOAD PEAO, - 

4875 VERSION | MASK=<SYSGEN> 

4876 

4877 DEFINE CLUSV_CONV_BOOT, - 

4878 VERSION_MASK=<SYSGEN> 

4879 

4880 -BNDC 3 Version 

4881 

4882 

4883 ; 

4684 ; Local Area VAXcluster parameters 

48655; | 

4886 ; Allow remotely booting node to do conversational boots 
4887 ; 

4868 . PARAMETER ADDRESS=CLUS$GL_SGN_FLAGS, - 

4889 NAME=NISCS_CONV_BOOT, - 

4890 TYPE=<CLUSTER>, - 

4891 BIT=CLUSV_NISCS_CONV_BOOT, - 

4892 DEFAULT=0, - ; 

4893 MIN=0, - ? 

4894 MAX=1, ~ 3 

4895 UNIT=Boolean, - 

4896 VERSION_MASK=<SYSGEN> 

4897 ; 

4898 ; Load PEAO for NI-SCS 

4899 ; 

4900 PARAMETER ADDRESS=CLUS$GL_SGN_FLAGS, - 

4901 NAME=NISCS_LOAD_PEAO, - 
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4902 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 


4939. 
4940 


4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 

° 4949 
4950 
4951 
4952 
4953 

4954 

~~ 4955 

4956 

4957 

4958 


wo Se Ye Yo 


=e “Se Ve 


me Ne Ne 


se Se Ve 


=e Be Ne 


* DEFAULT=0, - 


TYPE=<CLUSTER>, - 
BIT=CLUSV_NISCS_LOAD_PEAO, - 


MIN=0, - 
MAX=1,- 
ONIT=Boolean, - 
VERSION | MASK=<SYSGEN> _ 


we es ~! 


Flags and other bits for port. service. Currently a set of 
bit flags, but can be expanded 


Pa est Es 


Load MSCP server 


PARAMETER 


PARAMETER _ 


_ ADDRESS=CLUS$GL_NISCS_PORT SERV, - 


NAME=NISCS PORT SERV, -_ 
TYPE=<CLUSTER>, 
DEFAULT=0, - 
MIN=0,- 

MAX=3, - ee 
UNIT=Bit-encoded,- | .- 
VERSION _MASK=<SYSGEN> 


se Ne Ye 


ADDRESS=CLUS$GL_| ‘MSCP_ LOAD, = 
NAME=MSCP LOAD, = 
TYPE=<CLUSTER>, - 

DEFAULT=0, ~- 

MIN=0, - 

MAX=1, - 

UNIT=Boolean, - 

VERSION MASK=<SYSGEN> 


MSCP=serve all disks at boot time 


PARAMETER 


ADDRESS=CLU$GL_MSCP -SERVE_ALL, ~ 
NAME=MSCP_SERVE_ALL, - 
TYPE=<CLUSTER>, - aid 


' DEFAULT=0, - 


MIN=0, - 

MAX=2, - 
UNIT=Coded-value, - 
VERSION _MASK=<SYSGEN> 


Amount of non-paged pool to allocate for the servers exclusive use 


PARAMETER 


ADDRESS=CLU$GL_MSCP_BUFFER, - 
NAME=MSCP_BUFFER, - 
TYPE=<CLUSTER>, - 
DEFAULT#=128, - 

MIN=16, - 

UNIT=Coded-value, ~ 

VERSION _MASK=<SYSGEN> 


Number of send credits to be extended by the MSCP server for each 


granted connection. 
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4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 


4989. 


4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 


5012 


§013 
5014 
5015 
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e 
eo 


ee Ve Ve Ve Ve 


me Ye Neo 


EXESGL_WSFLAGS: : 


se Ve Ve 


PARAMETER 


DEFAULT=4, - 
MIN=2 ,7 
MAX=8, - 


ADDRESS=CLUSGL_MSCP_ CREDITS, - 
NAME=MSCP _CREDITS ’ 
TYPE=<CLUSTER>, > 


_UNIT=Coded-value, - 
VERSION_MASK=<SYSGEN> 


Define a parameter which tells us whether or not this system is tailored 


(i.e., has a library disk). 


This is the right way to determine tailoring 


now that many different system disks can be tailored. 


PARAMETER 


IF 
IF 


DEFAULT#=0, ~ 
MAX=1,- 
MIN=0, ~ 


NAME=TAILORED, - 


SIZE=BYTE, - 
TYPE=<SYS>,- 
UNIT=Boolean, - 


ADDRESS=SGNS$GB_TAILORED, ~ 


VERSION_MASK=<SYSGEN> 


NOT_DEFINED VERSION 
NOT_ DEFINED GETSYISW 


WORK STATION FLAGS. 


- ALIGN 
IF 


-ENDC 
- LONG 
-ENDC 
SVIELD 


> 


LONG 
NDF, PRMSW 


+ NDF, PRMSW 


° 
eo 


+ NOT DEFINED GETSYISW 


EXE, 0,<- 
<OPAO>- 


.IF_FALSE 


DEFINE 


DEFINE 


-ENDC 


WS_OPAO 


PARAMETER 


EXESGL_WSFLAGS, - 
VERSION_MASK=<SYSGEN> 


EXESV_OPAO, - 
VERSION | MASK=<SYSGEN> 


3 Version 


DEFAULT#=0, - 
MAX=1, - 


we %e Me 


3 


; 


Work station SYSGEN flags 


DEFINITION FOR EXESGL_DYNAMIC_FLAGS 
Reserve a window for OPAO 


If set reserve the first 24 scan lines for an OPAO window 


ADDRESS=exe$gl_wsflags,~; 
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5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5638 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 


Se Se Ne 


~e 


MIN=0,- | 
NAME=WS_OPAO, - 
BIT=EXESV_OPAO, ~; 
TYPE=<DYNAMIC, SYS>,-7 
UNIT=Boolean, - 

VERSION |_MASK=<SYSGEN> 


=e Ve 


Define eight parameters which are used to pass information to the 
startup procedure (STARTUP .COM) . ‘ 


PARAMETER 


PARAMETER 


PARAMETER 


PARAMETER 


PARAMETER 


ADDRESS=SGN$GB_STARTUP_P1,- 
DEFAULT=<*A/.  _ />,=-"" - 
MIN=<*A/ (>,- 
MAX=<“A/z%zz/>,- 
NAME=STARTUP_P1,- 
SIZE=LONG, - 
TYPE=<ASCII, SYS>, - 
UNIT=Ascii,- 

VERSION _MASK=<SYSGEN> 
ADDRESS=SGNSGB_| STARTUP oar 
DEFAULT=<*A/ />,7 
MIN=<*A/ />,> 
MAX=<“*A/zzzz/>,- 
NAME=STARTUP_P2,- 
SIZE=LONG, - 
TYPE=<ASCII, SYS>,- 
UNIT=Ascii,-~- 

VERSION | MASK=<SYSGEN> 
ADDRESS=SGNSGB_| STARTUP a 
DEFAULT=<“A/: />,- 
MIN=<‘A/ £/>,- 
MAX=<“A/zzzz/>,- 
NAME=STARTUP_P3, - 

SIZE=LONG, ~- ae 
TYPE=<ASCII, SYS>,- 
UNIT=Ascii,- 

VERSION | MASK=<SYSGEN> 
ADDRESS=SGNSGB __ STARTUP _P4,- 


.. DEFAULT=<*A/ />,7 
MIN=<*A/ />,7 


=<*A/zzzz/>,- | 
NAME=STARTUP_P4,- 
SIZE=LONG, - 
TYPE=<ASCII, SYS>, - 
UNIT=Ascii,- iad 
VERSION. | MASK=<SYSGEN> 
ADDRESS=SGN$GB_STARTUP_P5, - 
DEFAULT=<*A/  -_ />, ~ 
MIN=<*A/ />1- 
MAX=<*A/2722%/>,- 
NAME=STARTUP P5, - 
SIZE=LONG, = 
TYPE=<ASCII, SYS>,- 
UNIT=Ascii,.- 
VERSION_MASK=<S YSGEN> 


system 
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5073 PARAMETER ADDRESS=SGNS$GB_STARTUP_P6, - 

5074 DEFAULT=<“*A/ />,7 

5075 MIN=<*A/ />y> 

5076 MAX=<*A/zzzz/>,- 

5077 NAME=STARTUP_P6, ~- 

5078 SIZE=LONG, - 

5079 TYPE=<ASCII, SYS>,- 

5080 UNIT=Ascii,- 

5081 VERSION_MASK=<SYSGEN> 

5082 PARAMETER - ADDRESS=SGNS$GB_STARTUP_P7, - 

5083 DEFAULT=<“A/ />,- 

5084 MIN=<*A/ />,- 

5085 MAX=<“*A/zzzz/>,- 

5086 NAME=STARTUP_P7,- 

5087 SIZE=LONG, - 

5088 TYPE=<ASCII, SYS>,- 

5089 UNIT=Ascii,- 

5090 VERSION _MASK=<SYSGEN> 

5091 PARAMETER ADDRESS=SGNS$GB_STARTUP_P8,- 

5092 DEFAULT=<“A/ />,- 

§093 MIN=<*A/ />,- 

5094 MAX=<“A/zzz2/>,- 

5095 NAME=STARTUP_P6,- 

5096 SIZE=LONG, - 

5097 TYPE=<ASCII, SYS>,- 

5098 UNIT=Ascii,- 

5099 VERSION _MASK=<SYSGEN> 

5100 

5101 ; 

5102 ; ENABLE PAGING OF SYSTEM CODE 

5103 ; 

5104 PARAMETER ADDRESS#=EXE$GL_SO_PAGING, ~; 

5105 DEFAULT=0, - ; 

5106 MIN=0, - F 

5107 NAME=S0_PAGING, -; 

5108 TYPE=<SPECIAL>,- 3 

5109 UNIT=Bit-mask, - 

5110 VERSION _MASK=<SYSGEN> 

5111 ; 

5112 ; SET VALUES FOR POOLCHECK CODE IN MEMORYALC 

§113 ; (Field test default line is DEFAULT=<“X6164001F>) 
$114 ; 

§115 PARAMETER ADDRESS=EXESGL_POOLCHECK, - 3 
§116 : DEFAULT=0, - 3 
§117 MIN=0, - : 
§118 NAME=POOLCHECK, - Pd 
5119 SIZE=LONG, - 2 
5120 TYPE=<DYNAMIC, SPECIAL>, - z 
§121 UNIT=Bit-encoded, - 

5122 VERSION _MASK=<SYSGEN> 

5123 ; 

5124 ; SET SIZE OF PSEUDO DEVICE ON BOOT (AND TAPE BOOT FLAG) 
5125 ; 
$126 PARAMETER ADDRESS=SGNS$GL_PSEUDOLOA, - 3 
§127 DEFAULT=0, - 3 
5128 MIN=0, - 2 
5129 NAME=P SEUDOLOA, - 3 
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$130 
5131 
5132 
$133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
$142 
5143 
5144 


$145 


5146 
5147 
5148 
$149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 


5158 
5159 
5160 
5161 
5162 
5163 


5164 
5165 
5166 
5167 
5168 
5169 


5170 
§171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 


we Ye Ye Ye Se Ye Be Ye Ye 


~e Me Me Ye Ne Ne 


we Ye Ye Ye 


=e 


we 


ee Ge 


Se Ye Ns Ne Ye Te We Ne 


«PAGE 


SIZE=LONG, - ; 
TYPE=<SPECIAL>, - ; 
UNIT=Pages, - 
VERSION_MASK=<SYSGEN> 


-SBTTL CPU Scheduling Control Flags and Cells 


PARAMETER 


ADDRESS=SCHSGL_CTLFLAGS, -; 

DEFAULT=0, - 3 All bits zero selects pre-V5 CPU schedulin 
MIN=0, - ; 

NAME=SCH_CTLFLAGS, ~; 

TYPE=<DYNAMIC, SPECIAL>, -; 

UNIT=Bit-mask,- _ 

VERSION_MASK=<SYSGEN> 


Note that the defaults for the following 3 parameters establish a priority 
structure that appears as: 


priority 31 

. Real time 
16 
15 

. Normal, pre-emptive resume 

. (assuming NO_QEND PREEMPT = 1) 

7 

. Class-scheduled processes 

: (assuming class scheduling is enabled) 
0 NULL or SOAK processes 


(assuming NO_PIXSCAN = 1 OR PIXSCAN_LOWPRI = 1) 


If class scheduling is enabled, then the following two parameters 
delineate the priority range in which class-scheduled processes will 


execute. 


MINCLASSPRI <= process priority <= MAXCLASSPRI 


PARAMETER 


ADDRESS=SCH$GB_MINCLASSPRI, - ; 
DEFAULT=1, - ; 

MIN=0, - : 

MAX=15,- ; 
NAME=MINCLASSPRI, -; 

SIZE=BYTE, - : 
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5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
$203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 


™e Te Te Ye Ve Ve Ve 


we Ne Ne 


ee Ye Ye Ye Se 


TYPE=<DYNAMIC, SPECIAL>, -; 
UNIT=Priority, - 
VERSION _MASK=<SYSGEN> 


PARAMETER ADDRESS=SCH$GB_MAXCLASSPRI, - 
DEFAULT=7, - ; 
MIN=0, - : 
MAX=15,- ; 
NAME=MAXCLASSPRI, -; 
SIZE=BYTE, - ? 
TYPE=<DYNAMIC, SPECIAL>, -; 
UNIT=Priority, - 


VERSION _MASK=<SYSGEN> 


If the scheduling control flag NO_QEND PREEMPT is set, 


then the following 


parameter divides the non-realtime priority range into 2 classes: 


> MINPRPRI - NO QEND PREEMPT = 1 enables priority-resume scheduling 
<= MINPRPRI - NO _QEND PREEMPT has no effect, i.e., round-robin scheduling is 


PARAMETER ADDRESS=SCHSGB_MINPRPRI, - 
DEFAULT=7, - 
MIN=0, - 
MAX=15, - 
NAME=MINPRPRI, -; 
SIZE=BYTE, - ? 
TYPE=<DYNAMIC, SPECIAL>, -; 
UNIT=Priority, - 

VERSION _MASK=<SYSGEN> 


we Me NO 


RSRVPAGCNT - granularity, in pages, of page file 


PARAMETER ‘ADDRESS=MMGSGL_RSRVPAGCNT, - 


DEFAULT=2048,- ; 


MIN=128, - ; 
MAX=16384, - ; 
NAME=RSRVPAGCNT, -; 
SIZE=LONG, - ; 
TYPE=<DYNAMIC, SPECIAL>, -; 
UNIT=Pages,- 


VERSION_MASK=<SYSGEN> 


WINDOW SYSTEM SYSGEN parameter for DECwindows 
Specifies default windowing system for a workstation. 
0 = no windowing system defined, 1=DECW, 2 = VWS 


PARAMETER ADDRESS=EXE$GL_WINDOW_SYSTEM, - 


DEFAULT=0, - ; 
NAME=WINDOW_SYSTEM, -; 
SIZE=LONG, - ; 
MIN=0, - ; 
MAX=2, - 7 


TYPE=<SYS, DYNAMIC>, -; 
UNIT=Pure-number, - 


° 
¢ 


reservations 


‘88 
’ 


e 
td 


default to no window system 


for now only 0, 1 and 2 defined 
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5244 
§245 
5246 
5247 
5248 
5249 
5250 
§251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 
5260 
$261 
5262 
5263 
5264 
5265 
5266 
5267 
5268 
5269 
5270 
§271 
5272 
5273 
5274 
5275 
5276 
5277 
5278 
5279 
5280 
5281 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 


™e Me Ye Ye Ye 


me Ye Ve 


me Ne 


-VERSION_MASK=<SYSGEN> 


Parameters to controlthe breaking of implicit affinity. 
Controls are on the number of times a process will be skipped before being 


moved and how long it 


PARAMETER 


PARAMETER 


Control the number of 


PARAMETER 


will remain on the compute queue. 


ADDRESS=SCH$GL_AFFINITY_SKIP,- 
DEFAULT=2, ~ 

MIN=0, -. 

MAX=255, = 

NAME=AFFINITY_ SKIP, - 
SIZE=LONG, ~ 

TYPE=<DYNAMIC, SPECIAL>, - 
UNIT=Pure-number, - 
VERSION_MASK=#=<SYSGEN> 


ADDRESS=SCHS$GL_AFFINITY_TIME, - 
DEFAULT=0, - 

MIN=0, - 

MAX=-1, ~ 

NAME=AFFINITY_ TIME, ~ 
SIZE=LONG, - 

TYPE=<DYNAMIC, SPECIAL>, - 
UNIT=10Ms, - 

VERSION _MASK=<SYSGEN> 


pages per Error Log Buffer 


ADDRESS=EXE$GB_ERLBUFPAGES, - 
DEFAULT=2, - 

MIN=2, - 

MAX=32,- 
NAME=ERLBUFFERPAGES, ~ 
SIZE=BYTE, - 

TYPE=<SYS>,- 

UNIT=Pages, - 

VERSION _MASK=<SYSGEN> 


IF NOT DEFINED VERSION 
-IIF NOT DEFINED GETSYISW, -ALIGN LONG 


-ENDC 


Define a parameter which determines the tape device allocation class for 
this system. The tape device allocation class is used to derive a common 
lock resource name for multiple access paths to the same tape device. 


PARAMETER 


ADDRESS=CLUS$GL_TAPE ALLOCLS, - 
NAME=TAPE ALLOCLASS, - 
TYPE=<CLUSTER>, - 

DEFAULT=0, < 

MIN=0, ~- 

MAX=255, - 

ONIT=Pure-number, - 
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. §301 VERSION _MASK=<SYSGEN> 

$302 

5303 

S304 pee eee RRR REE REE RE REE RERERERERREREREERERERENEEREERRERERERERERERRERERE 
5305 ;* * 
5306 ;* Add new parameters immediately preceding this point. * 
5307 ;* * 
S308 pRRRRRRRRRRERREREEERERERREER EERE RHEE EIR IEEE EER ITI REE IRR 
$309 a 

$310 IF NOT DEFINED GETSYISW 
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5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
5324 
5325 
5326 
5327 
5328 
5329 
5330 
5331 
5332 
5333 
5334 
5335 
5336 
5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
5348 
5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 
5364 


5365. 


5366 
5367 
5368 


we Ye Ye Ve Ve 


Me Se 


IF NOT_DEFINED, VERSION 
-ALIGN PAGE 
-IF —s NDF, PRMSW 
SGNS$A_COMPVALUES: : 
-ENDC 
-ALIGN LONG 
.IF_FALSE 
DEFINE SGNSA_COMPVALUES, ~ 
VERSION_MASK=<SYSGEN> 
-ENDC 
DEFINE SWPS$GL_SHELLSIZ, - 
VERSION MASK=<SYSGEN> 
-LONG 0 
DEFINE SWPSGW_BAKPTE, - 
VERSION MASK=<SYSGEN> 
-WORD 0 
"DEFINE SWPS$GW_EMPTPTE, - | 
VERSION _MASK=<SYSGEN> 
-WORD 0 
DEFINE SWP$GW_WSLPTE, - 
VERSION_MASK=<SYSGEN> 
-WORD 0 
DEFINE SWP$GB_SHLP1PT, - 
VERSION _MASK=<SYSGEN> 
-BYTE 0 
-BYTE 0 
DEFINE SWPS$GL_BSLOTSZ, ~ 
VERSION MASK=<SYSGEN> 
-LONG 0 
DEFINE SWPS$GL_MAP 
-LONG 0 
DEFINE SWPS$GL_PHDBASVA, - 
VERSION_MASK=<SYSGEN> 
.LONG 0 
DEFINE SGNS$GL_PHDAPCNT, - 


-SBTTL 


COMPUTED VALUES 


The following values are not SYSGEN parameters. They are included in this 
module because it is a convenient way to pass values calculated by SYSBOOT 
through to INIT and the running system. 


VERSION_MASK=<SYSGEN> 


=e 


we ~e =e ~e ~e =e =e =e me 


se 


=e 


se ~e =e Ne 


we 


For exec version: 
Define base of computed values 


PAGES REQUIRED FOR SHELL 


PHD PAGES FOR BAK+WSLX+LCK+VAL 


EMPTY PHDPAGES 


PHD PAGES FOR FIXED+WSL+PST 


Pl PAGE TABLES REQUIRED FOR SHELL 


SPARE 


SIZE OF BALANCE SLOT 


SWAPPER MAP POINTER 


BASE ADDRESS OF PHD WINDOW 


TOTAL SHELL HEADER PAGES 
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5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5402 
5403 
5404 
5405 
5406 
5407 
5408 
5409 
5410 
5411 
5412 
5413 
5414 
5415 
5416 
5417 
5418 
5419 
5420 
5421 
5422 
5423 
5424 
5425 


we Se Xe 


- LONG 


DEFINE 


- LONG 


DEFINE 


- LONG 


DEFINE 


- LONG 


DEFINE 


- LONG 


DEFINE 


- LONG 


DEFINE 


- LONG 


0 


SGN$GL_PHDLWCNT, - 
VERSION_MASK=<SYSGEN> 
0 


SGN$GL_P1LWCNT, - 
VERSION_MASK=<SYSGEN> 
0 


SGNSGL_PHDPAGCT, ~ 
VERSION_MASK=<SYSGEN> 
0 


SGNSGL_PTPAGCNT, - 
VERSION_MASK=<SYSGEN> 
0 


MMG$GL_CTLBASVA, - 
VERSION_MASK=<SYSGEN> 
0 


EXE$GL_INTSTK, - 
VERSION_MASK=<SYSGEN> 
0 


s 
¢ 


e 
a 


we 


ve 


=e 


=e 


=e 


we 


=e 


e 
9 


e 
e 


THE PRECEDING TWO LONG WORDS MUST 


DEFINE 
LONG 
DEFINE 
LONG 
DEFINE 
LONG 
DEFINE 
DEFINE 
. LONG 
DEFINE 
. LONG 
DEFINE 
. LONG 


DEF INE 


MMG$GL_GPTBASE, - 
VERSION_MASK=<SYSGEN> 
0 


MMGSGL_GPTE, - 
VERSION_MASK=<SYSGEN> 
0 


MMGSGL_MAXGPTE, - 
VERSION_MASK=<SYSGEN> 
0 


MMGS$GL_MAXSYSVA, - 
VERSION_MASK=<SYSGEN> 
MMGSGL_FRESVA, - 
VERSION_MASK=<SYSGEN> 
0 


MMGSGL_SPTBASE, - 
VERSION_MASK=<SYSGEN> 
0 


LDR$GL_SPTBASE, - 
VERSION_MASK=<SYSGEN> 
0 


MMGSGL_SPTLEN, - 
VERSION _MASK=<SYSGEN> 


=e we 


ve 


we @e =e we 


we 


=e 


=e Ne Ye 


COUNT OF LONGWORDS IN PHD 


COUNT OF LW TO END OF Pl PAGETABLE 


TOTAL PHD PAGES LESS PAGE SABLE 
TOTAL PAGE TABLE COUNT 

BASE ADDRESS IN CONTROL REGION 
BASE OF INTERRUPT STACK 


BE ADJACENT. 


GLOBAL PAGE TABLE BASE ADDRESS 


BASE ADDRESS OF SPT PTES FOR GPT 
PAGES 


HIGHEST GPTE ADDRESS 


HIGHEST SYSTEM VA (+1) 


SYNONYM 
BASE ADDRESS OF SPT (VIRTUAL) 


BASE ADDRESS OF SPT ~- EITHER 


PHYS OR VIRTUAL AS REQUIRED BY 
SYSLDR 
LENGTH OF SYSTEM PAGE TABLE 
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5426 
5427 
5428 
5429 
5430 
5431 
5432 
5433 
5434 
§435 
5436 
5437 
5438 
5439 
5440 
- §441 
5442 
5443 
5444 
§445 
5446 
5447 
5448 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5480 
5481 
5482 


. LONG 
DEFINE 
. LONG 
DEFINE 
. LONG 
DEFINE 
. LONG 
DEF INE 
. LONG 
DEFINE 
. LONG 
DEFINE 
. LONG 
DEFINE 
. LONG 
DEFINE 
. LONG 
DEFINE 
. LONG 
DEFINE 
. LONG 
DEFINE 
. LONG 
DEFINE 
. LONG 
DEFINE 
. LONG 
DEFINE 


- LONG 


0 


MMGSGL_SYSPHD, - 
VERSION_MASK=<SYSGEN> 


0 


MMGSGL_SYSPHDLN, - 
VERSION _MASK=<SYSGEN> 


0 


SWP$GL_BALBASE, - 
VERSION _MASK=<SYSGEN> 


SWP$GL_BALSPT, - 
VERSION_MASK=<SYS‘EN> 
0 


MMGSGL_SBR, - 
VERSION _MASK=<SYSGEN> 


0 


MMG$GL_NPAGEDYN, - 
VERSION _MASK=<SYSGEN> 
0 


MMGS$GL_NPAGNEXT, - 
VERSION_MASK=<SYSGEN> 


28 


MMG$GL_IRPNEXT, - 
VERSION_MASK=<SYSGEN> 
0 


MMG$GL_LRPNEXT, - 
VERSION _MASK=<SYSGEN> 
0 


MMG$GL_SRPNEXT, - 
VERSION_MASK=<SYSGEN> 
0 


MMGSGL_PAGEDYN, - 
VERSION_MASK=<SYSGEN> 
0 


MMGS$GL_MAXPFN, - 
VERSION_MASK=<SYSGEN> 
0 


MMGSGL_MINPFN, - 
VERSION MASK=<SYSGEN> 
0 


MMG$GL_MAXMEM, - 
VERSION _MASK=<SYSGEN> 
0 


° 
o 


. . ~ 
=e ve ve we xe ze we =e ~<e we ‘ee Ty we: "oe we @e we ve 7 we ve =e se ve ° ° ° 


ve 


VA OF SYSTEM PHD 
SIZE OF SYSTEM PHD IN BYTES 
BASE VA OF BALANCE SLOTS FOR 


PROCESS HEADERS 


BASE VA IN SPT FOR MAPPING BALANCE 
SLOTS 

SYSTEM BASE REGISTER 

VA OF NON-PAGED POOL 

NEXT VA FOR NON-PAGED POOL EXTENSION 
NEXT VA FOR IRP LIST EXTENSION 

NEXT VA FOR LRP LIST EXTENSION 

NEXT VA FOR SRP LIST EXTENSION 


VA OF PAGED POOL 


MAXIMUM PFN FOR SYSTEM 


MINIUMUM PFN IN PFN DATABASE 


HIGHEST PFN MAPPED BY SYSBOOT 


INCLUDES PAGES NOT IN PFN DATABASE 
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5483 
5484 
5485 
5486 
5487 
5488 
5489 
5490 
$491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
5505 
5506 
5507 
5508 
5509 
5510 
5511 
§512 
5513 
5514 
5515 
5516 
5517 
5518 
5519 
5520 
5521 
5522 
5523 
5524 
5525 
5526 
5527 
5528 
$529 
5530 
5531 
5532 
5533 
5534 
5535 
5536 
5537 
5538 
5539 
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DEF INE 


EXE$GL_RPB, - 
VERSION MASK=<SYSGEN> 


-LONG 0 

DEFINE EXESGL_SCB,- 
VERSION_MASK=<SYSGEN> 

-LONG 0 

DEFINE EXES$GL_ARCHFLAG, - 
VERSION_MASK=<SYSGEN> 

-LONG 0 

DEFINE EXESGL STATE, - 
VERSION_MASK=<SYSGEN> 

-LONG 0 

DEFINE LDRS$GL_FREE_PT, - 
VERSION_MASK=<SYSGEN> 

-LONG 0,0 

DEFINE EXE$GB_CPUDATA, - 
VERSION_MASK=<SYSGEN> 

-LONG 0,0,0,0_ 

DEFINE EXES$GB_CPUTYPE, - 
VERSION_MASK=<SYSGEN> 

-BYTE 0 

DEFINE EXESGW_CPUMODEL, - 
VERSION_MASK=<SYSGEN> 

-WORD 0 

IF NOT DEFINED VERSION 

-ALIGN LONG 

.IF_FALSE 

DEFINE CLUS$GL_NISCS_AUTH, - 
VERSION _MASK=<SYSGEN> 

DEFINE PFNSC_WORD_LEN, - 
VERSION_MASK=<SYSGEN> 

DEFINE PFNSC_LONG LEN, - 
VERSION_MASK=<SYSGEN> 

-ENDC 

DEFINE CLUSGB_NISCS_COMM, - 
VERSION_MASK=<SYSGEN> 

DEFINE CLU$GQ_NISCS_AUTH, - 
VERSION_MASK=<SYSGEN> 

-QUAD 0 

DEFINE CLUSGL_NISCS_GROUP, - 
VERSION _MASK=<SYSGEN> 

-LONG 0 

-LONG 0 


=e 


we 


we 


we 


Ve 


we 


we 


=e 


we 


ve 


e 
ao 


we 


VIRTUAL ADDRESS OF RESTART PARAMETER BLK 


VIRTUAL ADDRESS OF SCB 


ARCHITECTURAL FLAGS (BITS DEFINED 
BY SARCDEF 


FLAGS BOOTSTRAP PROGRESS 


POINTER TO FREE SPTE 


16 BYTES OF DATA ABOUT THE CPU 
4 BYTES FOR SID, REST CPU SPECIFIC 


CPU TYPE READ FROM SID 


CPU MODEL NUMBER 


NISCS communications region 


Authorization quadword 
Group code 


Spare for NISCS extensions 
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$540 
5541 
5542 
5543 
5544 
5545 
5546 
5547 
5548 
5549 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 
5558 
5559 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 
5578 
5579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
5594 
5595 
5596 


~QUAD 


IF 
IF 


0 


NOT_DEFINED, VERSION 


NDF, PRMSW 


CLU$GS_NISCS_COMM == 24 
PFN$C_WORD_LEN == 18 
PFNS$C_LONG LEN == 22 


-ENDC 


.IF_FALSE 


DEFINE 
DEFINE 
DEFINE 


-ENDC 

DEFINE 
.BYTE 

DEFINE 
- WORD 

DEFINE 
- WORD 

- IF 

- ALIGN 
-ENDC 

DEFINE 
PFNALC 
PFNALC 
PFNALC 


PFNALC 
PFNALC 


PFNALC 
PFNALC 


PFNALC 


CLU$GS_NISCS_COMM, - 
VERSION _MASK=<SYSGEN> 


PFNSC_WORD_ LEN, - 
VERSION _MASK=<SYSGEN> 


PFNSC_LONG_LEN, - 
VERSION MASK=<SYSGEN> 


PFNSGB_LENGTH, - 
VERSION_MASK=<SYSGEN> 
PFNSC_WORD_LEN 


MMGSGW BIGPFN, - 
0 


EXES$GW.PGFL FID, - 
VERSION_MASK=<SYSGEN> 
0,0,0 


NOT DEFINED, VERSION 
LONG 


PFNSA_BASE, ~ 

VERSION MASK=<SYSGEN> 
L, PTE, ~- 
VERSION_MASK=<SYSGEN> 
L, BAK, - 

VERSION _MASK=<SYSGEN> 
W, REFCNT, - 

VERSION _MASK=<SYSGEN> 
x, <FLINK, - 

SHRCNT>, - 

VERSION _MASK=<SYSGEN> 
x, <BLINK, ~ 

WSLX>, - 

VERSION MASK=<SYSGEN> 
W, SWPVBN, - 

VERSION _ MASK=<SYSGEN> 
B, STATE, - 

VERSION MASK=<SYSGEN> 
B, TYPE, - 

VERSION MASK=<SYSGEN> 


VERSION_MASK=<SYSGEN> 


; 


we 


™e “eae Se 


™e 


we 


we @e 


we 


we me we we ™e 


7 


~e Ye 


we 


ve 


Spare for NISCS extensions 


Size of communcations region 


--- with word length FLINK and BLINK 
--- with longword length FLINK and BLINK 


Number of bytes per page in PFN data base 
Defaults to word length FLINK and BLINK 

3? Flag to indicate size of PFN FLINK 
word for historical reasons 
FILE ID OF PAGEFILE.SYS 


IF FILE IS IN PAGE FILE 


LONWORD ALIGN POINTERS 

BASE OF PFN POINTERS 
ADDRESS OF PAGE TABLE ENTRY 
BACKING STORE ADDRESS 
REFERENCE COUNT 


FORWARD LINK 
7 ALSO USED AS GLOBAL SHARE COUNT 


BACK LINK 
ALSO USED AS WORKING SET LIST INDEX 


SWAP IMAGE VIRTUAL BLOCK OFFSET 
STATE OF PAGE 


TYPE OF PAGE 
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5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
5611 
5612 
5613 
5614 
5615 
5616 
5617 
5618 
5619 
§620 
5621 
5622 
5623 
5624 
5625 
$626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
§642 
5643 
§644 
§645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 
5653 


DEFINE EXESGT_STARTUP, - # NAME OF STARTUP COMMAND FILE 
VERSION_MASK=<SYSGEN> 


-ASCIC /SYSSSYSTEM:STARTUP.COM/; DEFAULT VALUE 


IF NOT DEFINED VERSION 

- BLKB <32-<.-EXESGT_STARTUP>> ; ALLOW FOR 31 BYTES + COUNT 
-ENDC 

IF NOT DEFINED VERSION 

IF NDF, PRMSW ? IF EXEC VERSION 


The cells in this module between the definition of EXESC SYSPARSZ and 
the definition of BOO$C_SYSPARSZ are used for communication between 
SYSBOOT and SYS.EXE without interference from the SYSGEN USE and WRITE 
commands. SYSBOOT uses BOOSC_SYSPARSZ as the size of the parameter area. 
SYSGEN uses EXESC_SYSPARSZ as its size constant and so SYSGEN commands 
do not affect the contents of cells that follow the definition of 
EXESC_: SYSPARSZ. 


=e Ye Ve Se Ve Ve Veo Ne Ve 


EXE$C_SYSPARSZ==.-EXESA_SYSPARAM 
BOOSC_SYSPARSZ==.-EXE$A_SYSPARAM 


SIZE OF SYSTEM PARAMETERS 
SIZE OF PARAMETER AREA READ BY SYSBOOT 


se Ne 


Define offsets to selected data cells from the base of the non-SYSGEN 
data defined in this module. 


we Se Ne Ne 


PFN_AB STATE == PFNSAB_STATE - SGN$A_COMPVALUES 
PFN_AB TYPE == PFNSAB_TYPE - SGNSA_COMPVALUES 
PFN_AL BAK == PFNSAL_BAK - SGNSA_COMPVALUES 
PFN_AL PTE == PFNSAL_PTE - SGNSA_COMPVALUES 
PFN_AW_REFCNT == PFNSAW_REFCNT - SGNSA_COMPVALUES 
PFN _AW SWPVBN == PFNSAW_SWPVBN - SGNSA_COMPVALUES 
PFN_AX BLINK == PFNSAX_BLINK - SGNSA_COMPVALUES 
PFN AX F'LINK == PFNSAX_FLINK - SGN$A_COMPVALUES 
PFN_AX_SHRCNT == PFNSAX_SHRCNT - SGNSA_COMPVALUES 
PFN_AX_WSLX == PFNS$AX_WSLX - SGNSA_COMPVALUES 

MMG GL_GPTBASE == MMGSGL_GPTBASE - SGNS$A_COMPVALUES 
MMG GL_SPTBASE == MMGSGL_SPTBASE - SGNS$A_COMPVALUES 
SWP_GL_BALSPT == SWP$GL_BALSPT - SGNSA_COMPVALUES 
SWP_GL BALBASE == SWP$GL_BALBASE - SGNSA_COMPVALUES 


-IFF 
-PSECT $$$918, LONG 
-LONG 0 
BOOS$C_PRMBLKSZ==.-BOOSA_PRMBLK 
-ENDC 
. IF_FALSE 


FLAG TO MARK END 
Compute length of descriptor area 


we Se Se Ne Ye 


DEFINE EXES$C_SYSPARSZ,- 
VERSION MASK=<SYSGEN> 


DEFINE BOOS$C_SYSPARSIZ, - 
VERSION _MASK=<SYSGEN> 


DEFINE PFN AB STATE, - 
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5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 
5693 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
5703 
5704 
5705 
5706 
5707 
5708 
5709 
5710 


we 


=e 6s 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


DEFINE 


-ENDC 
-ENDC 


Terminate the 


-ENDM 


VERSION_MASK=<SYSGEN> 


PEN_AB_ TYPE, ~- 
VERSION | _MASK=<SYSGEN> 


PFN_AL_ BAK, - 
VERSION | _MASK=<SYSGEN> 


PFN_AL PTE,- 
VERSION |_MASK#=<SYSGEN> 


PFN _AW_REFCNT, - 
VERSION |_MASK=<SYSGEN> 


PFN_AW_SWPVBN, ~ 
VERSION_MASK=<SYSGEN> 


PFN_AX_BLINK, - 
VERSION_MASK=<SYSGEN> 


PFN _AX_FLINK, - 
VERSION | MASK=<SYSGEN> 


PFN_AX SHRCNT, - 
VERSION | MASK=<SYSGEN> 


PFN_AX_WSLX, - 
VERSION_MASK=<SYSGEN> 


MMG_GL_GPTBASE, - 
VERSION_MASK=<SYSGEN> 


MMG _GL_SPTBASE, - 
VERSION | MASK=<SYSGEN> 


SWP_GL_BALSPT, - 
VERSION _MASK=<SYSGEN> 


SWP_GL_BALBASE, - 
VERSION _MASK=<SYSGEN> 


BOOS$C_PRMBLKSZ, - 
VERSION_MASK=<SYSGEN> 


3 Version 
; NOT _DEFINED GETSYISW 


definition of the macro 


SYI_GENERATE_TABLE 


Invoke the macro just defined (if this isn’t getsyi) 
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$711 IIF NOT DEFINED GETSYISW, ‘SYI_GENERATE_TABLE 


CONFIDENTIAL AND PROPRIETARY =< 
DIGITAL EQUIPMENT CORPORATION 


SYSPARAM - SYSTEM PARAMETERS 10-MAY-1969 15:26:20 VAX MACRO V5.0-8 Page 106 
X-101U18 COMPUTED VALUES 6-APR-1969 10:16:35 [SYS.SRC)SYSPARAM.MAR/2 (2) _ 


5712 
$713 -IIF  § NOT DEFINED GETSYISW, END + PREFIX FILE, IF GETSYISW 
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Table of contents 
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(3) 165 CMODSSSVECX - RMS exception vector 

(4) 199 ~- Filtered EXEC Mode Dispatcher 

(5) 247 - Change Mode to EXEC Dispatcher 

(6) 384 Error Handling for EXEC Mode Services 
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(10) 659 Error Handling for KERNEL Mode Services 
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X-12 23-JUN-1988 14:57:50 SYSTEM SERVICE _DISPATCHER.MAR;1 (1) 


-TITLE SYSTEM_SERVICE_DISPATCHER ~ Change Mode System Service Dispatcher 
-IDENT ‘X-12' 


PERAERKAEKHKHKEEKRKKKEKEKKE RHKK KKK EERE KEKKRKEKEKKREREEKEKEEEKREEKRKKKEKKKKE 
ox : 


ODI aA UN aAWN Ee 


® 
eo 
#* COPYRIGHT (c) 1985 BY : 
7* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
#* ALL RIGHTS RESERVED. * 
i x 

10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

12 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

13 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

15 ;* TRANSFERRED. ® 

16 ;* * 

17 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

19 ;* CORPORATION. * 

20 ;* = 

21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

22 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

23 3% x 

24 3* * 

25 JOR IGI SO ISISI SOI GI I IOI ICIOI TO IOI IEICE ITE IOS TOI IST OES IITA III 

26 

27 ++ 

28 ; Facility: 

29 ; 

30 ; VAX/VMS Executive, EXCEPTION image 

31 ; 

32 ; System Service Dispatcher for Kernel and Exec Access Modes 

33 ; 

34 ; Abstract: 

35 ; : 

36 ; The code in this module contains the system service dispatchers for 

37 ; exec and kernel access modes. In addition, this module contains the 

38 ; kernel mode dispatcher that is used in attached processors in an 

39 ; asymmetric multiprocessor. 

40 ; 

41 ; Author: 

42; 

43 ; David N. Cutler 

44 ; ; 

45 ; Creation Date: 

46 ; 

47 ; 22 June 1976 

48 ; 

49 ; Modified by: 

50 ; 

51 ; X-12 HHO322 Hai Huang 23-Jun-1988 

52 3 Make SERVICE_EXIT a global symbol so the condition handler 

53.3 search algorithm can detect a system service frame. 

54 ; 

55 ; X-11 RNG5011 Rod Gamache 16-Apr-1987 

56 ; Speed up certain operations. Like using CTLS$GL_PCB and 

57 3 


interleaving register and memory references in CMODSASTEXIT. 
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58 ; 

$59 ; X-10 SFO04006 Stephen Fiorelli 24-Feb-1987 

60 ; Make the dispatching path go a little faster. 

61 ; Intersperse memory and register references for speed, 
62 ; and eliminated special case code incase we are the 

63 ; swapper. The swapper now has a pl space. 

64 ; 

65 ; X~-9 SF04005 Stephen Fiorelli 26-Sep-1986 

66 ; Do not continue on in the error path of SERVICE EXIT 
67 ; if the stack pointer is in system space. This implies 
68 ; the swapper which does not have a Pl space, and cannot 
69 ; reference Pl cells. 

70 3 

71 3 x-8 SF04004 Stephen Fiorelli 09-Apr-1986 

72 3 Add a special case CHME code #0, used to generate 

73 3 a possible system service failure exception that 

74; occurred during the execution of rms synchronization 
75 3 code. 

76 3 

77 3 X-7 SFO04003 Stephen Fiorelli 21-Mar-1986 

78 ; Load PCB before determining if a CHMK code is for 

19 3 a user written system service. 

80 ; ; 

81 ; X-6 SF04002 Stephen Fiorelli 17-Dec-1985 

82 ; Add some code that will change the return PC pushed 

63 ; onto the stack before a system service is executed. 

84 ; This is done because some services need to perform 

85 ; some synchronization, before returning. The changed 

66 ; PC will represent the address of the synchronization 

87 ; routine the system service needs to execute. 

68 ; 

89 ; xX~-4 TcmM0001 Trudy C. Matthews 5-Nov~-1985 

90 ; . Change default alignment of psect EXECSNONPAGED CODE to QUAD. 
91 ; 

92 3 V04-002 SF04001 Stephen Fiorelli 16-Oct-1985 

93 ; Change PSECT declaration to be a standard PSECT. 

94 ; 

95 ; V04-001 LJK4007 Lawrence J. Kenah 15-May-1985 

96 ; Being a complete rewrite of this part of the system. 
97 ; The module was split into two functional pieces. One piece 
98 ; contains the definitions of the various services. The other 
99 ; piece, this module, contains the various dispatchers. 
100 ; 
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102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 


; 


e 
a 


e 
eo 


o 


- SUBTITLE 
Include files: 
SDISPDEF 
SIPLDEF 
$PCBDEF 
SPRDEF 
$P SLDEF 
External declarations 
-DISABLE 
Status codes 


- EXTERNAL 


Declarations 

+ Dispatch vector contents 

? IPL symbolic definitions 

3 Process control block offsets 

# Processor register definitions 

; Fields in processor status longword 
GLOBAL 


BUG$_MTXCNTNONZ, - 
SS$_ACCVIO, - 
SS$_ILLSER, - 
SS$_INHCHME, - 
SS$_INHCHMK, - 
SS$_INSFARG 


Global data cells 


- EXTERNAL 


3 «-- for exec mode services 


CMOD$GW_CHME LIMIT, - 
CMOD$AR_EXEC_DISPATCH_ VECTOR, - 
CMODSAB_EXEC_INHIBIT MASK, - 
CMOD$AB_EXEC_MIN ARG COUNT 


- EXTERNAL 


- 2 «-.- and for kernel mode services 


CMODS$GW_! CHMK _ LIMIT, - 

CMODSAR_! KERNEL DISPATCH VECTOR, - 
CMODSAB | KERNEL _ INHIBIT ' MASK, = 
CMODSAB _ KERNEL | MIN ARG COUNT 


. EXTERNAL 


= 7; Other global data cells 


CMODSAL_EXIT TYPE ,- 
CTL$GB_SSFILTER, - 
CTLSGL PCB, - 


CTLS$GL_RMSBASE, 
CTL$GL_USRCHME, 
CTL$GL_USRCHMK, 
EXESGL_USRCHME, 


EXESGL_USRCHMK, - 
SMP$GL_BASE_MSK 


External routines 


- EXTERNAL 


EXESREFLECT, - 
EXESSSFAIL, - 
SCHSNEWLVL 
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159 ; PSECT Declarations: 


160 

161 «DEFAULT DISPLACEMENT , WORD 

162 

163 DECLARE_PSECT EXECSNONPAGED_CODE, ALIGNMENT=QUAD 
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165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 


- SUBTITLE CMODSSSVECX - RMS exception vector 


+ 


Functional Description: 


This routine is call to generate a possible system service 
exception during the execution of rms synchronization code 
(found in the module system service exit.mar). The status 
was place in R2, this routine merely places the status in 
RO and returns through the common system service exit 
path. 


~we Ve Ye Be Be Be Ve e Ve 


A change mode to exec is needed for this because the 
rms synchronization code executes in the callers mode. 


@e Ve Te Ne 


Input Parameters: 


me Ve Se 


R2 - Status placed there within common rms synchronization 
code 


we Ne 


Output Parameters: 
RO - Contains the status from the rms synch code 
Side Effects: 


none 


%e Me Me Me Me Me Me Me 


CMODS SSVECX: : 
JSB B“*108 

108: MOVAB SERVICE EXIT, (SP) 
MOVL R2, RO 
RSB 


Push a PC onto the stack 

Change return PC to common exit path 
Move status into RO 

Return through service exit path 


me Ne Ne Ye 
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199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 


-SUBTITLE - Filtered EXEC Mode Dispatcher 


+ 


Functional Description: 
This routine receives control via the system control block (SCB) when 
a CHME instruction is executed on a system that has the SSINHIBIT 
SYSGEN parameter set. This routine checks whether the calling process 


can execute the service before qebened. centeet oe. through to the 
normal CHME dispatcher . 


Input Parameters: 
00(SP) ~- CHME code 


04(SP) - PC following CHME instruction 
08(SP) - PSL at the time that CHME was executed. 


Implicit Input: 
CTLS$GB_SSFILTER - System service filter for the calling process 
Inhibit mask associated with the specific suasvasas service 

Output Parameters: | | | | 
Unchanged from input 

Return Status: 
If the service is allowed, this routine passes control to EXESCMODEXEC 
Failure Codes | 


SS$_INHCHME - The calling process is not allowed to 
call this service 


@e Te Ne Ye Ye Ye Yo Se Ye Ne Ye Ye Ye Ye Ye Ye Te Ye Ye Ne Ne Ne Ce Ye Te Ve Ye Ye Ye Te Ye Ve Ye 


-ALIGN QUAD SCB vectors must be aligned 


we 


EXESCMODEXECX: : 
BICL3 8(SP), - 
#PSLS$M_CURMOD, RO Check the previous mode 
BNEQ EXESCMODEXEC Only USER mode is inhibited 
MOVZBL (SP), RO Pick up the CHME code (MOD 256) 
BITB § CMOD$AB_EXEC_INHIBIT MASK[RO], - 
G*CTL$GB_SSFILTER AND with the inhibit mask 
BEQL EXESCMODEXEC This code is allowed 
MOVZWL #SS$_INHCHME, Rl Set the exception code 
BRW INHEXCP -e- and reflect it 


Se Ye Ne 


me Ve Se Ye 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SYSTEM_SERVICE_DISPATCHER - Change Mode System Service Dispatcher 10-MAY-1989 16:08:15 VAX »¥ 


8 Page 7 
X-12 - Change Mode to EXEC Dispatcher 23-JTIN-1988 14:57:50 SYSTEM SERVICE _DISPATCHER.MAR;1 ( 


247 -SUBTITLE ~ Change Mode to EXEC Dispatcher 

248 3+ 

249 3; Functional Description: 

250 ; 

251 ; This routine receives control via the system control block (SCB) when 
252 ; a CHME instruction is executed. If the CHME code corresponds to an 
253 ; existing service, this routine passes control to a service-specific 
254 ; procedure after building a naked call frame (no saved rogisters or 
255 ; stack alignment) on the EXEC stack, checking for the required argument 
256 ; count, and probing the argument list for write access. 

257 3; 

258 ; Input Parametors: 

259 ; 

260 ; 00 (SP) - CHME code 

261 ; 04(SP) - PC following CHME instruction 

262 3 O08(SP) - PSL at the time that CHME was executed. 

263 ; 

264 ; Implicit Input: 

265 ; 

266 ; Argument list to be passed to the service 

267 ; 

268 ; Output Parameters: 

269 ; < 

270 ; none 

271 ; 

272 ; Implicit Output: 

273 ; a 

274 3: A call frame is built on the exec stack (by hand for speed) 

275 3; 

276 ; OO(FP) - Null condition handler address 

277 ; O4(FP) - Null register save mask 

278 3; O8(FP) - Saved AP 

279 ; -12(FP) - Saved FP 

280 ; 16(FP) - Return PC. This cell always contains the address 
281 ; of SERVICE EXIT. 

282 ; 

283 ; Return Status: 

284 ; 

285 ; Successful passage through this routine result in a control transfer 
286 ; to a service-specific procedure. This routine does not return any 
287 ; success status. 

288 ; 

289 ; Failure Codes 

290 ; 

291 ; SS$_ACCVIO - The argument list could not be read 

292 ; SS$_INSFARG - Not enough arguments were supplied to the service 
293 ; SS$_ILLSER - An unknown change mode code was used 

294 ; 

295 ; Note: . 

296 ; 

297 ; This routine is coded for speed. Instructions that write to memory (to 
298 ; build the call frame) are interspersed with instructions that 

299 ; reference only registers or the instruction stream. 

300 ;- 

301 7 : ; 

302 -ENABLE | LOCAL BLOCK 

303 


305 
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304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 


-ALIGN QUAD 7 SCB vectors must be aligned 
EXESCMODEXEC: : 
POPL RO Retrieve CHME code from stack 


me 


we Me 


me Ye 


=e Te Ve 


me te TO Se Ve Ve 


=e 


BEQL CMODS$ SSVECX 
PUSHAB SERVICE_EXIT 
MOVZBL RO, Rl 


Special code for CHME #0 
RETURN PC 


Limit the range of CHME codes 


we Ve Ne Ve 


Build the rest of the call frame. 


PUSHL FP 7; Save FP 
PUSHL AP 3 Save AP 
MOVAQ CMODSAR_EXEC_DISPATCH_VECTOR[R1], - 
R1 Get service-specific data 
CLRQ ~ (SP) Fill in the rest of the call frame 
MOVL SP, FP Point FP at new call frame 


eo Ye Ve 


See if the CHME code corresponds to a service that has been loaded 


CMPW RO, CMODSGW_CHME LIMIT 
BGEQU 10$ 


Insure that the service has been called with enough arguments and that 
the argument list is readable from caller’s mode. 


IFNORD DISP_W ARG LIST SIZE(R1), - 
(AP), EXEC_ACCVIO 7 Branch if inaccessible argument list 


CMPB (AP), - 7 Check for enough arguments 
DISP_B ARGUMENT COUNT (R1) 
BLSSU. EXEC_INSFARG 


TSTB DISP_B EXIT TYPE (R1) Check if special synchonization code 


needs to be executed after service calll 
No special synchronization code 


%e Ye Ve 


BEQL 5$ 


Some system services need to execute some form 
of synchronization code before returning back to 
the caller. The following code changes the 
return PC placed on the stack by CHME 

to be the address of the synchronization code 

to be executed. 


CMODSAL_EXIT_TYPE - Table containing the addresses of 
synchronization code indexed by 
the contants of DISP_B EXIT TYPE (R1) 


MOVZBL DISP_B EXIT _TYPE(R1),R2 Get the index into 


CMODSAL_EXIT_TYPE 
Change the return address 


ee Se Me 


MOVL | CMODSAL_EXIT_TYPE[R2] ,20(SP) 


5$: JMP @DISP_A_SERVICE_ROUTINE (R1) 


me Ye Ze 


A CHME instruction was executed with a code that does not represent an 


existing service. Try the various loadable service dispatchers befor 
returning an error status. 
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361 ; 

362 ; Note that these various dispatchers can either ACCEPT the Jevics code 
363 ; (and eventually return with a RET to SERVICE_EXIT) or reject the code. In 
364 ; this latter case, they return here with an RSB to allow the next aaa sah 
365 ; in line to be tried. 

366 

367 108: TSTB GACTL$GB_SSFILTER 

368 BNEQ 40$ 

369 

370 MOVL G“CTL$GL_USRCHME, R1 ? 

371 BEQL 20$ = 

372 JSB (R1) 

373 

374 208: MOVL G“EXESGL aaa R1 ‘3 

375 BEQL 30$ 

376 ' JSB ~ (R21) 

377 

378 308: MOVZWL #SS$_ILLSER, RO 

379 RET 

380 

381 408: MOVZWL #SS$_INHCHME, R1 3 Load failure code 

382 BRW INHEXCP 1 7 Reflect the error 


307 
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384 - SUBTITLE Error Handling for EXEC Mode Services 

385 3+ 

386 ; Functional Description: 

387 ; 

368 ; These routine receive control when the change mode dispatcher delects 
389 ; an error while checking the validity of the argument list. 

390 ; are. 

391 ; Input Parameters: 

392 ; 

393 ; Identical to the output of the change mode dispatcher 

394 3 

395 ; Implicit Output: 

396 ; 

397 ; If the change mode code is recognized, then the service is immediately 
398 ; dismissed with an appropriate status. Note that errors detected by the 
399 ; dispatcher are not signalled as system service failure exceptions. 
400 ;- 

401 

402 EXEC _ACCVIO: 

403 MOVZWL #SS$_ ACCVIO, RO 

404 RET 

405 

406 EXEC_INSFARG: 

407 MOVZWL #SSS$_INSFARG, RO 

408 RET 

409 

410 - DISABLE LOCAL_BLOCK 
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412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 


 4421— 


442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 


+ 


je Ne Ne Ne Se Te Ye Ye Ne Yo Ye Ve Ve Ve 


Input 


we Ne Ne Se Ne Ne Ne Se Xe Se Ne te No Me Ye Me Ne Ne Ne Me Me Me Se 
- 


- SUBTITLE CMODSASTEXIT - System Service to Clear AST Context 


Functional Description: 


x 


This routine is called after an AST has completed to clear the AST 
active bit and to allow any pending ASTs to be delivered. A system 
service is required to accomplish this because an AST executes in 
caller’s mode but the AST context. is stored sei the PCB. 


This service can be called directly with a naked CHMK #ASTEXIT or 
through the EXESCLRAST system service vector. The AST delivery code 
uses the forst method to avoid cluttering the stack with an additional 


call frame during AST exit PAOCOREEN gs : 
Parameters: 


0(SP) ~ PC following the CHMK #ASTEXIT 
4(SP) - PSL at the time that the CHMK #ASTEXIT was issued 


Output Puramecere: 


none 


Implicit Output: 


PCBSB_ASTACT is cleared for caller’s mode. 


PHDSB_ASTLVL is set to the access mode of the next pending AST, if 
there. is one, or to 4 if there are no pending ASTs that can be 
delivered at the current time. 


Side Effects: 


The calling thread is demoted from execution at AST level to execution 
at main line level. In other words, this service can be used by code 


_.,executing at AST level to allow other ASTs to be delivered before the 
“caller exits its own thread of execution. 


CMODSASTEXIT: : 


10S: 


EXTZV _ $PSLSV  CURMOD, - ; Load caller’s mode into RO 
#PSLS$S_CURMOD, - ae | 
_ 4(SP), “RO. : quell aA 7 
PUSHL .R4 . 3 Save R4:. = 
MOVL G*CTLSGL_ Poe, Ré 3; Get PCB address of caller 
PUSHL R2 7 ee. and R2 - 
3 


SETIPL, #IPL$ |; ASTDEL . Prevent AST delivery 


BBCCI RO, PCBSB | ASTACT (R4), ™ 


10$ 3; Clear AST active bit for caller’s mode 
JSB G*“SCHSNEWLVL 7 Compute new AST level setting 
POPL R2 3; Restore R2 
POPL R4 37 .e. and R4 


REI and return to caller 
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466 
467 
468 
469 
470 
471 
472 
473 


=e 


Be Se Me Ye Se Ve Se Ye Te Te Te Ye Ye Yo Ye Ve Me Me Te Ye Te Te Ye Ye Ve Te Ve Ve Va Ve Ve Ve 


+ 


-SUBTITLE - Filtered KERNEL Mode Dispatcher 


Functional Description: 


Input 


This routine receives control via the system control block (SCB) when 
a CHMK instruction is executed on a system that has the SSINHIBIT 
SYSGEN parameter set. This routine checks whether the calling process 
can execute the service before letting control drop through to the 
normal CHMK dispatcher . 


Parameters: 


00(SP) -~ CHMK code 
04(SP) - PC following CHMK instruction 
08(SP) - PSL at the time that CHMK was executed. 


Implicit Input: 


CTLSGB_SSFILTER - System service filter for the calling process 


Inhibit mask associated with the specific exec mode service 


Output Parameters: 


Unchanged from input 


Return Status: 


If the service is allowed, this routine passes control to EXESCMODKRNL 


Failure Codes 


SS$_INHCHMK - The calling process is not allowed to 
call this service 


-ALIGN QUAD 


ee 


SCB vectors must be aligned 


EXESCMODKRNLX: : 


BICL3 8(SP), - 
#PSLS$M_CURMOD, RO Check the previous mode 

BNEQ EXESCMODKRNL Only USER mode is inhibited 

MOVZBL (SP), RO Pick up the CHMK code 


BITB CMODSAB_! KERNEL_ INHIBIT MASK[RO], - 


we Ye Ve 


G*CTLSGB | SSFILTER 3 AND with inhibit mask 
BEQL EXESCMODKRNL 3 This code is allowed 
MOVZWL #SS$_INHCHMK, Rl 3 Set the exception code 
BRW INHEXCP 3 ee. and reflect it 
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514 
515 
516 
517 
518 
519 
520 
521 
522 
523 


524 


525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
$42 
543 
544 
545 
546 


547 


548 
549 
550 
551 
552 
553 
554 


555. 


556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 


=e %e Mo Ne Ne 


ee Vea Ve Ve Ve 


Se Ne 


me Me Te Ve Se Ne Veo Ye Ne Ye Ve Se Ne Ve VO NO we 


we Ve Me Ye Me Ne Me 


me Se Ne 


ve 


~e Ne Se Me Se Ne Ne Ne Ne 


=e (Ne 


we Ne 


+ 


-SUBTITLE - Change Mode to KERNEL Dispatcher 


Functional Description: 


Input 


This routine receives control via the system control block (SCB) when 
a CHMK instruction is executed. If the CHMK code corresponds to an 
existing service, this routine passes control to a service-specific 
procedure after building a naked call frame (no saved registers or 
stack alignment) on the EXEC stack, checking for the required Stayer: 
count, and probing the argument list for write access. 


Parameters: 


00(SP) - CHMK code . 
04(SP) - PC following CHMK instruction 
O8(SP) - PSL at the time that CHMK was executed. 


Implicit Input: 


Argument list to be passed to the service 


Output Parameters: 


none 


Implicit Output: 


A call frame is built on the kernel stack (by hand for speed) 


OO(FP) - Null condition handler address 

04(FP) ~- Null register save mask 

O8(FP) - Saved AP : 

12(FP) - Saved FP 

16(FP) - Return PC. This cell always contains the address 
of SERVICE_EXIT. 


Return Status: 


Note: 


Successful passage through this routine result in a control transfer 


to a service~specific procedure. This routine does not return any 
success status. 


Failure Codes 


SS$_ACCVIO - The argument list could not be read 


SS$_INSFARG - Not enough arguments were supplied to the service 
SS$_ILLSER - An unknown change mode code was used 


This routine is coded for speed. Instructions that write to memory (to 
build the call frame) are interspersed with instructions that 
reference only registers or the. instruction stream. 


ENABLE = —LOCAL_ BLOCK 


311 
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-ALIGN QUAD-> qposl sere ; SCB vectors must be aligned 





571 
a 2 aon 
QS 73NEXESCMODERNL: : of > moke- XQ | 
574 POPL RO—> widlRetrieve CHMK code from stack 
575 BEQL CMODSASTEXIT + Special code for CHMK ¢0 
576 PUSHAB senvice_exrt \y ; RETURN PC 
$77 MOVZBL RO, R1 imit the range of CHMK codes 
578 7 QoL: 4 
579 ; Build the rest of the call frame. joke SoA daannt 
580 
581 MOVL § G*CTLSGL_PCB, Ré ; Get current PCB address  (_5=— 
582 PUSHL FP 3 Save FP> 
5863 PUSHL AP 7 Save AP 
584 MOVAQ CMODSAR_KERNEL DISPATCH | VECTOR[R1), - 
585 R1 + Get service-specific data 
586 CLRQ ~(SP) 3; Fill in the rest of the call frame 
587 MOVL SP, FP 7 Point FP at new call frame 
588 
589 
590 ; See if the CHMK code corresponds to a service that has been loaded 
591 
592 CMPW RO, CMODSGW_CHMK LIMIT 
593 BGEQU 10S 
594 
595 ; Insure that the service has been called with enough arguments and that 
596 ; the argument list is readable from caller’s mode. 
597 
598 
599 IFNORD DISP_W ARG LIST SIZE(R1), - 
600 (AP), KERNEL _ ACCVIO ? Branch if inaccessible argument list 
601 
602 CMPB (AP), - 3 Check for enough arguments 
603 DISP_B ARGUMENT COUNT (R1) 
604 BLSSU KERNEL _ INSFARG 
605 TSTB DISP_B EXIT _TYPE(R1) 7 Check if special synchonization code 
606 3; needs to be executed after service calll 
607 BEQL 5$ # No special synchronization code 
608 
609 ; . 
610 ; Some system services need to execute some form 
611 ; of synchronization code before returning back to 
612 ; the caller. The following code changes the 
613 ; return PC placed on the stack by CHMK 
614 ; to be the address of the synchronization code 
615 ; to be executed. 
616 ; . 
617 ; CMODSAL_EXIT TYPE - Table containing the addresses of 
618 ; synchronization code indexed by 
619 ; the contants of DISP_B EXIT TYPE(R1) 
620 ; 
621 
622 MOVZBL DISP_ B EXIT TYPE(R1),R2 3 Get the index into 
623 | ; CMODSAL_EXIT_TYPE 
624 MOVL CMODSAL_EXIT_TYPE[R2],20(SP) ; Change the return address 
625 
626 ; Most kernel mode system services need the PCB address. For that reason, 
627 ; the PCB address of the current process is loaded into R4 before the dispatch 
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628 ; takes place. Note that this requires all kernel mode services to include 
+ R4 in their entry mask. 


629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 


58:3 


208: 


308: 


408: 


JMP 


TSTB 
BNEQ 


MOVL 
BEQL 
JSB 


MOVL 
BEQL 
JSB 


MOVZWL 
RET 


MOVZWL 
BRW 


€DISP_A_SERVICE_ROUTINE (R1) 


G*CTLS$GB_SSFILTER 
40$ 


G*CTLSGL_USRCHMK, R1 
20$ 
(R1) 


G*EXE$GL_USRCHMK, Rl 
30$ 

(R1) 

#SS$ ILLSER, RO 


#SS$_INHCHMK, R1 
INHEXCP1 


=e 


ve 


e 
¢ 
e 
¢ 


A CHMK instruction was executed with a code that does not represent an 
existing service. Try the various loadable service dispatchers before 
returning an error status. 


Note that these various dispatchers can either ACCEPT the service code 

(and eventually return with a RET to SERVICE EXIT) or reject the code. In 
this latter case, they return here with an RSB to allow the next dispatcher 
in line to be tried. 


Load failure code 
Reflect the error 
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659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 


ee Te Ye Ve Ve Vo Vo ee Re Se Ve Yo Ye Ve Ve Vo 


- SUBTITLE Error Handling for KERNEL Mode Services 


+ 


Functional Description: 


These routine receive control when the change mode dispatcher delects 
an error while checking the validity of the argument list. 


Input Parameters: 


Identical to the output of the change mode dispatcher 


Implicit Output: 


If the change mode code is recognized, then the service is immediately 
dismissed with an appropriate status. Note that errors detected by the 
dispatcher are not signalled as system service failure exceptions. 


KERNEL ACCVIO: 
MOVZWL #SS$_ACCVIO, RO 
RET 


KERNEL_INSFARG: 
MOVZWL #SS$_INSFARG, RO 
RET 


. DISABLE LOCAL_BLOCK 
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687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
7102 
703 
704 
705 
706 
7107 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 


-SUBTITLE SERVICE_EXIT - System Service Completion 


+ 


Functional Description: 
This code receives control on return from the service-specific 
procedures. The success path is a simple exit (with an REI) back to 
the location of the CHMx instruction. If the service is reporting an 
error, this routine decides whether to merely report that error back 
to the caller or to signal an exception (SS$ SSFAIL). 

Input Parameters: 
RO - Final status from service-specific procedure 

Implicit Input: 
PCBSV_SSFEXC flag for caller’s mode 

Side Effects: 


If a system service has not released all owned mutexes, this | 
routine issues a fatal bugcheck. 


me Ne Ne Me Veo Te Ve Ve Ve Be Ye Te Te Ye Ye Ye Ye Ye Te Ws Te To 


SERVICE EXIT: : 
BLBC RO, 208 
10$: REI 


Branch if error 


we 


208: BITL #7, RO 
BEQL 10$ 


Was error merely a warning? 
No exception in that case 


we Ne 


Make sure that the service did not forget to unlock mutexes along 
some error path. 


=e Ye 


MOVL § G*CTLSGL_PCB, R1 
TSTW § PCBSW_MTXCNT(R1) 
BNEQ 40$ 


Get PCB address 
Any mutexes? 


we te 


See if system service failure exceptions are enabled for caller’s mode 


EXTZV #PSLS$V_CURMOD, - 
#PSL$S_CURMOD, - 
4(SP), -(SP) 

ADDL #PCBSV_SSFEXC, (SP) 

BBC (SP)+, PCB$L_STS(R1), - 
10$ 


Get caller’s mode 
oe from saved PSL 


™e te 


Add in base bit number 
If bit is clear, system service 
failure exceptions are disabled 


=e Ne Se 


Before we pass control to the exception dispatcher, let us make sure 
that IPL is zero. Exception dispatching at other than IPL 0 can cause 

a variety of problems. Note that IPL can only be nonzero if the current 
3; mode is kernel. 


-e Ve 


=e 


MOVPSL -(SP) 

EXTZV  #PSLS$V_CURMOD, - 
#PSL$S_CURMOD, - 
(SP), (SP)+ 


Get current PSL 
If the current mode is other than 
kernel, 


se Ne Se Neo 
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744 
745 
746 
747 
748 


780 
781 
782 
783 
134 
735 
756 
187 


30$: 


BNEQ  30$ 
SETIPL #0 
UMP G*EXESSSFAIL 


3 
3 
3 


ee. then IPL is guaranteed 0. 
Force IPL to 0 for error path 
Generate the exception 


7 A system service returned control to its caller while still controlling 
749 3; matexes. If the call was made from elevated IPL (IPLSASTDEL or higher), 
? then let this anamoly pass. Otherwise, issue a bugcheck. 


408: 


EXTZV #PSL$V_IPL, - 
#PSL$s_IPL, - 
4(SP), ~-(SP) 

CMPL ©(SP)+, #IPL$_ASTDEL 

BGEQ = 10$ 

BUG CHECK MIXCNTNONZ, FATAL 


¢ 


3 


3 
7 
3 


Extract caller’s IPL 
eee from saved PSL 


Test for elevated IPL 
Only bugcheck if at IPL 0 
MUTEX count nonzero at service exit 
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7159 
760 
761 
162 
763 
764 
765 
766 
767 
768 
169 
770 
771 
772 
7173 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
199 
800 
601 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 


- SUBTITLE INHEXCP - Inhibited CHMK or CHME code handling 
Functional Description: 


When the ability to use specified system services is inhibited via the 
S$SETSSF system service, this routine receives control when an attempt 
to execute an inhibited system service occurs. 


INHEXCP is called when no stack frame cleanup is required. That is, 
the change mode dispatcher has not yet built a call frame on the 
stack. 


INHEXCP1 is called when a call frame must be cleared from the stack. 


, 
H 


Parameters: 
Entry at INHEXCP 
Ril - Failure code (SS$_INHCHMK or SS$_INHCHME) 


00(SP) - Change mode code 
04(SP) - Saved PC of CHMx exception 
08(SP) - Saved PSL of CHMx exception 


Entry at INHEXCP1 


RO - Change mode code 
Rl - Failure code (SS$_INHCHMK or SS$_INHCHME) 


OO(SP) \ 

04(SP) \ 

08 (SP) > Call frame to be disacrded 
12(SP) / 

16(SP) / 

20(SP) - Saved PC of exception 

24(SP) - Saved PSL of exception 


Output Parameters: 
none 
Implicit Output: 
An exception is generated with the following signal array 
Argument Count (always 4) 
Signal Name (SS$_INHCHMK or SS$_INHCHME) 
Inhibited change mode code whose use was attempted 


PC following CHMx instruction 
PSL of CHMx instruction 


Se Te Ye Ve Te Ye Ne Te Ye Te Ye Ns Te Ye Ne Ye Be Ye Yo Ye Be Be Be Ye Ye Ye Ne We Ye Ye Yo Ye Noe Ve Yo Yo Ye Be Ye Ye Ve Ve Ve Ve Ve Ye Ye Ye Te Ye 


INHEXCP1: 
MOVL 12(SP),FP ;PICK UP THE OLD FP FROM FRAME 
ADDL #5*4,SP ;CLEAN OFF THE FRAME 
PUSHL RO ;RESTORE THE CHMX CODE 
INHEXCP : 
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816 PUSHL Ril 7;PUSH THE EXCEPTION CODE 

817 PUSHL #4 7;PUSH THE NUMBER OF ARGUMENTS 
818 JMP G*EXESREFLECT ;REFLECT THE EXCEPTION 

819 

820 END 
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Table of contents 
(2) 106 SYNCHSRMS_STALL - I/0 stall synchronization 
(3) 196 SYNCHSRMS_WAIT - Synchronization code for RMSSWAIT 
(4) 243 SYNCHSASSIGN_EXIT - Special check on exit from SASSIGN service 
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-TITLE SYSTEM SERVICE EXIT ~ System service exit/synchronization code 
-IDENT 'X-5’ 


3 
FRRRRERRRRARREREREAREEHEEERERRRERERREKERKERKEEKERRERERERRERAEEREEKHRERRERERERKKK HK 


1 
2 
3 
4 
5 ;* 
6 
7 
8 
9 


ae * 
7* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
7* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ® 
?* ALL RIGHTS RESERVED. * 
7* * 

10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

11 3;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

12 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

13 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

15 ;* TRANSFERRED. ‘ 

16 3* ® 

17 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 

18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

19 ;* CORPORATION. * 

20 3* * 

21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 

22 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 

23 3% * 

24 se * 

25 pRECRRRERRRHERERERERERERERERRERERERERREREERREKEEEEREREREEREERERERERERREREE ERK 

26 ; 

27 3 Facility: 

28 ; 

29 ; VAX/VMS Executive, EXCEPTION image. 

30 ; 

31 ; Abstract: 

32 ; 

33 ; ‘Code contained in this module, previously contained 

34 ; in the now dead CMODSSDSP.MAR module. Yeah. 

35 3 

36 ; The code was formerly assembled into system service 

37 ; vector area, and was gotton to by 

38 ; branches within the RMS system service vectors. 

39 ; Now, this code is gotton to by changing the return 

40 ; PC on the system service call frame by the 

41 ; system service dispatcher. 

42 ; 

43 ; Author: 

44; 

45 ; D. N. CUTLER 22-JUN-76 

46 ; 

47 ; MODIFIED BY: 

48 ; 

49 ; X-5 SAD0049 Stuart A. Davidson 27-A0G-1987 

50 ; Add exit routine for new exit type (ASSIGN _EXIT). It checks 

$1 ; for SS$_NONLOCAL, to execute SASSIGN to network object in 

§2 3: caller’s mode. 

§3 ; 

54 ; X~4 PJH Paul J. Houlihan 26-May-1987 

55 ; The SWAIT exit code, changed by Exec reorg, was formerly called 

56 3 via JSB. The S$WAIT exit code would then decide to either RSB or 

57 ; continue executing the SWAIT exit code by popping and discarding 
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58 
89 
60 
61 


104 


X-3 


X-2 


Se Se Se Te Te Se Ye Te Ne Te Ye Yeo Ye Ye Ve Vo 


+ 


we Ye Ne 


S$RABDEF 
$RMSDEF 
$SSDEF 

SSTSDEF 


we Ne Ne 


- EXTERNAL RMSSWAIT 

- EXTERNAL CLREF 

-EXTERNAL SETEF 

- EXTERNAL WAITFR 

- EXTERNAL EXESNETWORK_ ASSIGN 


service 


me Ve Ye We We 


SSVECX=0 


the return PC from the JSB. The new exec reorg mechanism is to 
fudge the system service call frame with the PC of the correct 
exit routine, thus no JSB is involved. The problem is that the 
vode is still discarding the (now non-existent) return PC. — 


SF04003 Stephen Fiorelli 09-Apr-1986 
Add the call to RMSSSSVECX in case we need to generate 
a possible system service failure exception. 


SF04002 Stephen Fiorelli 11-Jan-1986 
Change EXESWAIT to RMSSWAIT 


SFO04001 Stephen Fiorelli 17-Dec-1985 
Moved the code to this new module, and cleaned it up. 


Macro library calls 


Define RMS RAB fields 

RMS definitions 

Define system status values 
Define system status values 


™e Ye Ye Se 


External references 


RMS $WAIT vector 

CLREF change mode code 
SETEF change mode code 
WAITFR change mode code 
Caller’s mode entry point 
for network SASSIGN 


we Ye Ne Ve Be Vo 


Special CHME code to generate a possible system 


failure exception due to an error occuring 


in the rms synchronization code. 


-DISABLE GLOBAL 
DECLARE _PSECT EXECSNONPAGED_CODE 
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106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 


+ 


we Te Me Be Te Ye Ye Ye Ye Te Be To Ye Yo Se Ye Yo Yo 


+ 


- SUBTITLE SYNCHSRMS STALL ~- I/O stall synchronization 


This is the synchronization code executed after an RMS 
system service is executed if there is to be a wait for 
I/O completion. 


Note that most rms service vector terminates with a branch to this 
routine. 


The FAB/RAB is checked for a legal block id, i.e., a 1 or 3, and 
an error returned if invalid. The structure is not reprobed. 


This routine assumes that the following registers have been set by the 
exiting rms exec-level code whenever a stall is required: 


 R3 EFN to wait on 
R8 RAB/FAB address to wait on 


SYNCHSRMS_ STALL: : 


Be Ye Te Ye Ye Ve Ye Ve 


CMPW RO, #RMS$_STALLE“XFFFF. 
BEQL RMSWAIT_IO DONE 
RET 


Is the status code I/O stall? 
Branch if yes 
Back to caller 


we Ne we 


Set a flag in the user’s control block that tells RMS that the process 

is waiting on this FAB/RAB. When RMS is initializing for a new operation 
it checks this flag and rejects the new operation if the control block 
is waiting on a previous operation. This prevents a hang condition 
caused by using the same STS/STV field for 2 operations at once. 
FABSB_BLN = RABSB_BLN 


RMSWAIT_IO DONE: 


ee Te Se Te Ne Xe 


~ BISB #1, RABSB_BLN(R&) 3? Low bit of BLN field is the flag 


The arguments are pushed on the stack and the AP set up as if a ‘'CALLS’ 
instruction were being executed. The change mode to kernel service is 
executed directly. This saves the overhead of a 'CALLS’ instruction. 
R8 must not be destroyed by any of the services used here. 


PUSHL R3 ? Event flag to wait for 
MOVAB ~4 (SP) ,AP 3 Set up AP as if using CALLS instr 
PUSHL #1 3 Number of arguments 

USERWAIT: 


me Me Ye Vo Ve Vo Ye Ne 


CHMK W“WAITFR 


ve 


Do ‘naked’ WAITFR to save calls time 


Check to see if the user structure pointed to by R8 is still valid by 
checking the block id to be sure that it is either a RAB (BID=1) or 
a FAB (BID=3). This won’t catch the case where what should have been 
a FAB now looks like a RAB or vice versa but will catch everything 
else. If the structure is not readable or writeable then the user 
will get an access violation. the BID for a FAB/RAB is at byte 0, 
the STS for a FAB/RAB is at byte 8. 
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163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 


e 
a 


10$: BLBC 
BITB 
BNEQ 
MOVL 
BEQL 
BICB 
BLBC 
RET 


me Se Se Se Se Ve 


208: CHMK 
TSTL 
BEQL 


CHMK 
BRB 


me Ye Ne te 


308: BRW 


operation still not done. 


I/O stall synchronizat 28-AUG-1987 18:02:17 SYSTEM SERVICE_EXIT.MAR;1 


(R8) , 30$ 
#°B11111100, (R8) 
30$ 

8 (R8) , RO 

20$ 

#1, RABS$B_BLN (R8) 
RO, 30$ 


W*“CLREF 


8 (R8) 
USERWAIT 


W“SETEF 
10$ 


RMS_ERR 


me Ne Se Se Te fe 


w7e Ne 


me Ne Se YO Ve Ne Ye VO 


Not set, then not a FAB or RAB 
Is it al or 3? 

NEQ no so blow the whistle 

Get RMS status code 

and wait again if not set 
Clear waiting flag 

Branch if failure code 

Return to caller 


Clear the RMS event flag, check status again and wait 1 more time if 
The appropriate arguments for the CLREF 
and SETEF (if executed) remain on the stack from the wattre above. 
The AP must be preserved. 


Do a ‘naked’ CLREF, the arguments 
are on stack and AP still set up 
from the WAITFR above 

And re~check status 

Branch to wait for flag again.. 
--. if status still zero 

I/O. complete - leave EFN set 

and restore r0O status code 


Branch to check status code for error or severe error 
a success status in RO (from the SWAITFR) indicates an invalid FAB/RAB. 
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196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 


324 


~SUBTITLE SYNCH$RMS_WAIT - Synchronization code for RMS$WAIT 


RMS SWAIT SYNCHRONIZATION CODE. 


Look at flag in R4 to determine if this is a S$WAIT for the same or different 
RABS. If same, merely RSB; if different, wait on event flag and then 
re-execute the SWAIT service. 
R4 flag for wait type 
(0 = same RAB, 1 = different RABS) 


Be Ye Se Yo Re Ye Re Yeo Ye Xe 


SYNCHSRMS WAIT: : 


BLBS R4,10$ Branch if different rabs 


3 
BRW SYNCHSRMS STALL 3 Handle with standard stall 
10$: CMPW RO, @RMSS$_STALLE“XFFFF ; Is stall required? 
BEQL 20$ ? Branch if yes 
RET No - back to user 
208: SWAITFR_S R3 7 Wait on specified event flag 
JMP G“RMSSWAIT+2 3 Re-execute RMS SWAIT 


The following code is an error path from the rms sychronization code. 


Check status code for error or severe error, if success then 
bad user structure detected - return error in RO, status of record 
operation will be lost 


we “Ne Ye Ye Yo Ye Ve 


BICB2 #1,RABSB_BLN(R8) 

BLBC RO, 988 

MOVL § #RMS$_STR, RO 
98$: BITB #6,RO0 

BEQL 99% 


Clear waiting flag 

Stale success => bad structure 
Change status to bad structure error 
Error or severe error? 

Branch if not 


=e Te Ye Ye Yo 


Must return to exec mode to generate possible system 
service failure exception. 


ee Ye Ve Ye 


MOVL RO, R2 3; Status code to R2 
CHME- I*#SSVECX 3 Generate exception if enabled 
99S: RET 
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243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 


Test for SASSIGN to a network 


Non-network, just return 
Return to SYSASSIGN for completion 


3 
3 
? S$ASSIGN - check for network object assign operation 
3 
? Examine the completion status to see if we should attempt a network 
# assign. If the status is not SS$_NONLOCAL, just return to user. 
SYNCHSASSIGN_EXIT:: 
CMPW RO, #S8$_NONLOCAL! STS$K_SUCCESS 
3 object. 
BEQL 5$ 7 Branch on match 
RET ; 
5$: UMP G*EXESNETWORK ASSIGN; 
3 now in callers mode. 
-END 
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-TITLE SYSTEM SERVICE LOADER - Connect Services to Dispatcher 
-IDENT ‘/X-10’ 


; ree RRELESSLELSRELELSALELESE SESE SES LES EEE ELE TES EEL ERE RSE SEER ERE RSE LER ESET EL ES SE 


wodrtnauebsb Wn re 


:* , * 
7* COPYRIGHT (c) 1985 BY * 
#* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
7* ALL RIGHTS RESERVED. * 
7* * 

10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 7 

11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

12 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

13 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

15 ;* TRANSFERRED. * 

16 ;* * 

17 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT x 

19 ;* CORPORATION. * 

20 ;* * 

21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ed 

22 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

23 o* * 

24 3* * 

25 ZHI II II IK IHR IK KEI KERIKERI HR ERE RHEE KEKE RIKIKRE EE KH KEKE HAKKAR KKEK ERK ERRER 

26 st++ 

27 ; Facility: 

28 ; 

29 ; VAX/VMS Executive, EXCEPTION image 

30 ; 

si <¢ System Service Dispatcher for Kernel and Exec Access Modes 

32 ; 

33 ; Abstract: 

34 ; 

35 ; The routines in this module connect system services that have been 

36 ; loaded into system space into the appropriate change mode dispatcher. 

37 3 Service-specific entries are added to the dispatch vector and a change 

38 ; mode code is allocated for each system service in each loadable image. 

39 ; 

40 ; Author: 

41 ; 

42 ; Lawrence J. Kenah 

43 ; 

44 ; Creation Date: 

45 ; 

46 ; 20 May 1985 

47; 

48 ; Modified by: 

49; 

50 ; X-10 SF04007 Stephen Fiorelli 23-Feb-1987 

51; Make this routine pageable. 

52 ; 

oe X-9 SFO04006 Stephen Fiorelli 27-Jan-1987 

54 ; Also or in R4 into the register masks of all system 

55: system services. 

56 ; 

57 ; X-8 SF04005 Stephen Fiorelli 10-Sep-1986 
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we te Se Ne Se Se Se Ne Se Se Ye Me Ne Ne Se Ne Ye Ne Te Ne Ye Ye Ye Te Ve Te Ve Ve Ve De Ve Ne Ye Le 


X-5,6,7 


Remove fatal status codes, bugcheck instead. 


SF04004 Stephen Fiorelli 03-Feb-1986 

Change name of main routine from EXESCONNECT SYSTEM SERVICES 

to EXESCONNECT SERVICES. Eliminate references to change protection 
routines. 


SFO04003 Stephen Fiorelli 17-Dec-1985 
Load a new field of the system service dispatcher 
record (CMODSAR_KERNEL VECTOR or CMODSAR_EXEC_VECTOR). 
This new field will contain an index into the table 
CMODSAL_EXIT_TYPE, which will contain the address of 
exit code other than default (index=0), 

to be executed on return from the system service. 

This field will be used by the system service dispatcher 
when building a call frame for the system specific 
procedure. If this new field does not contain a 

zero (the default), the return address is changed 

to be the address of the contants of CMODSAL_EXIT_ TYPE 
indexed by the field. 


Also R2 ORed into the register masks of all system 
services in the vector area. This was done because 
R2 was needed for use in the dispatcher. 


SF04002 Stephen Fiorelli 15-Nov~1985 
Add support for composite system service loading. 


SF04001 Stephen Fiorelli 16-Oct-1985 
Eliminate jacket routine, change PSECT names. 
Add Universal Entry macro. Fix miscellaneous bugs. 


LJK4007 Lawrence J. Kenah Original 
The existing system services are added to the system. 
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110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 


zs 


° 
eo 


e 
’ 


e 
‘, 


° 
‘ 


° 
eo 


» SUBTITLE Declarations 
Include files: 
SOPDEF 
SDISPDEF 
SSSDESCRDEF 
SSSVECDEF 
External declarations 
-DISABLE GLOBAL 
External cells 
External routines 
- EXTERNAL - 
SCHSLOCKW, - 
SCHSUNLOCK, - 
SMP$GET_CURPCB 
Global data cells 


- EXTERNAL = 


CMODSGW_CHME LIMIT, - 


we 


=e Se Ve 


e 
¢ 


Symbolic representation of opcodes 
System service dispatch vector 


System service descriptor block 
System service vector 


--- for exec mode services 


CMODSAR | EXEC | DISPATCH_VECTOR, - 


CMODS$AB_EXEC_INHIBIT_MASK, 


CMOD$AB_EXEC_MIN ARG COUNT 


- EXTERNAL = 


CMODSGW_CHMK_ LIMIT, - 


e 
a 


ee. and for kernel mode services 


CMOD$AR_KERNEL DISPATCH VECTOR, - 
CMODSAB_KERNEL INHIBIT MASK, - 
CMODSAB_KERNEL MIN_ARG COUNT 


- EXTERNAL - 


ce 


CMODSAL_COMPOSITE_VECTOR, ~ 


CMODSAL | COMPOSITE CODE, - 


CMODSAW | COMPOSITE_LENGTH 


. EXTERNAL - 
CHANGE MODE MUTEX 


Status codes 


. EXTERNAL - 
SS$_NORMAL 


Bugcheck codes 
- EXTERNAL = 


BUGS$_BADVECTOR, - 
BUGS$_SSVECFULL 


composite system service tables 
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X-10 Declarations 24-FEB-1987 08:48:18 SYSTEM SERVICE LOADER.MAR;1 (2) 
150 ; Local equates 


151 

152 IMMEDIATE MODE = “X8F 
153 ABSOLUTE MODE = “X9F 

154 ; 

155 

156 ; Local macros 

157 

158 eMACRO LOCK 

159 BSBW LOCK_CHMX_CODE 
160 e-ENDM LOCK 

161 

162 -MACRO UNLOCK 

163 BSBW UNLOCK _CHMX_ CODE 
164 e-ENDM UNLOCK 

165 

166 3; PSECT Declarations: 

167 

168 . DEFAULT DISPLACEMENT , WORD 
169 

170 DECLARE_PSECT EXECSPAGED CODE 
171 
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173 - SOBTITLE EXECSCONNECT_SYSTEM_SERVICES - Add a Service to the Dispatch 
174 7+ : Bate gas Oy : 
175 ; Functional Description: 

176 ; 

177 ; This routine adds a system service to the dispatch vector and 

178 ; allocates a change mode code for the service. 

179 ; 

180 ; Input Parameters: 

181 ; 

182 ; 4(AP) ~ Address of system service descriptor block in loadable image 
183 ; 

184 ; Implicit Input: 

185 ; 

186 ; Contents of system service vector for this service 

187 ; 

188 ; Contents of dispatch vector array and other arrays used by the 

189 ; change mode dispatcher. 

190 ; 

191 ; Output Parameters: 

192 ; 

193 ; none 

194 ; 

195 ; Implicit Output: 

196 ; 

197 ; If this service executes in exec or kernel mode, several changes are 
198 ; made 

199 ; 

200 ; A change mode code (exec or kernel) is allocated. 

201 ; 

202 ; An entry is made in the appropriate dispatch vector (exec 
203 ; or kernel) and the other vectors used by the change mode 
204 ; dispatcher. 

205 ; 

206 ; The contents of the system service vector are changed to 
207 ; a CHMx instruction with the new change mode code followed 
208 ; by a RET instruction. 

209 ;- 

210 

211 - ENABLE LOCAL_BLOCK 

212 

213 UNIVERSAL_ENTRY EXESCONNECT SERVICES, <*M<R2,R3,R4,R5>> 

214 

215 MOVL 4 (AP) ,R4 ; R4 points to descriptor block 

216 MOVL SSDESCR_A_VECTOR_ADDRESS(R4), - 

217 R2 7 R2 points to system service vector 
218 ADDL3 #2, - 7 R3 points to first instruction 
219 SSDESCR_A_ENTRY_ADDRESS (R4), - 

220 R3 3... Of service-specific procedure 
221 

222 CASE SSDESCR_B MODE(R4), TYPE=B, LIMIT=#MODE_K KERNEL, - 

223 <- 

224 KERNEL, - 3 Service executes in KERNEL mode 
225 EXEC, - 3; Service executes in EXEC mode 

226 10$, - + Error if mode is supervisor 

227 10S, - fo oe. OF user 

228 CALLERS MODE - # Service executes in caller’s mode 
229 > 
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230 
231 1038: BUG CHECK BADVECTOR, FATAL ? Illegal mode 
232 RET 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SYSTEM _SERVICE_LOADER ~- Connect Services to Dispatcher 10-MAY-1989 16:08:40 VAX MACRO V5.0- 


8 Page 7 


X-10 Load CALLERS MODE system service 24-FEB-1987 08:48:18 SYSTEM_SERVICE LOADER.MAR;1 (4) 
- SUBTITLE Load CALLERS MODE system service 


234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 


+ Service executes in caller’s mode. Make sure that the contents of the 
3? system service vector contain a JMP instruction to the correct service 
7 routine with the correct register save mask. 


CALLERS MODE: 
CMPW 


BNEQ 
CMPB 


BNEQ 
CMPB 


BNEQ 
CMPL 


BNEQ 


SSVEC_W_ENTRY_MASK(R2), 


-2 (R3) ? Do entry masks agree? 
20$ ? Error if not 

SSVEC_B OPCODE(R2), - 

#0P$_JMP 7 JMP instruction? 

20$ 

SSVEC_B_ ADDRESSING MODE(R2), - 

#ABSOLUTE MODE 7 JMP @# ? 

20$ 

SSVEC_A_JMP_DESTINATION(R2), - 

R3 ? Does it go to the right place? 
208 


3; The system service is consistent with the system service descriptor block 


BRW 


NORMAL EXIT ? Normal exit code, a check for a 


composite service will be done 


# An inconsistency was discovered 


208: BUG CHECK BADVECTOR, FATAI # Inconsistent vector status 


RET 
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265 . SUBTITLE Load KERNEL or EXEC system services (consistency checking) 
266 


267 The service execues in EXEC or KERNEL mode. If the system service vector 


we Ne 


268 ; contains a JMP instruction to the service-specific procedure, we are 
269 ; loading the service for the first time. If the vector contains a CHMx 
270 ; instruction, we are reloading the service. 

271 

272 KERNEL: 

273 LOCK 

274 MOVZWL CMODSGW_CHMK LIMIT, RO ; RO gets next change mode code 
275 MOVZBL #0OPS$_CHMK, R1 + R1 contains mode-specific opcode 
276 BRB 30$ 

277 

278 EXEC: 

279 LOCK 

280 MOVZWL CMODSGW_CHME LIMIT, RO ; RO gets next change mode code 
281 MOVZBL #OP$ CHME, R1 ? R1 contains mode~specific opcode 
282 

283 30$: CMPB SSVEC_B OPCODE(R2), - 

284 #0P$_ JUMP ; JUMP instruction? 

285 BEQL 35$ 7 It is. Load the service 

286 BRW RELOAD 3 If not, see if this is a reload 
287 

288 35S: CMPW SSVEC_W_ENTRY_MASK(R2), - 

289 ~2 (R3) ; Do entry masks agree? 

290 BNEQ 40$ ; Error if not 

291 CMPB SSVEC_B_ ADDRESSING MODE(R2), - 

292 #ABSOLUTE_MODE 7; UMP @# 2? 

293 BNEQ 40$ 

294 CMPL SSVEC_A_JMP DESTINATION (R2), - 

295 R3 3 Does it go to the right place? 
296 BEQL LOAD 

297 

298 ; Some sort of inconsistency was detected. Release the interlock and 
299 ; report the error. 

300 

301 408: 

302 UNLOCK 

303 BRB 20$ 
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305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 


332 


333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 


- SUBTITLE Load KERNEL and EXEC system services (Load the vector in bas 
3; The system service vector contains a JMP instruction to the service~specific 
# procedure, indicating the initial load of the service. 
LOAD: 
CMPW RO, #256 ? Too many services already loaded? 
BLSSU 458 ? Report error if yes 
BUG CHECK SSVECFULL, FATAL 
RET 
# Store the revised instruction sequence in the system service vector. This 
7 is accomplished in two steps. The instruction sequence is assembled on the 
7 top of the stack and moved as a single unit to the system service vector. 
? This prevents other processes from attempting to execute a hybrid 
7 instruction sequence. 
ASSUME SSVEC_K LENGTH EQ 8 # Make sure it’s a quadword 
458: 
SUBL #SSVEC_K_ LENGTH, SP 7 Allocate space on the stack 
MOVW SSVEC_W_ENTRY_MASK(R2), - 
SSVEC_W_ENTRY_MASK(SP) ; Make a copy of the entry mask 
BISW2 #°M<R2,R4>,- : 7 OR in register 2 and 4 used by 
SSVEC_W_ENTRY_MASK(SP) ; system service dispatcher 
+ by system service dispatcher 
MOVB Rl, SSVEC_B OPCODE(SP) ; CHMx instruction 
MOVB #IMMEDIATE_ MODE, - = ; ... with word immediate mode (I*#) 
SSVEC_B ADDRESSING MODE (SP) 
MOVW RO, - ? Fill in change mode code 
SSVEC_W_CHMX_CODE (SP) 
MOVZBW #0PS$_RET, - : 
SSVEC_B RET(SP) # «+. followed by a RET instruction 
? Move the entire sequence to the system service vector and execute an REI 
; instruction to purge an instruction buffer. 
MOVQ (SP)+, (R2) ; Store the instruction sequence 
MOVPSL -(SP) 7 Get the current PSL 
BSBW 80$ 7 Execute an REI instruction 
TSTB | SSDESCR_B MODE(R4) ; Kernel mode service? — 
BNEQ 50$ + Branch if exec mode 
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350 - SUBTITLE Load KERNEL and EXEC system services (Load the auxiliary arr 
351 . 
352 ; KERNEL mode service 
353 ; 
354 ; Fill in the auxiliary arrays from the system service descriptor BLOCK 
355 
356 MOVB SSDESCR_B MIN ARG COUNT(R4), - 
357 CMODS$AB | KERNEL | MIN | ARG COUNT [RO] 
358 MOVB SSDESCR | B | INHIBIT MASK (R4), = 
359 CMODS$AB_KERNEL_ INHIBIT MASK [RO] 
360 MOVAQ CMODSAR_KERNEL DISPATCH_VECTOR[RO], - 
361 RO 7 RO points to next dispatch vector 
362 MOVAW CMODSGW_CHMK LIMIT, R2 ; Store the address of the CHMK counter 
363 BRB 60$ 
364 
365 ; EXEC mode service 
366 ; 
367 ; Fill in the auxiliary arrays from the system service descriptor block 
368 50S: 
369 MOVB SSDESCR_B_ MIN ARG COUNT (R4), - 
370 CMODSAB | EXEC MIN, ARG ; COUNT [RO] 
371 MOVB SSDESCR | _B | INHIBIT | MASK(R4), a 
372 CMODSAB_| EXEC_ INHIBIT MASK [RO] 
373 MOVAQ CMODSAR_| EXEC | DISPATCH | VECTOR[(RO), - 
374 RO ? RO points to next dispatch vector 
375 MOVAW CMODSGW_CHME LIMIT, R2 ; Store the address of the CHME counter 
376 
377 ; The routine can complete by executing code that is common for kernel and exec 
378 ; modes. (Rl ia a scratch register for the remainder of this routine.) 
379 
380 60$: MOVZBL SSDESCR_B EXIT TYPE (R4),- 
381 R1 3; Get exit type 
382 MOVB Rl, - 3 Store it 
383 DISP_B EXIT _TYPE(RO) 
384 MOVZBL SSDESCR_B ARG COUNT(R4), - 
385 R1 7 Get argument count 
386 MOVB Rl, - 3 Store it 
387 DISP_B ARGUMENT COUNT (RO) 
388 
389 ;temp till loader debugged 
390 
391 ; Calculate size in bytes of associated argument list 
392 ; 
393 ; SIZE = 4 * (COUNT + 1) 
394 
395 INCL R1 
396 MULW3 #4, Rl, - 7 Store the size 
397 DISP_W ARG LIST _SIZE(R0O) 
398 MOVL R3, - 3; Load the JMP vector 
399 DISP_A_SERVICE_ ROUTINE (RO) 
400 INCW (R2) 3; Turn the service on 
401 
402 ; The service has been loaded successfully. Release the interlock, signal 
403 ; success, and return. 
404 
405 708: 
406 UNLOCK 
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407 ~BRW MORMAL EXIT -¢ Normal exit code, a check for a 
408 ? composite service will be done 
409 
410 ; The following instruction is executed to invalidate the contents of any 
411 ; instruction cache that might be implemented. 
412 
413 @0$: REI 
414 
415 ; The limit on the number of services that can be loaded has been reached. 
416 OS 
418 95$: BRW 40$ + Branch aid 
419 


337 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SYSTEM | SERVICE _ LOADER ~- Connect Services to Dispatcher 10-MAY-1989 16:08:40 VAX MACRO V5.0- 


8 Page 12 

X-10 Reload a system service 24-FEB-1987 08: 48:18 SYSTEM.SERVICE_LOADER.MAR;1 (8) 
421 -SOBTITLE — - Reload a system service 
422 d 
423 ; The service already exists (has a change mode code allocated). All that 
424 ; is needed is to reload the dispatch vector with the characteristics of 
425 ; the new service. 
426 
427 RELOAD: . 
428 CMPB -SSVEC_B_OPCODE(R2), R1 ; Correct CHMx instruction 
429 BNEQ 95$ ; Error if different 
430 CMPB SSVEC_B_ ADDRESSING MODE (R2), - 
431 #IMMEDIATE | MODE 3 Correct mode? 
432 BNEQ 95$ 
433 CMPB SSVEC_B RET(R2), - 
434 #OP$ RET ; RET instruction in right place? 
435 BNEQ 95$ 

436 MOVW SSVEC_W_CHMX CODE(R2), - 
437 RO 3 Pick up change mode code 
438 
439 TSTB SSDESCR_B_ MODE (R4) + Kernel mode service? 
440 BNEQ 100$ 7 Branch if exec mode 
441 
442 ; KERNEL mode service 
443 ; 
444 ; Fill in the auxiliary arrays from the system service descriptor block 
445 
446 MOVB SSDESCR_B MIN_ARG COUNT(R4), ~- 
447 CMODSAB | KERNEL | MIN ARG COUNT[RO) 
448 MOVB SSDESCR | B_ INHIBIT _MASK(R4), az 
449 CMODSAB _ KERNEL _ INHIBIT MASK [RO] 
450 MOVAQ CMODSAR_KERNEL DISPATCH VECTOR[RO], - 
451 RO ? RO points to next dispatch vector 
452 BRB 110$ 
453 
454 ; EXEC mode service 
455 ; 
456 ; Fill in the auxiliary arrays from the system service descriptor block 
457 
458 1008S: MOVB SSDESCR_B MIN ARG COUNT(R4), - 
459 CMODS$AB_| EXEC | MIN | ARG ; COUNT [RO] 
460 MOVB SSDESCR _ B INHIBIT | MASK(R4), - 
461 CMODSAB | EXEC _ INHIBIT MASK [RO] 
462 MOVAQ CMODSAR __ EXEC | DISPATCH | VECTOR[RO], - 
463 RO # RO points to next dispatch vector 
464 
465 ; The routine can complete by executing code that is common for kernel and exec 
466 ; modes. (R1 ia a scratch register for the remainder of this routine.) 
467 
468 1108: CMPB SSDESCR_B_ ARG COUNT(R4), - 
469 DISP_B | ARGUMENT '_ COUNT (RO) 
470 BEQL 120$ 
471 
472 ; Argument list has changed size. New parameters must be calculated and stored. 
473 
474 MOVZBL SSDESCR_B ARG COUNT(R4), - 
475 R1 7; Get argument count 
476 MOVB Rl, - 7 Store it 
477 ) 
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478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 


Se te Ye 


1208: 


Calculate size in bytes of associated argument list 


SIZE = 4 * (COUNT + 1) 


INCL R1i ; 

MULW3 #4, R1, - ? Store the size 
DISP_W ARG LIST SIZE(RO) 

MOVL R3, - 7 Load the JMP vector 
DISP_A_SERVICE_ ROUTINE (RO) 

BRB 80$ ; | ¢ Exit through common code 


' .DISABLE LOCAL BLOCK 
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494 - SUBTITLE Composite service loading 

495 3+ oa: 

496 ; Functional Description: 

497 ; 

498 ; Composite system service loading is done here. 

499 ; After a successful loading of a system service 

500 ; is complete, a check is made here to determine 

501 ; if the system service has a wait form. 

502 ; 

503 3+ 

504 

S05 NORMAL EXIT: 

506 MOVZBL SSDESCR_B SYNCH_TYPE(R4),R2; Store the composite type 
507 BEQL 140$ 3 Branch if no composite type 
508 

509 ; 

510 ; R2 -> Composite type 

$11 ; R3 -> Address of composite vector 

512 ; R4 <-> System service descriptor block address for 

513 ; non-wait form of the system service 

514 ; 

515 ; Check if the vector has a JMP @# 

516 ; 

517 

518 MOVL CMODSAL_COMPOSITE VECTOR[R2],R3 ; Get vector address 

519 CMPB (R3), #OP$_ JMP 3; JUMP instruction? 

520 BNEQ 150$ 3; No, error 

521 CMPB 1(R3) , #ABSOLUTE_MODE 2 @#2 

522 BNEQ 150$ 7 No, error 

523 

524 ; 

525 ; Now we know the service is in the vector area 

526 ; 

527 3 R4 <-> Address of non-wait system service vector 

528 ; R5 -> Address of composite service code to be loaded 

529 ; 

530 

531 MOVL CMODSAL_COMPOSITE_CODE[R2],R5 7 Beginning of code area 
532 MOVL SSDESCR_A_VECTOR_ADDRESS(R4),R4 ; Non-wait vector address 
533 CMPW SSVEC_B ; OPCODE (R4) , - 7 Are chmx opcodes same? 
534 SSVEC_} B , OPCODE (R5) 

§35 BNEQ 150$ 3; No, error 

536 TSTW CMODSAW_COMPOSITE_ LENGTH [R2] 7 Does it have length? 
537 BEQL 150$ 3; No, error 

538 PUSHR #*M<RO,R1,R2,R3,R4,R5> 7 Save some registers 
539 MOovc3 CMODSAW_COMPOSITE LENGTH[R2],- ; Move the composite service 
540 (R5), (R3) ; into the vector area 
541 POPR #°M<RO, R1,R2,R3,R4,R5> ; Restore some registers 
542 MOVW SSVEC_W_CHMX_CODE (R4) , - + Move in the change mode code 
543 SSVEC_| Wi |_ CHMX "CODE (R3) 

544 1408: MOVZWL #SSS _NORMAL, RO 3; Normal status 

545 RET ; Return 

546 

547 1508: BUG CHECK BADVECTOR, FATAL 7; Inconsistency found 

548 RET ; Return 
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X-10 LOCK/UNLOCK - Control Access to CHMx Cod 24-FEB-1987 06:48:18 SYSTEM _SERVICE_LOADER.MAF 
550 - SUBTITLE * LOCK/UNLOCK - Control Access to CHMx Codes 
551 3+ 
552 ; Functional Description: 
553 ; v8 
554 ; Only one process at a time can be adding system services to the system 
555 ; because access to OWN storage is required. This access is controlled 
556 ; by a mutex, locked for write access wherf a service is added. The two 
557 ; routines here merely serve as jackets for the mutex routines located 
558 ; elsewhere. it oy, 4 
559 ; 
560 ; Input Parameters: 
561 ; 
562 ; none 
563 ; 
564 ; Implicit inputs 
565 ; 
566 ; CHANGE MODE MUTEX - Semaphore that controls change mode codes 
567 ; CPUSL _| CURPCB (of CPU-specific DB) ~ Address of PCB of calling process 
568 ; 
569 ; Output Parameters: 
570 3; 
571 ; none 
572 ; 
573 ; Implicit Output: 
574 ;: 
575 ; Entry at LOCK _CHMX_ CODE 
576 ; 
577 ; The mutex is locked for write access 
578 ; 
579 ; Entry at UNLOCK _CHMX CODE 
580 ; 
581 ; The mutex is released 
582 ; 
583 ; Side Effects: 
584 ; 
585 ; RO through R3 are destroyed as a result of calling these routines 
586 ; 
587 ; R4 is preserved. 
588 ;- 
589 
590 LOCK_CHMX CODE: 
591 PUSHL R4 
592 JSB . G*SMPSGET_CURPCB + Get current PCB address in R4 
593 MOVAL CHANGE _ MODE , MUTEX, RO 
594 JSB G*SCHSLOCKW 
595 POPL R4 
596 RSB 
597 
598 UNLOCK_CHMX CODE: 
599 PUSHL R4 
600 JSB G*SMPSGET_CURPCB ; Get current PCB address in R4 
601 MOVAL CHANGE MODE MUTEX, RO 
602 JSB G*SCHSUNLOCK 
603 POPL R4 
604 RSB 
605 
606 -END 
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-TITLE TIMESCHDL - TIME DEPENDENT SCHEDULING 
-IDENT ‘'X~-4403’ 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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D. N. CUTLER 15-JUN-76 


TIME RELATED ACTIVITY 


UPDATE TIME OF DAY, 

CHECK FOR ITEM READY IN TIMER QUEUE, AND 

PERFORM DEVICE TIMEOUT. 

UPDATE MEASUREMENT STATISTICS IF MEASUREMENT IS ENABLED. 


MODIFICATION HISTORY: 


_ X-4403 +EMBO358 Ellen M. Batbouta 01-Nov-1988 
Correctly separate busywait ticks that occur while 
on the interrupt stack from other clock ticks and 
correctly account for them. Previously all time spent 
on the interrupt stack, busywait or not, was attributed 
to interrupt stack time. 


X-4402 SSA0002 Stan Amway 27-Oct-1988 
Declare ASTWAIT resource available in EXESTIMEOUT. 


X-44U1 LPLOO1 Lee Leahy 9 Aug 1988 
Changed reference in the comments to the symbol 
EXESAL_TQENOREPT to the version 5.0 symbol 

 EXESAR_TQENOREPT. . 


X-44 SUF Stu Farnham 11-Nov-1987 
Check for halted CPUs before declaring CPUSANITY 
. bugcheck. 
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X-43 


X-42 


X-41 


X~-40 


X-39 


— X-38 


X-37 


X-36 
(35 


X-34 


X~-33 


X-32 


X-31 


X-30 


MSHO329 Michael S. Harvey 27-Oct-1987 
Eliminate distinction of TIMKEEPER from PRIMARY CPU. 


JWT0297 Jim Teague 6-Aug-1987 


‘Use ADAWI for manipulating TOQCNT. 


SUF Stu Farnham . 28-Jul-1987 
Correct sanity timer countdown. 


WCTO0076 Ward C. Travis 29-Apr-1987 
Change old occurrences of UCBSB_ODIPL and SMPS$C_ 
to UCBSB_DIPL and SPLSC_, respectively. 


. RNG5039 Rod Gamache 23-Apr-1987 


Add support for unmodified drivers - by checking the 
UCBSB_FLCK field for a FIPL vs. FLCK. 


SF00003 Stephen Fiorelli = §$ 15-Apr-1987 
Set up pointer to permanent timer queue entry in 
the base image. 


- RNGSO37 Rod Gamache 25-Mar-1987 


Fix test of spinlock index VS. FIPL in FORK WAIT dispatcher. 


SJF Stu Farnham 20-Mar-1987 


Fix branch broken by longer FORKLOCK. Add $SPLCODDEF. 


TLC5001 Thomas L. Cafarella 18-Mar-1987 
Re-write disk queue length accumulation routine 
(LOG _DISK_QLENS) so that it runs faster. This was 
accomplished by eliminating the JSB to IOC$SCAN_IODB 
and instead scanning the IO data base directly. 


werToo19 Ward C. Travis / 17-Mar-1987 
Add ENVIRON= parameter ‘to DSBINT and SETIPL macro 
uses to allow assembly-time detection of neglected 


SUF , Stu Farnham 17-Mar-1987 
Remove assignment of new quantum on sanity timeout 

of CPU in override set. Such CPUs increase their quantum 
on entry to override, and set it back on exit. Also, 
remove TPOINTER adjustments for CPUs which have left 

the active set; those are now done as part of leaving. 


MSHO0303 . Michael S. Harvey 26-Feb-1987 
Rearrange, rewrite, and otherwise tweak the hardware 

clock service routine to eke out greater performance. 
Eliminate the interrupt stack busywait accounting. Fix 
some bugs related to clock tick accounting and conditional 
assembly statements. Revector the timer related SCB entries 
to point directly to these service routines rather than to 
a pointer to these service routines. 


SUF ' Stu Farnham 25-Feb-1987 
Make CPUSANITY BUG CHECK FATAL. 
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X-29 


X-28 


X-27 


X-26 


X-25 


“X-24 


X-23 


X-22 


X-21 


X-20 


X-19 


x-18 


X-17 


X-16 


X-15 


SUF ‘ Stu Farnham 12-Feb-1967 
Make SMP sanity timer aware to TIME CONTROL sysgen 
parameter. Change SCHSPIXSCAN to SCHSONE_ SEC. Modify 
decrement of CPUSW_SANITY TIMER to reflect revised 
semantics of parameters. 


SFO04002 Stephen Fiorelli 12-Feb-1987 
SCH$GL_NULLPCB becomes SCHSAR_NULLPCB. 


RNG5027 Rod Gamache | 3-Feb-1987 
Make FORK WAIT queue a non-interlocked queue again. 


SJF Stu Farnham 3-Feb~-1987 
Fix build breaker. 


SUF Stu Farnham 26-Jan-1987 
Add SMP CPU sanity timer logic. 


HH243 Hai Huang 22-Jan-1987 
Set up EXESGL_TOQOFL in initialization routine. 


RNG5023 Rod N. Gamache 13-Jan-1987 
Make SCHSQEND run at IPL SCHED, rather than IPL 7. 
Remove SMP workaround code that allowed EXESGQ SYSTIME 
to be modified by a non-primary CPU. Since all SET TIME 
operations are now forced through the primary. 


SSAO001 Stan Amway 12-Dec-1986 
Remove all PIXSCAN logic from this module. Invoke 
SCHSPIXSCAN to do the one second CPU scheduling logic. 


RNGOO021 Rod Gamache . 3-Nov-1986 
Block SCHEDuling while setting the event flag and QUEUEING 
the ast for TIMER events. 


HHO224 Hai Huang 29-Oct-1986 
Add time service support. 


RNGOO19 Rod Gamache 29-Oct-1986 
Change IPL$_SCHED to IPL$_RESCHED. 


JWT0257 Jim Teague 17-Oct-1986 
Support for timer requests in CPU time. Involved 


‘code that is required to fit the temporary SMP 


code at label REPTIM below. When those two macros 
(LOCK and UNLOCK) are removed, the LOCK just 
below CHECK _CPU_TIME must also be removed. 


RNGOO17 Rod N. Gamache 8-Oct-1986 
Fix workaround bug and processing of TQEs on primary. 


EMB Ellen M. Batbouta 4-Oct-1986 
Fix broken branch. 


SUF Stu Farnham 2-Oct-1986 
Work around synchronization window with EXESSETIME. 
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. X-12 


X-11 


X-10 


X-4D2 


X-4D1 


X-1¢4 


X-1A24 


V03-013 


V03-012 


RNGOO12 Rod Gamache 15-Sep-1986 

Make the timekeeper CPU only run the TQE expiration code. 
This helps solve the problem of timeouts on devices with 
affinity. 


RNGOO11 Rod Gamache 24-Jul-1986 
Synchronize access to deadlock search queue and subsequent 
subroutine calls. 


EMB0243 Ellen M. Batbouta 22-Jul-1986 
Conditionally release the device lock in the device 
timeout code. 


RNGOOOS8 Rod Gamache 8-Jul-1986 

Fix insidious problems generated by CMS MERGE. 

SUF Stu Farnham 30-Jun-1986 
Resolve conflicts from merge of SMP into main line 

wmco002 Wayne Cardoza 18-Jun-1986 
wacoool1 Wayne Cardoza 23-Jan-1986 


Fix minor merge problems. 


SF04001 Stephen Fiorelli 11-Dec-1985 
Resolve conflicts from initial merge of exec reorg 
thread and mainline (4.4 BL7). 


TCMOOO1 Trudy C. Matthews 11-Oct-1985 
Add initialization that places device timer queue entry 
on timer queue. 


TLC1095 Thomas L. Cafarella 04-Oct-1985 15:00 
Do not accumulate disk queue length information 
for a disk while it has a mount verify in progress. 


TLC1094 Thomas L. Cafarella 16-Sep-1985 13:00 
Eliminate shadow set member from set of disks for which 
queue length information is collected. 


TLC1093 Thomas L. Cafarella 16-Aug-1985 17:00 
Add code to one-second timer routine to accurately maintain 
disk queue length information. 


WAL1012 William A. Laing 12-Feb-1986 
Change CPU mode accounting so that the 6 modes 

(KERN, INTSTK, EXEC, SUPR, USER, COMP) plus NULL all add up to 
100 ticks per second. i.e. NULL time is now not part of 
INTSTK time. 


CWH3012 CW Hobbs 29-Apr-1984 
Change all W*SCHS$Gxxx references to L“SCH$Gxxx to 
fix current (and future) branch problems. 


WMCO0012 Wayne Cardoza 23-Apr-1984 
Declare pagedmeory and mailbox resources available once per 
second just in case... 
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v03-011 


Vv03-010 


V03-009 


V03-008 


V03-007 


V03-006 


v03~-005 


V03-004 


CWH3011 CW Hobbs 14-Apr-1984 
Fixed broken branch. 


SRBO118 Steve Beckhardt 26-Mar-1984 
Fixed broken branches. 


SRB0117 Steve Beckhardt 17-Mar-1984 

Removed loop around checking for locks on the timeout queue 
needing a deadlock search. This loop is now in the module 
DEADLOCK. 


MIRO200 MICHAEL I. ROSENBLUM 15-OCT-1983 
Remove the setipl to DIPL when RDUTIM expires 

To allow the driver using this service to do it’s 
own synchronization. 

DWT0123 David W. Thiel 22-Aug-1983 
Declare non-paged dynamic memory available once per 
second. 


SRBOO99 Steve Beckhardt 15-July-1983 
Added loop to deadlock detection timeout code to allow 
finding more than one deadlock per second. 


ROWO190 Ralph 0. Weber 3-MAY~1983 

Rewrite fork-and-wait processing using newly acquired 
knowledge of how to move a queue from one header to another. 
This better protects against infinite Looping during the 
processing of the fork-and-wait queue. 


ROWO0176 Ralph O. Weber 4-APR~-1983 
Add code to process fork-and-wait queue to EXESTIMEOUT. 
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263 -SBTTL DECLARATIONS 
264 ; 

265 ; MACRO LIBRARY CALLS 
266 ; 

267 
268 SACBDEF 
269 SCADEF 
270 S$CPBDEF 
271 $CPUDEF 
272 SCRBDEF 
273 S$DDBDEF 
274 SDEVDEF 
275 SDYNDEF 
276 SERLDEF 
277 SFKBDEF 
278 SIPLDEF 
279 SJIBDEF 
280 $LKBDEF 
281 SPCBDEF 
282 $PHDDEF 
283 SPRDEF 
284 SPRESSDEF 
285 SPRIDEF 
286 SPSLDEF 
287 SRSNDEF 
288 SSBDEF 
289 SSPLCODDEF 
290 SSTATEDEF 
291 - §$TOQBDEF 
292 SUCBDEF 
293 SVCBDEF 
294 SWQHDEF 
295 STTYDEFS 
296 STTYDEF 


; DEFINE 
; DEFINE 
? DEFINE 
; DEFINE 
3; DEFINE 
; DEFINE 
7; DEFINE 
3? DEFINE 
7 DEFINE 
7 DEFINE 
? DEFINE 
; DEFINE 
; DEFINE 
; DEFINE 
; DEFINE 
7 DEFINE 
DEFINE 
; DEFINE 
7 DEFINE 
? DEFINE 
7 DEFINE 
7 DEFINE 
? DEFINE 
7? DEFINE 


ACB OFFSETS 

CONDITIONAL ASSEMBLY PARAMETERS 
CPU CAPABILITY CONSTANTS 
PER CPU OFFSETS 

CRB OFFSETS 

DDB OFFSETS 

DEVICE CHARACTERISTICS 
DYNAMIC STRUCTURE TYPES 
ERL OFFSETS 

FORK BLOCK OFFSETS 
INTERRUPT PRIORITY LEVELS 
JIB OFFSETS 

LKB OFFSETS 

PCB OFFSETS 

PHD OFFSETS 

PROCESSOR REGISTERS 
SCORPIO PROCESSOR REGISTERS 
PRIORITY INCREMENTS 
PROCESSOR STATUS FIELDS 
RESOURCE WAIT NUMBERS 

SB OFFSETS 

SPINLOCK CODES 

SCHEDULER STATE VALUES 
TQE OFFSETS 

UCB OFFSETS 

VCB OFFSETS 


3; Wait queue header def’ns 
# TTY UCB extension (must FOLLOW SUCBDEF) 


DEFINE 


TTY SYMBOLS 
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298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 


339, 


340 
341 
342 
343 
344 


-SBTTL 


DECLARE PSECT 


ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 


we Ne Ne 


_ sALIGN 
PERMENTRY: 


LOCAL DATA 


TQESL_TOFL 
TOQESL_TOQBL 
TQESW_SIZE 
TQESL_FPC 
TQESL_FR3 
TQESL_FR4 
TQESQ_ TIME 
TQESQ DELTA 


PERMANENT TIME QUEVE ENTRY 


QUAD 


-ADDRESS EXESGL_TOFL 
-ADDRESS EXESGL_TOFL 


- WORD 
- BYTE 


- BYTE 
-BLKL 
- LONG 
- LONG 


we Me Ne 


- ALIGN 
DEVICETIM: 

- LONG 

- LONG 

- WORD 

- BYTE 

-BYTE 


0 
DYNSC_TOQE 


3 
“XOFFFFFFFF 
“XOFFFFFFFF 


QUAD 


ry) 
) 

40 

DYNSC_TQE 
TOQESC SSREPT 


.-ADDRESS EXESTIMEOUT 
-ADDRESS IOC$GL_DEVLIST 


-BLKL 
-QUAD 
- LONG 
- LONG 


1 
0 
100000*100 
0 


EQ 
EQ 
EQ 
EQ 
EQ 
EQ 
EQ 
EQ 


DEVICE TIME OUT TIME QUEUE ENTRY 


0 


4 


8 

12 
16 
20 
24 
32 


™e Se Ye Ne Ve VW 


we Ne Ne 


"eo Se Se Se Ne Ye Ye Ye Ye Se Ve Ne 


EXECSNONPAGED_DATA 


PERMENENT TIME QUEUE ENTRY 
FORWARD LINK TO LISTHEAD 

BACK LINK TO DEVICE TIME OUT ENTRY 
SIZE OF ENTRY 

TYPE OF DATA STRUCTURE | 

This TQE cannot repeat. 


TQESC_TMSNGL & <“CTQESM REPEAT> ; REQUEST TYPE OF ENTRY 


THREE UNUSED LONGWORDS 
INFINITY EXPIRATION TIME 


DEVICE TIME OUT TIME QUEUE ENTRY 
FORWARD LINK 

BACK LINK 

SIZE OF ENTRY 

TYPE OF DATA STRUCTURE 

REQUEST TYPE OF ENTRY 

PC OF SYSTEM SUBROUTINE 

ADDRESS OF I/O DATA BASE LISTHEAD 
ONE UNUSED LONGWORD 

QUAD WORD OF EXPIRATION TIME 
DELTA REPEAT TIME OF 1 SECOND 
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346 
347 
348 
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358 
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362 


- 363 


364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 


-SBTTL 
r++ 


=e 


we te Ve Ne Ye Yeo Ne 


DECLARE 


| PSECT EXECSINIT_CODE 
INITIALIZATION ROUTINE INISTIMER QUEUE 


INISTIMER_ QUEUE: : 


MOVAB 


INSQUE 


ee Se Be 


we 


MOVL 


SUBL3 
CMPW 
BNEQ 
ADDL3 


10$: SUBL3 
CMPW 
BNEQ 
ADDL3 


208: MOVL 
- RSB 


G*EXESGL_TOFL, R1 


PERMENTRY, RO 


RO, (R1) 
RO, 4(R1) 
RO, G*EXESAR_TQENOREPT 


DEVICETIM, RO 


G*EXE$GQ_SYSTIME, - 


TQE$Q TIME (RO) 
TQES$L_TOQFL (RO) ,- 
TQESL_TOFL(R1) 


G*EXES$GL_SCB, RO 


#1,*XCO(RO),R1 
(R1) +, #°X<9F17> 
10$ | 

#1, (R1) , *XCO (RO) 


#1,°X9C(RO),R1 
(R1) +, #*X<9F17> 
20S 

#1, (R1) , *X9C (RO) 


#SS$_NORMAL, RO 


-e Ve 


=e te 


=e 


=e te Ne 


™e 


we Ye Se Ve 


=e Ys 


INITIALIZATION Hee Root Arag Bor | 
> Www 


INISTIMER_QUEUE 


This routine puts the permanent timer queue entry 
and the device timer queue entry on the timer queue. 


This routine revectors the timer pointers in the SCB 
to point directly to the service routines in this loadable image. 


Addr of timer queue listhead. 


Address of permanent timer queue entry. 
Make it the first entry in timer queue. 
Set up 'EXESGL_TOBL’ — 

Set up pointer - to permanent timer queue en 


Address of device timer queue entry. 
Store systime in expiration field. 


Insert device timer entry immediately 
before permanent timer entry. 


Replace the timer vectors from the SCB that point to the base image 
with direct references to the interrupt 


service routines. 
Get address of the SCB 


Get address of interval clock vector 
Is this a JMP @¢ instruction? 

If NEQ no, leave the SCB vector alone 
Rewrite SCB vector with direct pointer 


Get address of software timer vector 
Is this a JMP @# instruction? 

If NEQ no, leave the SCB vector alone 
Rewrite SCB vector with direct pointer 


Return success status 
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392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
.416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 


429° 


430 
431 
432 
433 
434 
435 


-SBTTL MULTIPROCESSOR SANITY TIMER SERVICE 
7+ 
+ THIS ROUTINE IS CALLED FROM THE HARDWARE CLOCK SERVICE ROUTINE WHEN 
3 A CPU’S SANITY TIMER HAS EXPIRED. 
; 
77 
DECLARE_PSECT EXECSNONPAGED_CODE 
«ENABLE LSB 
CHECK_SANITY_TIMER: 


The sanity timer of the CPU we are watching has expired. Check for 
sanity timeouts disabled, CPU removed from active set, CPU in override set, and 
recheck sanity timer before actually timing that CPU out. 


Se Se Ye Se Veo 


PUSHL R2 
SUBL3 #CPUSW_SANITY_TIMER, - 
CPUSL_TPOINTER(R1) , R2 7 address of target CPU’s database 
BBS #EXESV_NOSMPSANITY, - 
g*EXES$GL_TIME CONTROL,1$ ; new timeout quantum if timeouts disabled 


ADAWI #0,CPUSW_SANITY_TIMER(R2) ; check one last time 


BGTR 2$ 

JSB G*SMP SCONTROLP_CPUS 7 any CPUs halted by operator? 
TSTL RO 

BNEQ 1$ 3 Yes, assign new quantum. 


BUG CHECK CPUSANITY, FATAL 


Assign a new sanity quantum. 


we te Me 


1$: SUBW3 CPUSW_SANITY_TIMER (R2) , - 
G*SGNSGW_SMP_SANITY_CNT, - 
RO | 7 calculate # cycles expired 
ADAWI RO, CPUSW_SANITY_TIMER(R2) ; add back into timer 
28: MOVL (SP)+,R2 7 restore register 
BRB 10$ 7 continue 
3$: BRB CHECK_SANITY_TIMER 


351 
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437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 


-SBTTL HARDWARE CLOCK INTERRUPTS 


+ 


EXESHWCLKINT - HARDWARE CLOCK INTERRUPT 


THIS ROUTINE IS AUTOMATICALLY VECTORED TO WHEN THE CLOCK COUNT REGISTER 
OVERFLOWS. THE CURRENT ABSOLUTE TIME IS UPDATED, THE SMP SANITY TIMER 

IS CHECKED, THE ACCOUNTING INTEGRAL OF THE CURRENT PROCESS IS INCREMENTED, 
AND THE QUANTUM OF THE CURRENT PROCESS IS INCREMENTED. IF THE PROCESS 
QUANTUM TRANSISTS TO ZERO OR THE FIRST ENTRY IN THE TIMER QUEUE CAN BE 
REMOVED, THEN A SOFTWARE INTERRUPT IS REQUESTED ON THE TIMER LEVEL. 

THE CLOCK INTERRUPT IS THEN DISMISSED. 


THE CLOCK IS CURRENTLY SET TO INTERRUPT AT 10MS INTERVALS. 


we Te Ne Ye Be Ye Ye Ye Ve Be Ye Ye Ne 


«ALIGN LONG 


UNIVERSAL _ SYMBOL EXESHWCLKINT 

7 EXESHWCLKINT: : ;HARDWARE CLOCK INTERRUPT 
MTPR #°X800000C1, #PR$_ICCS ;CLEAR INTERRUPT + ERROR AND RE-ENABLE 
NOP 7FORCE NEXT INST. TO LONGWORD ALIGN 


UNIVERSAL_SYMBOL EXESUBCLKINT 
7 EXESUBCLKINT: : 
MOVO RO, - (SP) 7;Save RO,R1 
FIND _CPU_ DATA R1,- 7Get this CPU's per ceo database dddveee 
ISTACK=YES 3 (Let macro assume we’re on IS) 


If this is a multiprocessor configuration, execute the operation of this 
CPU’s part of the sanity timer mechanism. This may or may not be the 
PRIMARY (timekeeper) CPU. 


If this is not a multiprocessor configuration, skip the sanity timer code 
and execute timer functions that are reserved to the PRIMARY CPU in a 
multiprocessor configuration. 


Ce Ve Ve Ye We Ye Ve Ye oe 


ASSUME SMP$V_ENABLED EQ 0 
BLBC G*SMPS$GL_FLAGS, 20$ 7If LBC, skip sanity timer mechanisms 


Reset this CPU’s sanity timer. 


™e Ye Ve 


SUBW3 CPUSW_ SANITY _TIMER (R1) ,- 

G*SGNSGW_ SMP_SANITY_ CNT, - 

RO 7 calculate # cycles expired 
.ADAWI RO, CPUSW_SANITY_TIMER(R1) ;and add back in to timer 


Count down number of ticks until next sanity timer check 


=e Ne Ye 


DECW CPUSW_SANITY_TICKS(R1) ; count towards 0 
BGTR 10$ ; If GTR, not expired 


Reset ticks until next sanity event. Check the sanity timer of the CPU 
we are watching for possible timeout. 


ee Ye Ye Ve 


MOVW G*SGNSGW_SMP_TICK_CNT, - 
CPUSW_ SANITY | _TICKS (R1) 

MNEGW G*SGNSGW_ SMP TICK _ CNT, - 
RO 


reset tick counter 
calculate decrement amount 


we Ne 
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494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
»~ 519 
520 
521 
522 
$23 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 


ADAWI RO, @CPUSL_TPOINTER (R1) 3 count down other CPU's timer 
BLEQ 3$ 7 If LEQ, expired. Check special conditions 


Carry out system t:me related work. Only the PRIMARY (timekeeper) CPU in a 
multiprocessor configuration does this work, and only in the multiprocessor 
case must a spinlock be used for synchronization. 


The commented code below is replaced by the optimal portions that are 
required in this environment, for the sake of performance. 


LOCK LOCKNAME=HWCLK, - 7Lock hardware clock data structures 
CONDITION=NOSETIPL, ~ 7Don’t set IPL we are already at HWCLK 
PRESERVE=NO 7Don’t preserve RO 


se Te Ye Se Ye Ne Ye Se Ne Ye Ye Ve 


ASSUME CPBS$C_PRIMARY EQ 0 

108: BLBC CPUSL_CAPABILITY(R1) , 40$ 7If LBC, this is a non-PRIMARY CPU 
MOVZBL #SPLSC_HWCLK, RO zLoad hardware clock spinlock index 
JSB G*SMP SACQUIRE sLock the HWCLK related data structures 


Execute system timer related functions. This is either the PRIMARY CPU in 
a multiprocessor configuration,: or the only CPU in a uniprocessor. 


W se Se te. Ne 


O$: ADDL2 G*EXES$GL_TICKLENGTH, - 
G“EXE$GQ_SYSTIME ;Updatée system absolute time 

ADWC #0, G*EXESGQ SYSTIME+4 ; 
INCL G“EXE$GL_ABSTIM_ TICS #Maintain scheduler’s high res clock 
TSTL G“EXES$GL_TIMEADJUST 7Count down adjustment 
BEQL 25$ 7I£ eql, no adjustment necessary 
SOBGTR G“*EXES$GL_TIMEADJUST,25$ ;Branch if no adjustment necessary 
MOVL G*EXESGL_SYSTICK, G*EXE$GL_TICKLENGTH ;Restore standard tick 


258: CMPL G*EXESGQ 1ST_TIME+4,- S foie , 
G*EXE$GQ_ SYSTIME+4 ;COMPARE HIGH ORDER PARTS OF TIME 


BGTRU 35$ 7IF GTRU ENTRY NOT DUE 
BLSSU 30$ 7IF LSSU ENTRY DUE 
CMPL G*EXE$GQ_1ST_TIME,- 
G*EXESGQ SYSTIME 7;COMPARE LOW ORDER PARTS OF TIME 
BGTRU 35$ 7IF GTRU ENTRY NOT DUE 
30$: SOFTINT #IPL$_TIMERFORK 7;REQUEST SOFTWARE INTERRUPT ON TIMER LEVEL 


e e 
° ’ 


Ww 
on 
<a 


If this is a uniprocessor configuration, then we got here without taking 
out the HWCLK spinlock, so we don’t want to release it either. 


The commented code below is replaced by the optimal portions that are 
required in this environment, for the sake of performance. 


we Ne Se Te Ye Re Ys Be Ve Ve 


UNLOCK LOCKNAME=HWCLE, - 7;Release the hardware clock lock 
PRESERVE=NO 7; if this is a multiprocessor system 

ASSUME SMPS$V_ENABLED EQ 0 

BLBC G*SMPSGL_FLAGS, 40$ ;I£ LBC, no SMP LOCK/UNLOCK required 

MOVZBL #SPL$C_HWCLK, RO ;Load hardware clock spinlock index 

JSB G“SMP SRELEASE ;Unlock the HWCLK spinlock 
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551 


§52. 


553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 


ae Ve Ye Ye Ne 


OS: 


458: 


468: 


4783 


S73: : 


574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 


508: 


608: 


708: 


-IF NE 


CVTBL 
BGEQ 
MOVZBL 
BICB2 
TSTB 
BEQL 
BBS 
INCL 
MOVQ 
REI 


CMPZV 


BGTR 
BBC 


INCL 
INCL 
MOVO 
REI 


INCL 
- IFF 


TSTB 
BNEQ 
-ENDC 


MOVL 
CMPL 
BEQL 
BBS . 
MOVL 
INCL 
INCW 
BLSS 
SOFTINT 


-IF NE 


MOVO 
REI 


CMP2V 


BNEQ 
INCL 


CA$_MEASURE 


15 (SP) ,RO 

45$ 

#5,R0 

#*XF8, RO 
CPU$B_BUSYWAIT(R1) 
50$ 
#PSLS$V_IS,12(SP), 478 
CPUSL_MPSYNCH(R1) 
(SP)+,RO 


#PSLS$V_IPL, #PSL$S_IPL, - 


12(SP), #IPL$_SCHED 
46$ 


If measurement is enabled, update timer statistics fields. All processors 
maintain their own set of time measurement statistics. 


7Get upper byte of saved PSL 

sI£f GEQ, CM bit not set 

7Else insert CM index 

7Convert extended byte to index 

zIn busywait at any IPL? 

7Tf EQL no 

zIf busywait on interrupt stack, branch 
7Count a true busywait tick 

7Restore RO,R1 

sDismiss tick 


Check if at IPL SCHED or lower. 


e 
v 


?GTR than IPL SCHED, count as busywait 


#CPUSV_SCHED, CPU$B_FLAGS (R1) , 46$ 


CPUSL_NULLCPU (R1) 
CPUS$L_KERNEL (R1) [RO] 
(SP)+,RO 


CPUSL_KERNEL (R1) [RO] 


CPUS$B_BUSYWAIT (R1) 
60$ 


CPU$L_CURPCB(R1) , RO 
RO, G*SCH$AR_NULLPCB 
70$ 

#PSLS$V_IS, 12 (SP), 60$ 


' PCBSL_PHD (RO) , RO 
- PHDSL_CPUTIM(RO) 


PHDS$W_QUANT (RO) 
60$ 
#IPL$_TIMERFORK 
CA$_MEASURE 


(SP)+,R0 


#PSLS$V_IPL, #PSL$S_IPL, - 


12(SP), #IPL$_RESCHED 
60$ 
CPU$L_NULLCPU (R1) 


sTrue busywait if scheduling flag not set 
sAccumulate NULL CPU time this processor 
zIncrement per-CPU statistics vector 
;Restore RO,R1 

#Dismiss tick 


zIncrement per-CPU statistics vector 


sIs this an overhead tick? 
7If NEQ yes, don’t add to process quantum 


7Get current process PCB 

7Is this the NULL job? 

7ITf EQL yes, go handle NULL case 

7;I£ set, count this as overhead tick 

7Get address of process header 

zIncrement accounting integral 

zIncrement time quantum 

7If LSS, quantum still good 

sRequest software interrupt on timer level 


z;Restore RO,R1 
7;Dismiss this interrupt 


;Was NULL job really interrupted? 
;If NEQ no, count as overhead tick 
zAccumulate NULL CPU time this processor 
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608 
609 
610 
611 
612 
613 


70$ 


614 


615 
616 
617 
618 
619 


MOVQ (SP) +,R0 
REI 


-IFF 


MOVQ (SP) +,R0 
REI 


-ENDC 


-DISABLE LSB 


sRestore previously saved registers 
;Dismiss this interrupt 


7Restore previously saved registers 
7Dismiss this interrupt 
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621 -SBTTL SOFTWARE TIMER INTERRUPTS 

622 3+ 

623 ; EXESSWTIMINT - SOFTWARE TIMER INTERRUPTS 

624 ; 

625 ; THIS ROUTINE IS AUTOMATICALLY VECTORED TO WHEN A SOFTWARE INTERRUPT IS 
626 ; REQUESTED ON THE TIMER LEVEL. TIMER INTERRUPTS ARE REQUESTED WHEN THE 
627 ; CURRENT PROCESS HAS EXCEEDED ITS CPU TIME QUANTUM OR THE FIRST ENTRY IN 
628 ; THE TIMER QUEUE IS DUE. 

629 ;- 

630 

631 -ENABL LSB 

632 -ALIGN LONG 

633 UNIVERSAL_SYMBOL EXESSWTIMINT 

634 ;EXESSWTIMINT: : ;SOFTWARE TIMER INTERRUPTS 

635 PUSHR #*M<RO,R1,R2,R3,R4,R5> ;SAVE REGISTERS RO THRU R5 

636 FIND_CPU DATA Rl,- 7Get base of per CPU data structure 
637 ISTACK=YES 3; (Let macro assume we’re on IS) 
638 

639 MOVL CPUSL_CURPCB(R1),R4 7GET THIS CPU’ s CURRENT PROCESS PCB ADDRESS 
640 MOVL PCBSL_PHD (R4) ,R5 7GET ADDRESS OF PROCESS HEADER 
641 TSTW PHDSW_QUANT (R5) sQUANTUM END? 

642 BLSS 5$ 7IF LSS NO 

643 LOCK LOCKNAME=SCHED, - zAcquire Scheduler lock 

644 PRESERVE=NO 7Don’t preserve RO 

645 PUSHL R1 7Save CPU data area address 

646 JSB G*SCHSQEND 7CALL SCHEDULER TO RESET QUANTUM 
647 POPL R1 7Restore CPU data area address 
648 UNLOCK LOCKNAME=SCHED, - Release Scheduler lock 

649 PRESERVE=NO #Don’t preserve RO 

650 

651 ; 

652 ; Only process TQE expirations on the PRIMARY CPU. This is 

653 ; to allow device affinity to work - with the PRIMARY CPU 

654 ; handling device timeouts. 

655 ; 

656 

657 ASSUME CPBSC_PRIMARY EQ 0 

658 5S: BLBC CPUSL_CAPABILITY(R1),15$ ;If LBC, this is a non-PRIMARY CPU 
659 

660 CHKTMQ: LOCK LOCKNAME=TIMER, ~- zAcquire timer lock 

661 PRESERVE=NO 7Don’t preserve RO 

662 LOCK LOCKNAME=HWCLEK, - ;Lock hardware clock data structures 
663 PRESERVE=NO 7;Don’t preserve RO 

664 CMPL G*EXE$GQ_ 1ST_TIME+4,- 

665 G*EXES$GQ_SYSTIME+4 ;COMPARE HIGH ORDER PARTS OF TIME 
666 BLSsU) 208 7IF LSSU ENTRY IS DUE 

667 BGTRU 10$ 7IF GTRU ENTRY IS NOT DUE 

668 CMPL G*EXES$GQ_1ST_TIME, - 

669 G*EXE$GQ SYSTIME 7;COMPARE LOW ORDER PARTS OF TIME 
670 BLEQU 20$ 7IF LEQU ENTRY IS DUE 

671 108: UNLOCK LOCKNAME=HWCLK, - zunlock HWCLK data structure and 
672 NEWIPL=#IPLS$_ TIMER, ~ zlower IPL to TIMER 

673 PRESERVE=NO 7Don’t preserve RO 

674 UNLOCK LOCKNAME=TIMER, ~ 7Unlock TIMER spinlock 

675 PRESERVE=NO 7Don’t preserve RO 

676 158: POPR #°M<RO, R1,R2,R3,R4,R5> ;RESTORE REGISTERS RO THRU R5 

677 RE IMAC ; 
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678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
104 
705 
106 
707 
708 
709 
710 


711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
7129 
730 
731 
732 
733 
734 


Se SNe Se Se Ye Ye 


REMOVE DUE ENTRY FROM TIMER QUEUE 


There is an assumption here that if a TQE entry expires then there is at 
least 1 more entry in the queue that never expires. This should always 
be true. There is a permanent timer entry that never expires PERMENTRY. 


20$: MOVAL G*EXESGL_ TOQFL, RO #GET ADDRESS OF TIME QUEUE HEADER 


ea Ne Se Me 


CHKTMOQ BR: 


we Me Me Ne fe 


Se Ye Te Ye Te Ye Ye 


we Ne Ne Ve Te Ne We Ve Ne Se Ye Ve 


REMQUE @(RO),R5_ 7REMOVE FIRST ENTRY FROM TIME QUEUE 
MOVL (RO), RO 3Get address of new head of timer queue 
MOVO TQESQ TIME(RO),- 7Copy time from new head of 
G*EXESGQ_1ST_TIME stimer queue to first time 
UNLOCK LOCKNAME=HWCLE, - gunlock HWCLK data structure and 
NEWIPL=#IPL$_TIMER,- ;lower IPL to TIMER 
PRESERVE=NO ?Don’t preserve RO 
UNLOCK LOCKNAME=TIMER, ~ 7Unlock timer lock 
PRESERVE=NO sDon’t preserve RO 


SMP NOTE that in an SMP system no locks are held at this point but we are at 
IPL$ TIMER which equals IPL$_SYNCH. 


ASSUME IPLS$_TIMER EQ IPLS$_SYNCH 

EXTZV #0,#2,TQESB ROTYPE(R5),RO ;GET REQUEST TYPE 

CASE RO, <TIMER, SYSUB,WAKEUP> ;DISPATCH TO PROCESSING ROUTINE 
BUG CHECK INVTQEFMT INVALID TIME QUEUE ENTRY FORMAT 


LONG BRANCH TO CHKTMQ 


we 


BRW CHKTMQ 


-DSABL LSB 


PROCESS SYSTEM SUBROUTINE 
**k** WARNING **** 


Upon return from the system subroutine call, this routine expects R5 to 
contain the address of a valid timer queue entery. The TQESV_REPEAT bit 
of that TOE will be tested, and if it is set, the TQE will be reentered in 
the timer queue. Therefore, the call system subroutine CANNOT use the TQE, 
pointed to by R5 at entry, for some other purpose and return here without 
placing the address of a valid TQE in R5. 


To this end, the executive system table contains a global symbol, 
EXESAR_TQENOREPT, which contains the address of a always valid always 
non-repeating timer queue entry. Timer system subroutines wishing to use 
the TQE which caused them to be called for purposes other than continued 
use of the timer queue may load the address contained in EXESAR_TQENOREPT 
into R5 before returing to this routine. This prevents duplicate use of 
the TQE block which resulted in the system subroutine being called. 


For example, a system subroutine which decides to discontinue its timed 
operations and deallocate the TQE would execute at least the following 
instructions: 


eee 
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Compute min time remaining until due 


RO contains delta time in 10-ms units 
Cvt delta to 100-ns units in RO,R1 


735 3 MOVL R5, RO 2NB: this uses the TOE 

736 ; JSB G“COMSDRVDEALMEM ; as an IPL 6 fork block. 
7137 3 wae 

738 ; MOVL G“EXESAR_TQENOREPT, R5 ;Setup no repeat TQE. 

739 ; RSB 

740 

741 ; 

742 ;SMP NOTE the SYSTEM SUBROUTINE must acquire its own SMP locks 

743 ; 

744 SYSUB: MOVOQ TQESL_FR3 (R5),R3 7LOAD SUBROUTINE CONTEXT 

745 JSB @TQESL FPC(RS) 7CALL SYSTEM SUBROUTINE 

746 JSB G*SMP $NOLOCKS 7Verify no Spinlocks still held 
747 BBC #TQESV_REPEAT, TQESB_ROTYPE(R5),CHKTMQ BR ;IF CLR, NOT REPEATABLE 
748 BRW REPTIM 7 INSERT REPEAT REQUEST IN TIME QUEUE 
749 

750 ; 

751 ; PROCESS TIMER 

752 ; 

753 

754 -ENABL LSB 

755 

756 CHECK CPU_TIME: 

757 ;SMP NOTE PCBVEC and PCB being accessed here 

758 MOVZWL R1,R0 7 Get process index 

759 MOVL @L*SCHS$GL_PCBVEC[RO],R4 ; Convert PID to PCB addr 

760 CMPL R1,PCBSL_PID(R4) "3 Do PIDs match? 

761 BEQL 1$ 

762 BRW 30$ ; BR if process not in system 
763 18: BBC #PCBSV_RES, - 

7164 PCBSL_STS (R4) ,2$ ; BR if process not resident 
765 MOVL PCBSL_PHD (R4) ,R2 7 Get PHD address 

766 MOVL PHDSL_CPUTIM(R2) , R2 7 Get CPU time from PHD 

767 BRB 3$ 

768 2S: MOVL PCBSL_CPUTIM(R4) , R2 7 Use CPU time as of outswap 
769 3$: SUBL3 R2,TQESL_CPUTIM(R5S),RO ; 

7170 BLEQ 5$ 7; BR if due *now* 

7721 ; 

7172 EMUL RO, #<10*1000*10>, #0,RO ; 

773 BRW 35$ 7 Join common code to insert TQE 
774 

7175 3 

776 ;SMP NOTE a JIB is referenced, the PCBVEC is referenced, a PCB is referenced, 
777 ¢ the TQE is possibly deallocated 

778 ; 

779 TIMER: MOVL TQESL_PID(R5),R1 7GET TARGET PROCESS ID 

780 

781 BBS #TQESV_CHK_CPUTIM, - 7; Was this entry in terms of 
782 TQESB_ROQTYPE(R5),- 7 CPU time? 

783 CHECK CPU. TIME z If so, go check it 

784 

785 5$: MOVZBL #PRIS$ TIMER, R2 7SET PRIORITY INCREMENT CLASS 
786 MOVZBL TQESB_EFN(R5), R3 7;GET EVENT FLAG NUMBER 

787 ASSUME IPLS | TIMER EQ IPLS$_SCHED 

788 LOCK LOCKNAME=SCHED, - BLOCK THE SCHEDULER 

7189 CONDITION=NOSETIPL, - ;DON’T BOTHER WITH RAISING IPL 
790 PRESERVE=NO 7;DON’T PRESERVE RO 

791 JSB G*SCHSPOSTEF 7;POST EVENT FLAG 
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792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 


BLBC RO, 30$ ~3IF LBC PROCESS NO LONGER IN SYSTEM 
7;SMP NOTE JIB being accessed here 

MOVL PCBSL_JIB(R4),RO 7GET JIB ADDRESS 

ADAWI #1, JIBSW_TOQCNT (RO) 7 Increment quota 


8S: 


108: 


208: 


308: 


=e Se Ve 


WAKEOP : 


REPTIM: 


BBCCI #1, JIBSB_FLAGS (RO) , 8$ 7 If anyone else is waiting 
BSBW RELEASE WAITERS 7 on TQCNT, start them up... 


BBC #ACBSV_QUOTA, TQESB_RMOD(R5),20$ ;IF CLR, NO AST SPECIFIED 

MOVB TQESB | RMOD (R5), TOESB ) ROTYPE(R5) ;SET AST ACCESS MODE 

MOVZBL #PRIS | _TIMER, R2 7SET PRIORITY INCREMENT CLASS 

JSB G*SCHSQAST 7QUEUE AST FOR PROCESS 

UNLOCK LOCKNAME=SCHED, - UNLOCK SCHEDULING DATABASE 
PRESERVE=NO ; 7;DON’T PRESERVE RO 

BRW CHKTMQ ; 


7; SCHED spinlock held when entered here 


MOVZWL TOQESL_ROPID(RS),R4 7GET REQUESTING PROCESS INDEX 
MOVL @W*SCHSGL_PCBVEC(R4],R4 ;GET PROCESS PCB ADDRESS 
CMPL PCBSL_PID(R4),TQESL_ RQPID(R5) ;PROCESS ID MATCH? 


BNEQ 30$ -3;IF NEQ NO 

ADAWI #1,PCBSW_ASTCNT(R4) ;UPDATE AVAILABLE AST QUEUE ENTRIES 
BRB 30$ ; 

MOVZBL #RSNS$_ASTWAIT, RO ;SET AST WAIT RESOURCE NUMBER 


JSB G*SCHSRAVAIL 7DECLARE RESOURCE AVAILABLE 


? SCHED spinlock held when entered here 


UNLOCK LOCKNAME=SCHED, - 7; UNLOCK SCHEDULING DATABASE 


PRESERVE=NO ;DON’T PRESERVE RO 
MOVL R5, RO 7SET ADDRESS OF BLOCK TO DEALLOCATE 
JSB G*EXESDEANONPAGED ;DEALLOCATE TIME QUEUE ENTRY 
BRW CHKTMQ ; 


PROCESS WAKE UP 


MOVL TQESL_PID(RS),R1 3;GET TARGET PROCESS ID 
ASSUME IPLS_TIMER EQ IPLS_SCHED 
LOCK LOCKNAME=SCHED, - sAcquire Scheduler lock 
CONDITION=NOSETIPL, - 
PRESERVE=NO 7Don’t preserve RO 
JSB G*SCHSWAKE 7;WAKE PROCESS 
BLBC RO, 10$ 7;IF LBC PROCESS NOT IN SYSTEM 
BBC #TQESV_REPEAT, TQOESB_ROQTYPE(R5),10$ ;IF CLR, THEN NOT REPEATABLE 
UNLOCK LOCKNAME=SCHED, - Release Scheduler lock 
PRESERVE=NO 7Don’t preserve RO 


=e 


There is an interesting problem caused by the following code 
path. If EXE$GQ SYSTIME can be modified while a TQE is not 

on the TQE list, then the TQESQ TIME field will not get updated 
and the TQE will mis-fire. The only known case of this occurance 
is during the power-up sequence after a powerfailure, if the 


me Ne Se Ye Ne 
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849 
850 
851 
852 
853 
854 
855 
856 
857 
658 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
8861 
882 
883 


? powerfailure occurred while the (a) CPU was in this code 


7GET DELTA REPEAT TIME 

7ADD LOW ORDER PARTS OF TIME 
#ADD HIGH ORDER PARTS OF TIME 
7 INSERT ENTRY IN TIME QUEUE 


Address of MWAIT Q 


Priority increment 


Is process waiting on this JIB? 


Save forward link 

Change state to executable 
1 less entry in queue 
Restore forward link 


Forward link to next PCB 


7 path. 
MOVQ TQESQ DELTA (RS) , RO 
358: ACDL TQESQ TIME (R5), RO 
ADWC TQESQ TIME+4(R5),R1 
JSB G“EXESINSTIMQ 
40S: BRW CHKTMQ ; 
RELEASE WAITERS : 
e 
? This subroutine checks the MWAIT queue for other processes waiting 
3 on resources in this JIB. 
; 
3 SCHED is owned for the duration of this subroutine 
PUSHR #°M<RO,R1,R2,R3, R4> 3 Save regs 
MOVAL G*SCHSGQ _MWAIT, R3 ? 
MOVL (R3), R4 : Head PCB 
1008: MOVZBL #PRI$_RESAVL, R2 ; 
CMPL R3, R4 3 End of queue? 
BEQL 300$ 3 Branch if end 
CMPL (SP), PCBSL_EFWM(R4) 3 
BNEQ 200$ ? No, skip it 
PUSHL (R4) : 
JSB G*“SCHSCHSE ; 
DECW WOHSW_WOQCNT (R3) : 
POPL R4 . ; 
BRB 100$ 3 and continue 
2008 : MOVL (R4), R4 ; 
BRB 100$ 3 and continue 
300$: POPR #°M<RO, R1,R2,R3,R4> 3 Restore regs 
RSB ; Return 
-DSABL LSB 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


TIMESCHDL - TIME DEPENDENT SCHEDULING 10-MAY~-1989 16:56:06 VAX MACRO V5.0-8 Page 19 
X-4403 SEARCH FOR TIME OUTS 1-NOV-1988 14:42:53 [SYS.SRC)TIMESCHDL.MAR;1 (9) 


885 -SBTTL SEARCH FOR TIME OUTS 

886 ;+ 

887 ; EXESTIMEOUT - SEARCH FOR TIME OUTS 

888 ; 

889 ; THIS ROUTINE IS ENTERED ONCE A SECOND TO PERFORM VARIOUS FUNCTIONS THAT 
890 ; NEED TO BE PERFORMED ONCE A SECOND. THESE INCLUDE: 

891 ; 

892 ; 1) SCAN THE DEVICE DATABASE FOR DEVICES THAT MAY HAVE TIMED OUT 
893 ; 2) SCAN FOR CRB’S THAT MAY HAVE TIMED OUT 

894 ; 3) SCAN FOR WAITING LOCKS THAT MAY HAVE TIMED OUT (INITIATE 

895 ; DEADLOCK SEARCH) . 

896 ; 4) WAKE THE SWAPPER, IF NECESSARY 

897 ; 5) WAKE THE ERROR LOG PROCESS, IF NECESSARY 

898 ; 6) SCAN FOR MEMORY CRD ERRORS AND REENABLE MEMORY INTERRUPTS 

899 ; 7) + #j\OPDATE THE SYSTEM ABSOLUTE TIME IN SECONDS 

900 ; 8) DECLARE A NON-PAGED DYNAMIC MEMORY AVAILABLE EVENT 

901 ;- 

902 

903 UNIVERSAL_SYMBOL EXESTIMEOUT 

904 ;EXESTIMEOUT:: ;SEARCH FOR TIME OUTS 

905 ; 

906 ;SMP NOTE the DDBs are searched, the UCBs may be searched, SCHSSWPWAKE is 
907 ; called, a bit in ERLSGB_BUFFLAG is checked uninterlocked and 
908 ; ERLSWAKE is optionally called, ECCSREENABLE is called 

909 

910 PUSHL R6 | 7SAVE A REGISTER 

911 PUSHL R5 7SAVE ANOTHER 

912 

913 ? Do the next instruction here, so that R3 can be destroyed! 

914 MOVL DDBSL_LINK(R3) , R6 7GET ADDRESS OF FIRST DDB 

915 

916 ASSUME IPLS$ TIMER EQ IPLS$_SCHED 

917 LOCK LOCKNAME=SCHED, ~ sAcquire Scheduler lock 

918 CONDITION#=NOSETIPL, - . 

919 PRESERVE=NO 7Don’t preserve RO 

920 JSB G*SCHS SWPWAKE 7WAKE SWAPPER IF NECESSARY 

921 UNLOCK LOCKNAME=SCHED, - sRelease Scheduler lock 

922 PRESERVE=NO 7Don’t preserve RO 

923. INCL G*EXES$GL_ABSTIM ;UPDATE ABSOLUTE TIME IN SECONDS 
924 BBC #ERLSV_ TIMER, G*ERL$GB | BUFFLAG,10$ ;IF CLR, TIMER NOT ACTIVE 
925 JSB G*ERLSWAKE 7;WAKE ERROR LOG FORMAT PROCESS 

926 108: JSB _G“ECCSREENABLE ;WAKE CRD INTERRUPT REENABLE AND SCAN 
927 

928 ; 

929 ; SCAN FOR DEVICE TIMEOUTS 

930 ; 

931 208: MOVL -DDBSL_UCB (R6) , RS 7GET ADDRESS OF FIRST UCB 

932 BEQL 60S . 7EQL MEANS NO UCB’S AS YET ON THIS DDB 
933 BBS #DEVSV_MBX, UCBSL_DEVCHAR(R5),60$ ;IF SET, DEVICE IS MAILBOX 
934 30S: BBS #UCBSV_TIM, UCBSW_STS(R5),70$ ;IF SET, TIME OUT ENABLED 

935 40S: BBC #DEVSV | _'TRM, UCBSL _ DEVCHAR (R5), 50$ ;IF CLR, DEVICE NOT TERMINAL 
936 BBS #UCBSV_| TT_TIMO, UCBSW | DEVSTS (R5),67$ ;IF SET, READ TIMEOUT ENABLED 
937 508: MOVL UCB$L_LINK(RS), R5 7GET ADDRESS OF NEXT UCB 

938 BNEQ 30$ 7; IF NEQ MORE TO SCAN 

939 608: MOVL DDBSL_LINK(R6) , R6 7;GET ADDRESS OF NEXT DDB 

940 BNEQ 20$ _ 3IF NEQ MORE TO SCAN 

941 s j 


361 
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942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 


e 
e 
° 
a 


959 ; 


960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
965 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 


7583: 


808: 


85S: 


FINISHED DEVICE SCAN, NOW CHECK THE LIST OF CRB’S 


MOVAL G*IOCS$GL_CRBTMOUT, R6 ;PICK UP LIST HEAD 
MOVL (R6) , R6 ;ANY MORE TO SCAN? 
BEQL 68S 7NO, DONE 
FORKLOCK LOCK=CRB$B_FLCK-CRB$L_TIMELINK(R6) ;Lock FORK threads/use IPL from 
CMPL CRB$L_DUETIME-CRBS$L_TIMELINK(R6) , - 
G*EXESGL_ABSTIM :YES, IS THIS ONE DUE? 
BGTRU 66$ 7NO, SCAN AGAIN 
MOVAL -CRBS$L_TIMELINK(R6),R3 ;YES, PICK UP POINTER TO CRB 
MNEGL #1, CRBSL_DUETIME(R3) ;SET FOR NO MORE TIMEOUTS 


JSB @CRBSL_TOUTROUT (R3) 7CALL THE TIMEOUT ROUTINE 

FORKUNLOCK LOCK=CRBSB | FLCK-CRBSL_ _ TIMELINK(R6),- ;Unlock FORK threads 
NEWIPL=#IPL$ | TIMER 7Reset the IPL 

BRB 65$ 7;CONTINUE SCAN 

BRW 90$ #BRANCH HELPER 

BRW LOG _DISK_QLENS #BRANCH HELPER 

BRW 40$ 7BRANCH ASSIST 


DEVICE HAS ENABLED TIME OUT - SEE IF IT HAS TIMED OUT 


CMPL UCBS$L_DUETIM(RS) , G*EXES$GL_ABSTIM 7;POSSIBLE TIME OUT? 

BGTRU 69$ 2:IF GTRU NO 

ASSUME UCBSB_} FIPL EQ UCBSB_1 FLCK 

ASSUME SPLS_! MIN |_ INDEX EQ 32 

BBC #5, UCB$B_FLCK(RS5), 75$ 7Br if not a forklock index 
FORKLOCK LOCK=UCBSB_FLCK (R5) zLock FORK threads/use IPL from FLCK 


DEVICELOCK LOCKADDR=UCB$L_DLCK(R5) ; Lock interrupt threads/use IPL 


SETIPL #IPL$_POWER, - 7Raise IPL to POWER 
ENVIRON=UNIPROCESSOR 

BBC #UCBSV_TIM, UCBSW_STS(R5),80$ ;IF CLR, THEN TIME OUT NOT ENABLED 

CMPL UCBSL | DUETIM(RS), , G°EXESGL 1 ABSTIM ;DEVICE TIME OUT? 

BGTRU 80$ ;IF GTRU. NO 


BICW #U0CBS$M_INT!UCBS$M_TIM, UCBSW_STS(R5) ;DISABLE INTERRUPT AND TIMEOUT 
BISW #U0CBSM_TIMOUT, UCBSW_STS(R5) ;SET DEVICE TIMED OUT 


SETIPL UCBSB_DIPL(R5),- sLower IPL to DIPL 
ENVIRON=UNIPROCESSOR 

MOVQ UCBSL_FR3(R5) ,R3 7RETRIEVE SAVED R3 AND R4 

MOVL UCBSL_FPC(R5) ,R2 7GET SAVED PC 

CVTWL -(R2),-(SP) 7;GET OFFSET TO EXCEPTION ROUTINE 

ADDL (SP)+,R2 ;CALCULATE ADDRESS OF EXCEPTION ROUTINE 

JSB (R2) 7;CALL EXCEPTION ROUTINE 


DEVICEUNLOCK LOCKADDR=UCBSL _DLCK (RS) ,- 
CONDITION#RESTORE ; Lock interrupt threads/use IPL 


ASSUME UCBSB_FIPL EQ UCBSB_FLCK 


ASSUME SPLS_! MIN _ INDEX EQ 32 

BBC #5, UCBSB | | FLCK (R5) , 85$ 7Br if not a forklock index 
FORKUNLOCK LOCK=UCBSB | FLCK (R5) 7;Release FORK threads 

SETIPL #IPLS$ _ TIMER, ENVIRON=UNIPROCESSOR zgLower IPL to TIMER 
BRW 40$ ; 
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999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 


TERMINAL READ TIMED IN PROGRESS 


we Ye te 


SMP NOTE READ timeout DUETIME is checked without raising IPL to POWER, 
if the timeout has expired IPL is raised to POWER and 
a readtimeout routine is called 


(O we Se Yo Ne 


0$: CMPL UCBSL_TT_RDUE (R5) ,G*EXESGL_ABSTIM ;TIME OUT POSSIBLE? 
BGTRU 110$ 7;1IF GTRU THEN NO / 
SETIPL #IPL$_POWER, - #RAISE TO DEVICE IPL 
ENVIRON=UNIPROCESSOR A : 
BBC #UCBSV_TT_TIMO, UCBSW_DEVSTS(R5),100$ ;IF CLR, TIMEOUT NOT ENABLED 
CMPL UCBSL_TT_RDUE(R5) ,G*EXE$GL_ABSTIM ;TIMED OUT? — 
BGTRU 100$ 7IF GTRO THEN NO 
- JSB @UCBSL_TT_RTIMOU(R5) 7GO OFF TO THE TERMINAL SERVICE 
1008: SETIPL #IPL$_ TIMER, - 7;LOWER IPL TO THAT OF TIMER 
ENVIRON=UNIPROCESSOR 
1108: BRW 50$ ; 
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1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 LOG_DISK_QLENS: 

1034 . 

1035 BBSC #0, G*PMS$GL_FLAGS, 10$ 
1036 

1037 SOBGTR G*PMS$GL_QLEN TOCTR, 20$ 
1038 

1039 BRB CHECK FORK_N WAIT 

1040 10§: | 

1041 MOVL G*°PMS$GL_QLEN TOINT, - ; Re-init the timeout counter 

1042 G*PMSSGL_QLEN TOCTR 

1043 BLEQ CHECK_FORK_N WAIT : Skip past collection if timeout int 0 
1044 


LOG DISK_QLENS 

If a MONITOR DISK is active, scan the I/O data base (using all System Blocks), 
accumulating the current disk queue length value for each mounted disk 

into UCB$L_QLENACC. 

Side Effects: 


RO destroyed. 


eo Te Ye Te oe Te Ye Be Ye Ye Xo 


Br if q.l. coll’n active (& clear) 
NOTE -~ bit 0 is the active flag 
Decrement timeout counter ... 

eee and go collect if not timed out 
Collection timed out -- skip past it 


™e we 


eo Se we 


1045 ; 

1046 ; At this point, we have decided to collect disk queue lengths. 

1047 ; 

1048 

1049 208: 

1050 PUSHR #*M<R9,R10,R11> 3g Save regs used by this routine 
1051 INCL G“PMSS$GL_QLEN SCANS # Count this disk scan 
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1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 


1070 


1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
. 1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 


MOVL 

BRB 

30$: 
: mOVL 
cari 


BEQL 
408: 


50$: 


60$: 


ps BS ERS 


=e Ne Xe 


708: 


80S: 
ADDL2 
908: 


MOVL 
BNEQ 
BRB 


=e Se Ye 


1008: 
POPR 


G*SCS$GQ_CONFIG, R11 ? Pick up first system block 
408 # «e- and go look for DDBs 


Get next system block 
End of SB chain? 
Yes, all done 


SBSL_FLINK(R11) ,R11 
R11, SC8$GQ_CONFIG 
1003 


se Ne te 


SBSL_DDB(R11) ,R9 Get the first DDB 


2 
30$ ? If none, go try next SB 
60$ # Got one, go look for UCBs 
DDBSL_LINK(R9) , R9 ¢ Get next DDB 
30$ ? End of DDB chain, go try next SB 


Pick up first UCB 
If none, go try next DDB 


DDBSL_UCB (R9) , R10 
50$ 


ee Ve 


At this point, we have a UCB to examine 


#DC$_DISK, UCB$B_DEVCLASS (R10) ? Is the unit a disk? 
50$ 3 No, skip this entire DDB 
#DEVSV_MNT, UCBSL_DEVCHAR (R10) , 90$ 
? Skip UCB if not mounted 

#<DEV$M_CDP+DEV$M_SSM>, UCB$L_DEVCHAR2 (R10) 

7 Class driver path or shad set member? 
90$ 7 If s0, skip this UCB 
#UCBSV_MNTVERIP , UCBSL_STS (R10) , 90$ 
Skip UCB if mount verify in progress 
Pick up the queue length . 
Br if pos or zero (as expected) 
Clear it if negative 
NOTE -- this is a transient condition, 

which clears itself shortly 


UCBSW_QLEN (R10), RO 
80$ 
RO 


we Ye Ye Ye Yo Yo 


RO, UCBSL_QLENACC (R10) 3 Add q.l. to q.1. accumulator 


Get next UCB 
e+. and go process it 
End of UCB chain, go try next DDB 


UCBS$L_LINK(R10) ,R10 
70$ 
50$ 


we Ye Ne 


The entire I/O data base has been scanned. 


#°M<R9, R10, R11> Restore regs used by this routine 


All done, fall thru to next task 


~™e Se 
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1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 


™e Te Ve Ve Ve Ye Ve Ve Veo 


PROCESS THE FORK-AND-WAIT WORK QUEUE 


To avoid an infinite loop of executing new entries placed on the work queue 
by fork threads resumed from the work queue, the entire work queue is 
removed from the normal header and hung on a header allocated on the stack. 
The normal queue header is then initialized thus providing a proper target 
of new queue insertion operations. 


ASSUME FKBSL_FR4 EQ <FKB$L_FR3 + 4> 


CHECK_FORK_N WAIT: 


MOVAL 


me Ye Se Ve Ye Ve Vo 


s 
- 


LOCK 


CMPL 
BEQL 
SUBL 
REMQUE 
INSQUE 
MOVL 
MOVL 
UNLOCK 


108: REMQUE 
BVS 
MOVO 
MOVZBL 
ASSUME 
BBC 
PUSHL 
JSB 
JSB 
POPL 
JSB 
SETIPL 


BRB 


308: 


e 
’ 
° 
o 
° 
’ 
D 


SBINT 


G*EXESGL_FKWAITFL, R6 ? 


IPL$ TIMER EQ IPL$_SCs 
LOCKNAME=SCS, — 
CONDITION=NOSETIPL, - 
PRESERVE=NO 
LOCKNAME=MEGA, - 
PRESERVE=NO 

(R6), RE 

80$ 

#8, SP 

(R6), RS 

(SP), @4(R5) 

R6, (R6) 

R6, 4(R6) 
LOCKNAME=MEGA, - 
NEWIPL=#IPL$_SCS, - 
PRESERVE=NO 

@(SP), RS 

90$ 

FKB$L_FR3(R5), R3 
FKB$B_FLCK(R5) , RO 

FKBSB FIPL EQ FKBSB_FL 
#5,R0,30$ 

RO 

G“SMP SACQUIRE 
@FKBSL_FPC(R5) 

RO 

G“SMP SRESTORE 

#IPLS SCS, - 
ENVIRON=UNIPROCESSOR 

10$ ; 


™e Ye Ye Yeo Ye Ye Ve Qs we Te Ye Se Ne Ve Be Ve We Se Ye Ne Yo Ye Ye Yo Vo Veo 


FKBSB_FIPL(R5) ,- ; 
ENVIRON=UNIPROCESSOR 


Get fork~-&-wait queue header address. 


The following apparent foolish lock of SCS is needed because certain 
CNXMGR/DSDRIVER threads perform a general REMQUE of blocks without 
knowing whether the block is on the fork_wait queue or not. Therefore, 
by synchronizing with these code threads first, we can allow these 
threads to mis-behave in this manner. 


Synchronize with SCS threads. 
Don’t bother with IPL. | 

Don’t preserve RO. 

Use high level spinlock. 

Don’t preserve RO. 

Is the queue empty? 

Branch if queue is empty. 

Make space on stack for header. 
Dequeue the work queue header. 
Queue stack header in its place. 
Make real fork=&-wait queue empty. 


Unlock high level spinlock. 
Restore our IPL. 

Don’t preserve RO. 

Get an entry from stack work queue. 
Branch if stack work queue empty. 
Restore fork context. 

Get spinlock index. 


K 


Br if FIPL and not FLCK 

Save spinlock index. 

Acquire the spinlock and raise IPL. 
Restart fork thread. 

Restore spinlock index. 

Release the spinlock. 

Restore our IPL. 


Loop through entire stack work queue. 


SMP is not enabled, only use SETIPLs 


Establish fork IPL. 
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1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 


JSB 
ENBINT 
BRB 


80$: 


we Ne Ne 


UNLOCK 


BRB 


908; ADDL 
1008: 


=e Ve Ye 


UNLOCK 


™e “ee Te 
=e “se Ne 


JMP 


=e Ve Se Ye 


CHECK_LOCKS: 
LOCK 


° 
’ 
YY 
e 


we Ve 


MOVAL 
10$: MOVL 
CMPL 
BEQL 
CMPL 


BGTRU 


JSB 


208: UNLOCK 


wa =e te Ve 


CAN_PROC: 
JSB 


™e Se Se Ve Be Ve 


MOV2WL 


BECAUSE IN CERTAIN RARE CASES, 
THIS AS OFTEN AS NECESSARY. 
THE MAILBOX RESOURCE IS ALSO DECLARED AVAILABLE FOR SIMILAR REASONS. 


@FKBSL_FPC(R5) 


10$ 


LOCKNAME=MEGA, - 
NEWIPL=#IPL$_ SCS, - 
PRESERVE=NO 

100$ 


#8, SP 


LOCKNAME=SCS, - 
PRESERVE=NO 
CHECK LOCKS 


LOCKNAME=SCS, - 
PRESERVE=NO 
G*LCK$GL_TIMOUTOQ, R5 
(R5), R6 

R5,R6_ 

20$ 
LKB$L_DUETIME (R6) , - 
G*EXESGL_ABSTIM 

20$ 


G“LCK$SEARCHDLCK 


LOCKNAME=SCS, - 
PRESERVE=NO 


G*SCHSONE_SEC 


#RSNS$_NPDYNMEM, RO 


Restart fork thread. 
Restore our IPL. 
Get next packet. 


=e Ye Ne 


Nothing on FORK_WAIT queue, release lock and continue. 


Unlock high level spinlock. 
Restore our IPL. 

Don’t preserve RO. 

Continue checking locks. 


me Ne Ye Xe 


7 All done: pop queue header from stack. 


Don’t bother unlocking SCS! CHECK_LOCKS needs it! 


7 Uniock SCS threads. 
3 Don’t preserve RO. 
+ Then, fall through to checking locks. 


SCAN FOR WAITING LOCKS THAT MAY HAVE TIMED OUT. INITIATE A DEADLOCK 
SEARCH IF ONE IS FOUND. 


7;LOCK SCS ACCESS 

;DON’T PRESERVE RO 

;GET ADDRESS OF LIST HEAD 
;GET FIRST ENTRY ON LIST 

3;IS LIST EMPTY? 

; YES 

NO, HAS THIS ONE TIMED OUT? 


7NO, ALSO NO NEED TO LOOK FURTHER 
7AS LIST IS ORDERED 

7SEARCH FOR DEADLOCK 
7DON’T REPEAT LOOP HERE; IT’S DONE 
7IN DEADLOCK 
7 UNLOCK SCS ACCESS 
7;DON’T PRESERVE RO 
7** DON’T CHANGE IPL 


Invoke the 1 second CPU scheduling processing 


DECLARE NON-PAGED AND PAGED DYNAMIC MEMORY AVAILABLE. THIS IS NECESSARY 
THE MEMORY ALLOCATION ROUTINES MAY FAIL TO DO 


7NON-PAGED DYNAMIC MEMORY RESOURCE 


367 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


TIMESCHDL - TIME DEPENDENT SCHEDULING 10-MAY-1989 16:56:06 VAX MACRO V5.0-8 Page 26 
X-4403 SEARCH FOR TIME OUTS 1-NOV-1988 14:42:53 [(SYS.SRC]TIMESCHDL.MAR;1 (14) 


1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 


JSB G“SCHSRAVAIL 
MOVZWL #RSN$_PGDYNMEM, RO 
JSB G“SCHSRAVAIL 
MOVZWL #RSNS$ MAILBOX, RO 
JSE G*SCHSRAVAIL . 
MOVZBL #RSN$_ASTWAIT, RO 
JSB G*“SCHSRAVAIL 

; 

; ALL DONE - RETURN 

; | 

TIMEOUT DONE: 
MOvO (SP)+,R5 
RSB 
-END 


7DECLARE RESOURCE AVAILABLE 
?PAGED DYNAMIC MEMORY RESOURCE 
?7DECLARE RESOURCE AVAILABLE 
#MAILBOX RESOURCE 

?DECLARE RESOURCE AVAILABLE 
7ASTWAIT RESOURCE 

#DECLARE RESOURCE AVAILABLE 


7;RESTORE REGISTERS 
3 RETURN 
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Table of contents 


(2) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 


329 
477 
981 
1235 
1261 
1336 
1469 
1514 
1574 


DECLARATIONS 

PXESCREPRC - CREATE PROCESS SYSTEM SERVICE 
ESTABLISH QUOTAS FOR NEW PROCESS 

OVERCHECK - CHECK FOR LEGAL TO EXCEED QUOTA 
PROCESS THE ITEM LIST 

ACTIVATE NEW PROCESS 

ABORT PROCESS CREATION 

MOVSTR ~ STRING COPY SUBROUTINE 

ALLOCPOB - Allocate POQB from paged pool 


369 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SYSCREPRC CREATE PROCESS SYSTEM SERVICE 10-MAY-1989 16:39:53 VAX MACRO V5.0-8 Page 1 
X-32 19-SEP-1988 09:16:28 [SYS.SRC]SYSCREPRC.MaR;1 (2) 


'eTITLE SYSCREPRC CREATE PROCESS SYSTEM SERVICE 
eIDENT ‘'X-32’ 


ZRRRRRRERKEERRRERRERERKEKKE KEKE ERE EKER REREREKRKERREEKHHEKEEKEEEHEKRKERERKEERKKEREEEKER 
ok : 


* 
ce 
7* COPYRIGHT (c) 1978, 1980, 1982, 1984, 1987, 1988 BY * 
?* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
7* ALL RIGHTS RESERVED. * 

10 ;* * 

11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

12 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

16 ;* TRANSFERRED. * 

17 ;* * 

18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

20 ;* CORPORATION. * 

21 ;* * 

22 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

23 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

24 3* * 

25 3* * 

26 PEAR KR RKEEREREEKEHREEKKEEEEKEREEREKREHKEKEERKEEKKEKREEEKRERKKEREKKEKEEKEEKEE 

27 

28 7 ++ 

29 ; FACILITY: EXECUTIVE, SYSTEM SERVICES 

30 ; ; 

31 ; ABSTRACT: SYSCREPRC IMPLEMENTS THE CREATE PROCESS SYSTEM SERVICE. 

32 ; 

33 ; ENVIRONMENT: KERNEL MODE 

34 ; 

35 ; AUTHOR: R. HUSTVEDT + CREATION DATE: 29-NOV~-76 

36 ; 

37 ; MODIFIED BY: 

38 ; 

39 ; X-32 WMC0032 Wayne Cardoza 19-Sep-1988 

40 ; Add implicit affinity support. 

41 ; 

42 ; X-31 wmcoo31 Wayne Cardoza 22-Aug-1988 

43 ; New affinity controls. 

44 ; 

45; X-30 wMCO0030 Wayne Cardoza 16-Aug-1988 

46 ; Eliminate requirement for quorum capability. 

47 3 

48 ; X-29 JDC0405 Jon Callas 22-JUL-1988 

49 ; Check duplicate for process names properly. 

50 ; 

S137 X-28 WMC0028 Wayne Cardoza 16-May-1988 

52 ; Eliminate the MOVC3 of the image name just to check its 

§3 3; protection. 

54; 

55 3 X-27 WMC0027 Wayne Cardoza 10-May-1988 

56 ; Minor performance tweaks. 

57 3 

58 ; X~-26 CWH5026 CW Hobbs 9-Dec~1987 
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59 ; Avoid reference to other process’ PCB after we have 

60 ; rescheduled. 

61 ; 

62 ; X-25 JDC0384 Jon Callas 16-NOV~-1987 

63 3; Handle failure to allocate a PQB properly. 

64 ; 

65 ; X-24 SUF Stu Farnham 2-Nov-1987 

66 ; Use fat fingers to replace line inadvertently deleted 
67 ; in X-23. 

68 ; . 

69 ; X-23 SUF Stu Farnham 26-Oct-1987 

70 ; Use S$SETCAP to set QUORUM capability to ensure that 

71 3 proper bookeeping is done. 

72 3 

73 ; X-22 SSA0006 Stan Amway 5-Oct-1987 

74 ; Set QUORUM bit in CREATED process’ PCB, not the 

75 3 CREATING process’. 

76 3 

77 3 X-21 JDC0362 Jon Callas 11-SEP-1987 

78 ; Reflect ASTLM back to the PQB. 

19 ; Don’t use EXESALOPAGWAIT, as it’s being removed. 

80 ; 

81 ; also includes 

82 ; 

83 ; SSA0005 Stan Amway 22-Sep-1987 

84 ; Create all processes requiring QUORUM CPU capability. 
85 ; : 

86 ; X-20 JWT0298 Jim Teague 27-Aug~1987 

87 ; Parallel processing support. Add defined bits to 

88 ; SCREPRC STSFLGs so that process can be started up 

89 ; with debugger. 

90 ; 

91; X-19 JWT0297 Jim Teague — 24-Aug-1987 

92 ; Use ADAWI to manipulate PRCCNT; lock down pages and 

93 ; acquire MMG spinlock before deducting shell pages 

94 ; from parent. 

95 ; 

96 ; X-18 © SSA0004 - Stan Amway 10-Aug-1987 

97 ; Swap file allocation changes - don’t allocate space here. 
98 ; 

99 ; SFxxxxx Stephen Fiorelli 

100 ; Large working set support. 

101 ; 

102 ; X-17 TCMO0O0O01 Trudy C. Matthews 09-Jun-1987 

103 ; In the ACTIVATE paragraph, remove the check to see if we 
104 ; are still booting if the attempt to allocte swap 

105 ; space returns a status indicating no page or swap files 
106 ; have been initialized. Now, page and swap files can be 
107 ; initialized at any point in the life of the system, so checks 
108 ; that assume they are initialized at a particular phase of 
109 ; the bootstrap are in error. Set the process NOSWAP (the 
110 ; PSWAPM bit in PCBSL_STS) to ensure that it will not be 
lll ; swapped. 

112 ; 

113 ; X-16 SSA0003 Stan Amway 13-Apr-1987 

114 ; Call new routine, MMGSDEALLOCSWPAREA, to return swap 
115 ; file space. 
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116 
117 
118 
119 
120 
121 
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123 
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125 
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127 
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130 
131 
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135 
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137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 


™e Ne Se Se Ne Se Ve Ne Ye Wo Ne Ye Veo Ye Ve Ve Be Ve Ve Ye Yo Te Ye Ye Yo Ve We Yeo Ye Yeo Ye Ne Yo To Ye Te Te Ve Ve Ve Ye Ve Te Ye Ye Ve Ye We Ve Ye Ve Ve We Ve Be We Ne 


X-15 


X~-14 


X-13 


X-12 


X-11 


X-10 


X-1A3 


X~-1A2 


JWT0289 Jim Teague 11-Mar-1987 
JIB lock is now a system spinlock -- remove code 
to allocate and initialize per-JIB spinlocks. 


wmcoo14 Wayne Cardoza 10-Mar-1987 
Allow no detached process quota. 

BYTIM checked agains ORG _BYTLM 

minor performance tweaks 

Stay at ASTDEL after process limit chacks. 


SSA0002 Stan Amway 6-Mar-1987 
Correctly test return status from MMGSALLOCSWPAREA. 


WCTO0032 Ward C. Travis 2-Mar-1987 
Update remaining old lookaside listhead references 
to reflect that they are now interlocked queues. 


ROWO601 Ralph 0. Weber 27-FEB-1987 13:16 
Remove ARBSR_RIGHTSDESC and ARBS$R_LOCALRIGHTS hardcoded 
definitions. SDL now appears to be generating valid 
values, and the hardcoded values are no longer correct. 


Also, add several ASSUME statements in the body of code 
that builds the ARB that is embeded in a PCB. Several 
relationships between the PCB and its embeded ARB are 
assumed but not represented by assume statements. 


JWT0286 Jim Teague 27-Feb-1987 
Add code to allocate and initialize JIB spinlock. 


SFO04002 Stephen Fiorelli 05-Feb-1987 
SCHS$GL_NULLPCB becomes SCHSAR_NULLPCB. 


RNGOOOS Rod Gamache 19-Nov-1986 
Miscellaneous SMP cleanup. 


RNGOO007 Rod Gamache 6-Nov-1986 

Fix offset from stack for fetching address to store 
EPID. SMP Poor Man’s Lockdown pushes 3 extra longwords 
onto the stack. 


SJF Stu Farnham 5-Nov-1986 
Initialize PCBSL_AFFINITY. 


. SSAO0001 Stan Amway 29-Oct-1986 


Maintain maximum, concurrent process count. 


RNGOOO4 Rod Gamache 21-Oct-1986 
Use SMP Poor Man’s Lockdown macros. 


RNG4003 Rod Gamache 4-Feb-1986 
Make PQB queue self relative. 


RNG4002 Rod Gamache 30-Jul-1985 
Add initial SMP support. 
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173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
163 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 


196. 


197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 


Se Ne Ne Ne Ne Se Se Ne Ne Se Se Se Se Se Se Ne Ne Se No Se Se Ss Se Se Ne Ne Se Se Se Se Ne Se Se Se Ne Se Se Se Ne Se Ne Ne Ne he te Ne Ne Ne Ne Se Ne Ne Me te Ne te Ne 


V04~003 


v04-002 


vo4-001 


V03-037 


V03-036 


V03-035 


V03-034 


V03-033 


V03-032 


V03-031 


' V03-030 


V03-029 


v03-028 


V03-027 


SF04001 Stephen Fiorelli 23-Oct-1985 
System_service macro used to declare entry point 
and build a system service qescrsptor block. 

Added $SYSVECTORDEF. 


wacoool1 Wayne Cardoza 14-Sep-1984 
Fix LJUK0290 to only increment counts for detached processes. 


LJKO0290 Lawrence J. Kenah 12-Sep-1984 

Do not count process in SYSS$GW_xJOBCNT cell until all error 
conditions have been tested. This eliminates the need to 
worry about the xJOBCNT cells along error paths. 


ACG0432 _Andrew C. Goldstein, 9-Jul-1984 17:27 
Add PRCSV_NOPASSWORD flag bit, remove DETACH priv 
requirement from NOUAF, CLISPEC, and INTER flags. 

Add and initialize JIBSL_ORG BYTLM. 


PRDO100 Paul R. DeStefano 27-Jun-1984 


‘Correct placement of label 10001$ in routine ACTIVATE. 


LJKO284 Lawrence J. Kenah 15-May-1984 
Make SS$_INSSWAPSPACE into a useful error return instead 
ofa system crasher. ; 


MHBO155 Mark Bramhall aioe Dade 
Propagate PCB${V|M}_ SECAUDIT to new process: s PCB. 


RASO297 Ron Schaefer 18-Apr-1984 
Put back bogus translation of SYSS$DISK for compatibility 
with past history. Remove KPL0110 and KPLO111. 


KPLO111 . Peter Lieberwirth 17-Apr-1984 

The use of IOCSTRNADEVNAM, in V03-029, caused the device 
string in PQBST DISK not to have a trailing colon. This 
caused PROCSTRT to create an invalid translation for 
SYS$SDISK. Fix here by re-appending the colon. 


MHBO0136 Mark Bramhall 12-Apr-1984 
Add support for PRC$V_CLISPEC. 


MHB0134 Mark Bramhall 10-Apr-1984 

Creators w/o JIBs => Username = SYSTEM, Account = binary nulls. 

Account names with a leading binary null byte are special: 
<0><0>... => <0><0>... All binary nulls stays as is. 
<O><x>... => <x>...< > Others are shifted left one. 

Move new spawn CLI information to PQB from Pl space. 


KPLO110 Peter Lieberwirth 31-Mar-1984 
Translate SYSSDISK by calling G*IOCSTRANDEVNAM, which 
uses STRNLNM. This call replaces obsolete $TRNLOG use. 


SRBO119 Steve Beckhardt 26-Mar-1984 
Another round in the broken branch grame. 


LJK0263 Lawrence J. Kenah 29-Feb-1984 
We’re playing the broken branch game again. The various calls 
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' 230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 


se Ne Se 


me Se Se Me Me Te Ne Se Se Ne Ne Se Ne Te Ne Ye Ne Ye Se Se 


™e Ye Se Se %e *e Ye Ye Ye Ye Ye Ne =e 


we Me Ne Me Se Me Me Me Me Ye Te Me Me Me FO Ne 


me Se Me Me Ne 


V03-026 


Vv03-025 


V03-024 


V03-023 


V03-022 


Vv03-021 


V0O3-020 


vo3-019 


Vvo3-018 


Vv03-017 


V03-016 


vo3-015 


Vv03-014 


Vv03-013 


V03-012 


to G*EXESDEANONPAGED need more than word displacement. 


HHOO0O2 Hai Huang 1-Feb-1984 


Add job-wide mount support, i.e. initialize mount listhead 
in JIB. 


LJKO259 Lawrence J. Kenah 23-Jan-1984 
Fix incorrect register usage bug in PQB deallocation. 


LJKO258 Lawrence J. Kenah 18-Jan-1984 
Fix bug introduced by LJK0257. Make JIB creation code handle 
the case of the swapper, a process that does not own a JIB. 


ACGO0385 Andrew C. Goldstein, li-Jan-1984 18:39 
Make MAXDETACH and MAXJOBS JIB fields words 


LJK0257 Lawrence J. Kenah 21-Dec-1983 

Make changes to support larger PQB. Remove support for ACCOUNT 
and USERNAME fields in Pl space. Use S$TRNLNM to pick up 
translation of SYSSDISK. Perform general cleanup. 


TMKOOO1 Todd M. Katz 12-Oct-1983 

Add JTQUOTA (job-wide logical name table creation quota) 

to the process quota block and as a quota in the quota list 
for G*SYSS$CREPRC. No special processing is required for this 
new quota item. 


JWT0138 Jim Teague 11-Oct-1983 
Fix broken branch to G*SCHSCHSE. 

RASO181 Ron Schaefer 05-Sep-1983 
Convert creation of SYSSINPUT, SYSSOUTPUT, SYSSERROR, 
and SYSSDISK logical names to use S$CRELNM. 

wMcO0008 Wayne Cardoza 01-Aug~1983 


New item list codes for logical name attributes. 


ACG0347 Andrew C. Goldstein, 1-Aug~1983 13:21 
Fix register use bug in ACG0335 

wMco007 Wayne Cardoza 28-Jul-1983 

Move bumping of interactive and batch counts here. 


WMCO0006 Wayne Cardoza 05-JUL-1983 
No privilege needed for interactive subprocess. 


CWH1010 CW Hobbs 20-Jun-1983 
Add a comment which calls attention to an order dependency 
in the call to G*EXESIPID TO EPID. 


ACG0335 Andrew C. Goldstein, 9-May-1983 16:26 
Propagate default file protection in PCB; copy extended 
rights list to created process. 


WMCOO005 Wayne Cardoza 
Change PSECT of detach code. 
SS$_INSSWAPSPACE for no swap space. 
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287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 


317° 


318 
319 
320 
321 
322 
323 
324 
325 
326 
327 


me Me Ne Me Me Me Me Ne Me Ye Se Se Me Ye Ye Se Ne Se Ye 


=e ‘oe “oe 


we Te Ye Te eo Be Ve YO Ve 


ee Se Ye 


Re Ne 


se te Se Se Ne 


Vv03-011 
V03-010 
V03~-009 
vos-008 


V03-007 


V03-006 


Vv03-005 


V0O3-004 


wmMco004 Wayne Cardoza 14-Apr-1983 

New STSFLG flags. 

WMCO003 Wayne Cardoza 31-Mar-1983 
Second half of the detach changes. 

WMC0002 Wayne Cardoza = 10-Mar-1983 
Liberalized rules on creation of detached processes. 
ACG0318 Andrew C. Goldstein, | 8=Mar-1983 20:27 
Initialize new ARB fields in created process 

MTROOO1 Michael T. Rhodes 28-Feb-1983 


Change the privilege requirements for setting the initial 
process state flags to require only the creator to have 
privilege. 


CWH1002_ CW Hobbs 24-Feb-1983 
Create new extended process ident PCBSL_EPID. Return the 
extended pid to the pidadr argument if specifed. The 
extended pid of a subprocess owner propagates to the 

new PCBSL_EOWNER field. 


CWH1001 CW Hobbs 15-Feb-1983 
Change from sequential to round-robin PIX allocation. 


wMcooo1 Wayne Cardoza 18-Oct-1982 


“Add support for item list argument for page file control. 


V03-003 


V03-002 


LJK48272 Lawrence J. Kenah 10-Aug-1982 
Insure that PCBSL_JIB is clear before allocating PQB 
in case POB allocation fails. Error code assumes that 
contents of JIB field are always valid if nonzero. 
Remove SPRDEF and S$SSDEF calls. 


LJKO0169 Lawrence J. Kenah 2-Jun-1982 


Insure that revised CPU limit is stored in PQB along error 
paths. Use ROTL to perform unsigned divide by two. 
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376 


329 -SBTTL DECLARATIONS 
330 ; 

331 ; INCLUDE FILES: 

332 ; 

333 SACLDEF 3; DEFINE ACL BLOCK 

334 SARBDEF ; DEFINE ACCESS RIGHTS BLOCK 
335 SCPBDEF 3 CAPABILITY DEFINITIONS 

336 S$DYNDEF 7 7 DATA STRUCTURE IDENTIFIERS 
337 SIPLDEF 3 DEFINE INTERRUPT PRIORITY LEVELS 
338 $JIBDEF 3 DEFINE JOB INFORMATION BLOCK 
339 SLNMDEF 7 DEFINE LNM OFFSETS 

340 SLNMSTRDEF ; DEFINE LNM BLOCK OFFSETS 

341 SPCBDEF 3; DEFINE PCB OFFSETS 

342 SPFNDEF 3; DEFINE PFN CONSTANTS 

343 SPHDDEF 3; DEFINE PHD OFFESTS 

344 S$PQBDEF ; DEFINE PROCESS QUOTA BLOCK 
345 SPQLDEF ; DEFINE PROCESS QUOTA LIST CODES 
346 S$PRCDEF 3 DEFINE SCREPRC STATUS FLAGS 
347 $PRIDEF 3; DEFINE PRIORITY INCREMENT CLASSES 
348 SPRVDEF 3? DEFINE PRIVILEGE BITS 

349 S$SYSVECTORDEF 3; DEFINE SYSTEM SERVICE VECTOR OFFSETS 
350 

351 ; 

352 ; MACROS: 

353 ; 

354 

355 ; 

356 ; MACRO TO CREATE STSFLG MAPPING AND PRIVILEGE CHECK TABLES: 

357 ; STSNAM OPTIONAL STATUS BIT NAME TO SET IN PCB 

358 ; PRVNAM OPTIONAL REQUIRED PRIVILEGE BIT NAME 

359 ; NOSUBPRV OPTIONAL NO PRIVILEGE REQUIRED IF SUBPROCESS FLAG 
360 ; 

361 -MACRO STSFLAG STSNAM, PRVNAM, NOSUBPRV 

362 IF B, PRVNAM 

363 -BYTE -1 

364 IFF 

365 IF B, NOSUBPRV 

366 -BYTE PRVSV_’PRVNAM 

367 IFF 

368 -BYTE PRVSV_'PRVNAM ! “X80 

369 -ENDC 

370 -ENDC 

371 IF B, STSNAM 

372 -BYTE -1 

373 . IFF ape 

374 -BYTE PCBSV_’STSNAM 

375 .ENDC 

376 -ENDM STSFLAG 

377 

378 ; 

379 ; MACRO TO CALL STRING MOVING AND VERIFICATION ROUTINE 

380 ; 

381 -MACRO MOVSTRING LIM=15,SRC,DST 

382 BSBW MOVSTR ; CALL MOVE SUBROUTINE 

383 -BYTE LIM ; COUNT LIMIT 

384 -BYTE SRC@-2 3 SOURCE OFFSET FROM AP 

385 .IF IDN <DST> <#0> 
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386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
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404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 


«WORD 0 
-IFF 
WORD 
-ENDC 
-ENDM 


we ee Ye 


PIDADR=4 
IMAGE=8 
INPUT=12 
OUTPUT=16 
ERROR#=20 
PRVADR=24 
QUOTA=28 
PRCNAM=32 
BASPRI=36 | 
UIC=40 
MBXUNT =4 4 - 
STSFLG=48 
ITMLST=52 


PQL V_DEDUCT=0 
ITMLST_ARG=13 


CURPCB = ~-4 


OWN STORAGE: 


we Ne Xe 


ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 


STSFLGTBL: 
STSFLAG 
STSFLAG 


STSFLAG 


POBST_/DST 


MOVS'TRING 


EQUATED SYMBOLS: 


PRC$V_SSRWAIT 
PRCS$V_SSFEXCU 
PRCS$V_PSWAPM 
PRC$V_NOACNT 
PRC$V_BATCH 
PRC$V_HIBER 
PRC$V_NOUAF 
PRCS$V_NETWRK 
PRCS$V_DISAWS 
PRC$V_DETACH 
PRC$V_INTER 
PRC$V_IMGDMP 
PRC$V_CLISPEC 


PRCSV_NOPASSWORD EQ 13 


PRC$V_DEBUG 
PRC$V_DBGTRU 


SSRWAIT 
SSPEXCTY 


PSWAPM, PSWAPM 


EQ 
EQ 
EQ 
EQ 
EQ 
EQ 
EQ 
EQ 
EQ 
EQ 
EQ 
EQ 
EQ 


EQ 
EQ 


DECLARE PSECT EXEC$PAGED_DATA 


OdWIAM LS WN FO 


10 
11 
12 


14 
15 


; 


Re Ve Ye Ye Se Se Ye Ye Be Ye Be Ye Xe 


me Ye 


we 


e 


se Xe 


-e Se Se 


DESTINATION OFFSET IN POQB 


PID ADDRESS 

IMAGE NAME 

INPUT LOGICAL NAME DESCRIPTOR 
OUTPUT LOGICAL NAME DESCRIPTOR 
ERROR LOGICAL NAME DESCRIPTOR 
PRIVILEGE MASK ADDRESS 

QUOTA BUFFER POINTER 

PROCESS NAME DESCRIPTOR 

BASE PRIORITY 

ure 

MAILBOX UNIT NUMBER 


STATUS FLAG MASK 


ITEM LIST — 


DEDUCTIBLE QUOTA FLAG 
ARGUMENT NUMBER FOR THE ITEM LIST 


OFFSET FROM FP TO SAVED R4 


PAGEABLE PSECT 


TRANSLATION TABLE FOR STATUS FLAG BITS 

BIT 0 => RESOURCE WAIT 

RIT 1 => SYSTEM SERVICE FAIL EXCEPTION 
FOR UNSER MCNE 

BIT 2 => PPOCESS SWAP MODE 
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443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 


471 
472 
473 


STSFLGCNT=<.-STSFLGTBL>@~-1 


@ 
v 
2 
o 


STSFLAG 


- STSFLAG 
_ STSFLAG 


STSFLAG 
STSFLAG 
STSFLAG 


_STSFLAG 


STSFLAG 
STSFLAG 
STSFLAG 
STSFLAG 
STSFLAG 
STSFLAG 


DEFAULT NAMES: 


e 
eC 


~ ASCII 


-BYTE 
-BYTE 


ASSUME 


LOGICAL NAME 


LNM_TBL: .ASCID 
LNM_ATTR = *X0103 


NOACNT, NOACNT 
BATCH, DETACH 


RIBER 


LOGIN 


NETWRK, DETACH 


DISAWS 


INTER 


‘ SYSTEM’ 


me “Ne Ne Ve Se Ye Ve Ne Ve Yeo Ye No Ve Ne VO 


e 
e 


BIT 3 => 
BIT 4 => 
BIT 5 => 
BIT 6 => 
BIT 7 => 
BIT 8 => 
BIT 9 => 


NO ACCOUNTING MESSAGE 

BATCH 

HIBERNATE BEFORE CALLING 
INITIAL IMAGE IN PROCSTRT 
LOGIN WITHOUT READING AUTH FILE 
NETWORK 

DISABLE WORKING SET ADJUST 
DETACH 


BIT 10 => INTERACTIVE 

BIT 11 => IMAGE DUMP 

BIT 12 => PASS ON CLI SPECIFICATIONS 
BIT 13 => NO USERNAME DIALOGUE 

BIT 14 => CLI DEBUG flag 

BIT 15 => CLI DBGTRU flag 

NUMBER OF STATUS FLAGS 


Username 


THE FOLLOWING TEXT FIELDS ARE USED WHEN THE CREATING PROCESS (SUCH AS THE 
SWAPPER) DOES NOT HAVE A JIB. 


is SYSTEM, blank padded 


“A! ' [JIB$S_USERNAME - <. - DEFAULT _NAMES>] 
Account name is binary nulls 
<. - DEFAULT NAMES> EQ <JIB$S_USERNAME + JIB$S_ACCOUNT> 


0 [JIB$S_ACCOUNT] | 


\LNMSFILE_DEV\ 


e 
v 


DATA FOR USE IN TRANSLATING SYSSDISK 
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475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
466 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 


520. 


521 
522 
523 
524 
525 
526 


527° 


528 
529 
530 
531 


™e Ve Te Se Se De Veo Te Te Ve Ve Ve Vo we Me Me Ne Me Ne Me Se Ne Se Te Ne Me te Me Ye Se Se Ne Se Ne Se Se Ne 


™e te Ye Ve Ve Ye Ve eo 


=e Se Ye Te Ve Ye “e Se Xe 


DECLARE _PSECT 


EXECSPAGED_| CODE 


TAR. 


-SBTTL EXE$CREPRC - CREATE PROCESS SYSTEM SERVICE 


+ 
+ 


FUNCTIONAL DESCRIP 


TION: 


EXES CREPRC CREATES A NEW PROCESS ACCORDING TO THE 


SUPPLIED PARAMETERS. 
OR AN. INDEPENDENT, DETACHED PROCESS. 


CALLING SEQUENCE: 


THE NEW PROCESS MAY BE EITHER A SUB-PROCESS 


CALLG ARGLIST, G*EXESCREPRC 


INPUT PARAMETERS : 


PIDADR(AP) - ADDRESS AT WHICH TO RETURN PID OF CREATED PROCESS 
IMAGE(AP) ~ ADDRESS OF IMAGE NAME STRING DESCRIPTOR 
INPUT(AP) - ADDRESS OF INPUT NAME. STRING DESCRIPTOR 
OUTPUT (AP) - ADDRESS OF OUTPUT NAME STRING DESCRIPTOR 
ERROR(AP) - ADDRESS OF ERROR LOGICAL NAME STRING DESCRIPTOR 
PRVADR(AP) - ADDRESS OF PRIVILEGE MASK FOR CREATED PROCESS 
QUOTA(AP) <- POINTER TO QUOTA BUFFER 
PRCNAM(AP) - ADDRESS OF PROCESS NAME STRING DESCRIPTOR 
BASPRI(AP) - BASE PRIORITY FOR CREATED PROCESS ; 
UIC(AP)  §<- UIC FOR CREATED PROCESS (0 => SUB-PROCESS) 
MBXUNT (AP) - MAILBOX UNIT NUMBER FOR TERMINATION MESSAGES 
_ STSFLG(AP) ~- STATUS FLAG SETTINGS FOR CREATED PROCESS 
ITMLST(AP) - ITEM LIST 
R4 - ADDRESS OF CURRENT PROCESS CONTROL BLOCK 
BIT MEANING 
0 RESOURCE WAIT DISABLE 
1 SYSTEM SERVICE FAIL EXCEPTION ENABLE 
2 PROCESS SWAP MODE 
3 ACCOUNTING MESSAGE DISABLE 
4 BATCH INDICATOR 
5 HIBERNATE BEFORE CALLING INITIAL IMAGE 
6 BYPASS LOGIN VERIFICATION FOR DETACHED 
PROCESS. . 
7 NETWORK INDICATOR 
8 DISABLE WORKING SET ADJUSTMENT 
9 DETACHED PROCESS 
10 INTERACTIVE INDICATOR 
11 IMAGE DUMP ON FATAL ABORT 
12 PASS ON CLI SPECIFICATIONS 
OUTPUT PARAMETERS: 
RO - COMPLETION STATUS CODE 
@PIDADR(AP) - PROCESS ID (PID) OF CREATED PROCESS 
COMPLETION CODES: 
SS$_NORMAL = SUCCESSFUL COMPLETION 
_ S8$_.  ACCVIO - ACCESS VIOLATION 
~SS$_DUPLNAM - DUPLICATE PROCESS NAME 


SS$_EXQUOTA 
SS$_INSFMEM 
SS$_IVLOGNAM 


= EXCEEDED QUOTA 


INSUFFICIENT MEMORY AVAILABLE 
INVALID LOGICAL NAME 
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532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 


%e Te Ye Te Ne Ye Te Ye Ye Yo Ye Ye Ye Yo 


108: 


15$: 


208: 


¢ FAST ALLOCATION OF PQB FAILED. 


268: 


5108: 
298: 


308: 


INVALID QUOTA LIST 
INVALID STATUS FLAG ARGUMENT 
NO PRIVILEGE FOR SPECIFIED OPERATION 


SS$_IVQUOTAL - 
SS$_IVSTSFLG - 
SS$_NOPRIV - 


SIDE EFFECTS: 


IF NO ERRORS ARE DETECTED, A NEW PROCESS WILL HAVE BEEN ACTIVATED 
AND MARKED NON-RESIDENT. THE INITIAL INSWAP FOR THIS PROCESS 

WILL BE FROM THE SHELL PROCESS. EXECUTION FOR THIS PROCESS 

BEGINS IN THE ROUTINE G“EXESPROCSTRT WHICH WILL MOVE THE INFORMATION 
FROM THE PROCESS QUOTA BLOCK TO THE APPROPRIATE LOCATIONS 


IN THE PROCESS CONTEXT. 


SPECIFIED IMAGE. 


-ENABL 


LSB 


SYSTEM SERVICE CREPRC,- 
<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>, - 


CONTROL WILL THEN BE GIVEN TO THE 


MODE=KERNEL, - 
NARG=12 

PUSHL R4 ; SAVE CREATOR'S PCB ADDRESS 

PUSHL PIDADR(AP) ; SAVE PID RETURN ADDRESS 

BEQL 10$ ; NONE, NO PROBE 

IFNOWRT #4,@ (SP), 20$ ; CHECK FOR WRITABLE 

MOVL -UIC(AP),R11 ; FETCH UIC FOR CREATED PROCESS 

BEQL 29S ; NOT SPECIFIED | 

CMPL § R11,PCBSL_UIC(R4) ; IS IT SAME UIC AS CREATOR 

BEQL $308 ; NO PRIVILEGE NEEDED 

IFPRIV DETACH, 30$ ; FULL DETACH PRIVILEGE 

IFPRIV CMKRNL, 30$ } OR CHANGE MODE TO KERNEL 

MOVZWL #SS$_NOPRIV, RO ; NO, SET ERROR CODE 

RET ; RETURN 

MOVZWL #SS$_ACCVIO, RO ; SET ERROR CODE FOR ACCESS VIOLATION 

RET ; RETURN 


DO IT THE HARD WAY 


BSBW ALLOCPQB ? ALLOCATE ANOTHER PQB 
MOVL R2,R9 7; It always succeeds 
BRB 50$ ; 
BRW - 51$ 7 Branch helper 
BBC #PRCSV_DETACH, STSFLG(AP) , 30$ 
MOVL PCBSL_UIC(R4),R11 3 DETACHED PROCESS (SAME UIC) REQUESTED 
JSB G“EXESALLOCPCB # ALLOCATE PCB, WAIT IF NECESSARY 
BLBC RO, 15$ ? RETURN ERROR IF FAILURE 
MOVL R2,R10 7 SAVE ADDRESS OF NEW PCB 
MOVCS5 #0, (SP), #0, #<PCBSC_LENGTH-12>, 12 (R10) ? CLEAR PCB 
MOVL CURPCB (FP), R4 7 RESTORE CREATOR PCB ADDRESS 
BICL3 #°C<PCBS$M_SECAUDIT>, - 7 PROPAGATE (ONLY) MANDATORY AUDITING 
PCBSL_STS(R4),PCBSL_STS(R10) ; FROM PARENT TO NEW PCB 
SREMQHI G*EXESGQ POQBIQ,R9 7 ATTEMPT FAST PQB ALLOCATION 
7 NOTE: RO is scratch in $REMQHI macro 
BVS 26$ 7; OUT OF LINE IF FAILURE 


CONFIDENTIAL AND PROPRIETARY | 
DIGITAL EQUIPMENT CORPORATION 


SYSCREPRC CREATE PROCESS SYSTEM SERVICE 10-MAY-1989 16:39:53 VAX MACRO V5.0-8 Page 12 
X-32 EXESCREPRC - - CREATE PROCESS SYSTEM SERVI 19-SEP~1988 09:16:28 [SsyYs. SRC] SYSCREPRC.MAR;1_ 


589 ; . 
590 ; INITIALIZE NEW PCB 
591 ; “ 
$92 50S: TSTL R11 3 18 THIS A DETACHED CREATE? 
593 BNEQ §10$ : YES, GO ALLOCATE A NEW JIB 
594 MOVL PCBSL_JIB(R4), R2_ ? GET JIB ADDRESS OF. PARENT 
$95 MOVL = R2, PCBSL _ JIB(R10) ? SAVE POINTER TO JIB IN OFFSPRING 
596 ADAWI #1, JIBSW_] PRCCNT (R2) # ADD ANOTHER SUBPROCESS 
597 PMLREQ END=23005 + Lock pages 
++ 
# NB: Co-routine address + 2 LWs neve been placed on top of stack » 
2 - 
598 LOCK LOCKNAME=MMG, - 7; Grab MMG spinlock 
599 SAVIPL=- (SP) 
600 SUBL #SWPSC Lopes hy maser PGFLCNT (R2) ; “CHARGE FOR SHELL PAGES 
601 BLSS ~ 23S ““.y BR IF OUT OF PAGE FILE QUOTA 
602 UNLOCK LOCKNAME=MMG, ~ 
603 NEWIPL= (SP) +,- 
604 ' PRESERVE=NO ’ 
605 PMLEND a -  # Through with locked pages 
p++ ho vepte EG ye hada : 
3 NB: Co-routine address + 2 LWs have been zemoved from top of stack 
606 CMPW JIBSW_ PRCCNT (R2), orBSM | PRCLIM(R2) 3; OVER LIMIT? 
607 BLEQU 56S | 7 IF LEQU NO, CONTINUE 
608 BRB 2300$ . ? Skip unlock (already done) 
609 
610 23$: - UNLOCK LOCKNAME=MMG, - _-¢ Release MMG 
611 NEWIPL= (SP) +, - TE 
612 Pee: -_ PRESERVE=NO 
613 '_ PMLEND — ee 
++ 


me Ye 


NB: Co-routine address + 2 LWs have been removed from top of stack 


Beebe 


614 2300$: MOVZWL #SS$_EXQUOTA, RO SET ERROR STATUS 


=e fe 


615 24S: BRW ABORT - YES ABORT 

616 

617 51S: JSB G“EXESALLOCJIB ; ALLOCATE JIB FOR MASTER ‘PROCESS 
618 BLBC RO,24$ ; BR IF NO SPACE AVAILABLE 

619 MOVAL JIBSL_MTLFL(R2),JIB$L_MTLFL(R2) ; INITIALIZE MOUNT LISTHEAD 
620 MOVAL JIBSL_MTLFL(R2),JIBSL_MTLBL(R2) ; 

621 _MOVL R2,PCB$L_JIB(R10) © ; SAVE POINTER TO JIB 

622 | | | ans ; 

623 ; THE USERNAME AND ACCOUNT FIELDS OF THE CREATOR’S JIB ARE MOVED INTO THE 
624 ; NEW JIB. THE REST OF THE JIB IS CLEARED. THE TWO ASSUME STATEMENTS INSURE 
625 ; THAT THE JIB LAYOUT ALLOWS ALL OF THESE SHENANIGANS TO BE ACCOMPLISHED 
626 ; WITH A SINGLE MOVC5 INSTRUCTION. | 

627. 

628 ASSUME JIBST USERNAME EQ 12 

629 ASSUME JIB$T_ACCOUNT EQ <12 + JIBS$S_! USERNAME> 

630 | 

631 MOVIL PCBS$L_JIB(R4) ,R3 ; GET JIB ‘ADDRESS OF CREATOR 

632 _ BNEQ 53$ ; JIB EXISTS, GO USE IT 

633 . 
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634 ; THE SWAPPER PROCESS DOES NOT HAVE A JIB. LOAD R3 WITH THE ADDRESS OF SOME 

635 ; TEXT FIELDS THAT LOAD THE NEW JIB WITH A DEFAULT USERNAME AND ACCOUNT. 

636 

637 MOVAB DEFAULT | NAMES-JIBST | USERNAME,R3 ; GET STRING ADDRESS 

638 538: MOvCc5 #<JIBSS | USERNAME + SIB$S_ACCOUNT>, - 

639 JIBST_ USERNAME (R3) , - ; CREATOR'S JIB IS SOURCE 

640 : #0,- ? FILL THE REST WITH ZEROS 

641 #<JIBSC_LENGTH-12>, - . 

642 JIBST_USERNAME(R2) | 7 NEW JIB IS DESTINATION 

643 

644 ; Check the account name for a leading binary null. Account names with 

645 ; a leading binary null are special, reserved to DIGITAL, account names. 

646 ; The following account name combinations are possible: 

647 ; RED ss Normal account name; left as is. 

648 ; <0><0>... Initial startup account name; left as is. 

649 ; <O><x>... Special account name; shifted left one place. 

650 

651 MOVL PCBSL_JIB(R10),R2 ; JIB in R2 again 

652 TSTB JIB$T_ ACCOUNT (R2) ; A leading binary null byte? 

653 BNEQ 56S. 7 Nope, leave account name as is 

654 TSTB JIBST ACCOUNT +1 (R2) # Anything after the null to shift? 

655 BEQL 56$ ? Nope, leave account name alone 

656 MOVC5 #JIBS$S_ACCOUNT-1, - ; Move all but the first byte 

657 JIBST _ACCOUNT+1 (R2) , ~ 3 of the account name, 

658 #*A' 7,- - “4 padding with a blank, 

659 #JIBSS ACCOUNT, - ; into the full 

660 JIBS$T_ACCOUNT (R2) ; account name 

661 

662 56S: MOVAL PCBSL_ASTQFL(R10),PCBSL_ASTQFL (R10) ; SET UP AST Q HEADER 
663 MOVAL PCBSL | _ ASTOFL (R10), PCBSL | , ASTOBL (R10) ? 

664 MOVB #°XOF, PCBSB __ASTEN (R10) ? SET ALL AST ENABLES 
665 MOVAL PCBS$L_LOCKQFL(R10), PCBSL_LOCKQFL (R10) 3; SET UP LOCK Q HEADER 
666 MOVAL PCBSL_LOCKQFL(R10) , PCB$L_LOCKQBL (R10) 

667 ; 

668 ; BUILD THE ARB THAT IS EMBEDED IN THE PCB 

669 ; 

670 ; The following code makes several assumptions regarding the ARB 

671 ; that is embeded in the PCB. Most important amoung these being 

672 ; the assumption that PCB$L_UIC falls in the correct ARB location. 

673 ; The following assume statement attempt to verify these assumptions 

(674 ; in the code. 

675 ; 

676 S$PCBARB = PCBS$R_PCBARB 

677 ASSUME <PCBSQ | PRIV ~- S$PCBARB> EQ ARBSQ_PRIV ? PRIVS IN SAME PLACE? ~ 
678 ASSUME PCBSS | PCBARB GE ARBSC_LENGTH + PCBARB MUST BE BIG ENOUGH 
679 ASSUME <PCBSL | UIC - $PCBARB> EQ ARBSL_DIC 7 UIC MUST BE IN THE 

680 , ASSUME ARBSL | UIC EQ ARBSR__ LOCALRIGHTS _ 3 RIGHT PLACE 

681 

682 MOVL CURPCB (FP), R4 + RESTORE CREATOR PCB ADDRES 
683 MOVL SPCBARB+ARBSL_RIGHTSLIST+R (R4) , R6 ; GET EXTENDED RIGHTS LIST, 
684 MOVL PCBSL | DEFPROT (R4), PCBSL_DEFPROT (R10) 3 COPY DEFAULT FILE PROTECTI 
685 MOVL G*SCHSGL_| DEFAULT | PROCESS | CAP, RO 

686 MOVL RO, PCBSL | PERMANENT CAPABILITY (R10) 7 INITIALIZE CAPABILITY REQU 
687 MOVL RO, PCBSL_ CAPABILITY (R10) 

688 MOVB G*SCHSGL . AFFINITY_SKIP, - 3 IMPLICIT AFFINITY SKIP 
689 ; PCBSB | AFFINITY _SKIP (R10) 

690 BBC #CPBSV_ IMPLICIT _AFFINITY, RO, 565§ 3 IMPLICIT AFFINITY? 


382. 
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691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
7126 
727 
728 
729 
730 
731 
732 
733 
134 
735 
7136 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 


5658: 


578: 


5758: 


58S: 


598: 


ee te Be 


=e 


608: 


7083 


MOVL 
BBC 
MOVZWL 
MOVC3 
MOVAB 


MOVAB 


MOVAB 


‘TSTL 


BEQL 
CLRL 
MOVZWL 
JSB 
BLBS 
BRW 


BRW 


MOVL 
MOVL 
MOVC3 
MOVAB 
MOVW 
MOVL 


PCBSL_AFFINITY(R4) , PCBSL_AFFINITY (R10) 
#31,SP,57$ 

G*SYSS$GW_FILEPROT, PCB$L_DEFPROT (R10) 
#ARBSC_| LENGTH, $PCBARB (R4) , $PCBARB (R10) 
S$PCBARB (R10), PCBS$L_ARB (R10) 


e 
o 
e 

rd 
YY 

cf 


70 Me 


PROPAGATE FROM PARENT 
BRANCH IF NOT INITIAL CREA 
SET SYSTEM FILE PROTECTION 
COPY ENTIRE ARB 

SET ADDRESS OF ARB 


$PCBARB+ARB$R_RIGHTSDESC (R10) , - 
S$PCBARB+ARBSL_RIGHTSLIST (R10) 


ADDR OF LOCAL RIGHTS DESC 


we 


$PCBARB+ARBS$R_ LOCALRIGHTS (R10) ,- 


$PCBARB+ARB$R_RIGHTSDESC+4 (R10) 


R6 
59§ 


SPCBARB+ARBSL_RIGHTSLIST+8(R10) ; 


ACLSW_SIZE(R6) ,R1 
G“EXESALLOCBUF 
RO, 58$ 

ABORT 


aAccCVIO ; 


~ R2,R7 
R2, $PCBARB+ARBSL __RIGHTSLIST+8 (R10) 


R1, (R6), (R7) 
12 (R7) , 4 (R7) 
MBXUNT (AP) , PCBSW_TMBU (R10) 


G*SWPS$GL_SHELLSIZ,PCB$L_PPGCNT (R10) 


TAIT EAET CE: oven BUFFER 


3 ADDR OF LOCAL RIGHTS LIST 
3 SEE IF EXTENDED RIGHTS LIS 
; BRANCH IF NONE 

MARK NONE ALLOCATED YET 

GET SIZE 

AND ALLOCATE A NEW ONE 
KEEP GOING IF SUCCESS 
ABORT CREATION 


we Ve Ye Veo 


GIVE ACCESS VIOLATION AND ABORT 


; SAVE ADDRESS 

7 STORE IN PCB 

? COPY RIGHTS LIST CONTENTS 
; SET DESCRIPTOR POINTER 

7 TERMINATION MAILBOX UNIT 
7 AND PROCESS PAGE COUNT 


MOVC5 to, (SP), #0, #<POBSC - LENGTH-12>, 12 (R9) ; CLEAR QUOTA BUFFER 
MOVSTRING LIM=15,- 3 VALIDATE PROCESS NAME 
SRC=PRCNAM, - : 3; FROM PROCESS NAME DESCRIPTOR 
oa DST=#0- ; WITHOUT MOVING IT 
TSTL R2 . : WAS A PROCESS NAME SPECIFIED 
BEQL 60$ © 7; NO PROCESS NAME, NULL STRING 
MOVZWL . (R2),R6 3 GET LENGTH 
BEQL 60$ 7. NO PROCESS NAME, NULL STRING 
MOVB R6, PCB$T_LNAME (R10) ; LENGTH | 
MOVC3 R6,@4(R2),PCBS$T_LNAME+1 (R10) ; SET INTO NEW PCB 
. MOVL CURPCB (FP), R4 : RESTORE PCB ADDRESS 
MOVQ @PCBS$L_PHD(R4) , R2 3 GET PRIVILEGE MASK 
MOVL PRVADR (AP), R7 ; FETCH ADDRESS OF PRIVILEGE MASK 
BEQL 70$ 3 NONE SPECIFIED 
MOVQ R2,RO 3; SAME PRIVILEGES 
IFNORD #8, (R7),575$ ; ERROR IF NOT READABLE 
MOVQ (R7) , R2 : FETCH NEW PRIVILEGE MASK 
IFPRIV SETPRV,70S— ; SKIP MINIMIZATION IF SETPRV 
MCOML — RO,RO 3; INVERT FOR BIT CLR | 
MCOML  R1,R1 : 
BICL RO, R2 3; MINIMIZE PRIVILEGES 
BICL R1,R3 : IF CALLER IS NOT PRIVILEGED ENOUGH 
MOVQ R2,PQB$Q_PRVMSK (R9) ; SET PRIVILEGES IN BUFFER 
BICL3 #°C31,BASPRI (AP), RO 3 FETCH DESIRED BASE PRIORITY | 
SUBL3 RO, #31,R0 : CONVERT TO INTERNAL PRIORITY 
IFPRIV SETPRI,100$ 3 SKIP MINIMIZATION IF PRIVILEGE 
CMPB RO, PCB$B_PRIB (R4) : OTHERWISE MINIMIZE WITH CALLERS BASE 
BGEQU 100$ : GOOD VALUE, USE IT 
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748 MOVB PCBSB_PRIB(R4),RO 7 NO, USE CALLERS BASE PRIORITY 

_ 749 100$: MOVB RO, PCB$B_PRIB (R10) ; SET IN NEW PCB ; 
750 MOVB RO, PCBSB | | PRI (R10) ; AS BOTH CURRENT AND BASE PRIORITY 
751 MOVL R11,PCBSL _ UIC (R10) 7 STORE UIC FOR NEW PROCESS 
752 BNEQ 110$ : BR IF IT WAS SPECIFIED 
753 MOVL PCBSL_UIC(R4) , PCBSL_UIC (R10) 7 OTHERWISE USE UIC OF CREATOR 
754 MOVL PCBSL_PID(R4),PCBS$L_OWNER(R10) ; AND INDICATE SUBPROCESS 
755 MOVL PCBSL_EPID(R4),PCBS$L_EOWNER(R10); AND ALSO COPY THE EXTENDED PID 
756 1108: MOVZWL G“SCHSGL_MAXPIX,R7 ? INITIALIZE INDEX FOR NAME CHECK 
757 TSTL R6 7 ANY LOGICAL NAME FOR NEW PROCESS? 
758 BEQL 140$ 7 NO, SKIP SEARCH 
759 INCL R6 ; Bump the length for the compare to 
760 3 speed up the CMPC. 
761 1208: MOVL @W*SCHSGL_PCBVEC([R7],R8 ; FETCH A PCB ADDRESS 
762 CMPW PCBSW_GRP (R8) , PCB$W_GRP (R10) 7. SAME GROUP? 
7163 BNEQ 130$ 7 NO, TRY ANOTHER 
764 CMPB PCBST_LNAME (R10), PCB$T_LNAME(R8) ; AVOID CMPC3 MOST TIMES 
765 BNEQ 130$ 7 NO MATCH, CONTINUE 
766 CMPC3 R6,PCBST_LNAME (R10), PCBS$T_LNAME (R8) ? COMPARE NAMES 
767 BNEQ 130$ 7 NO MATCH, CONTINUE 
768 MOVZWL #SS$_DUPLNAM, RO ; SET DUPLICATE NAME CODE 
769 BRW ABORT 3; AND ABORT CREATION 
770 


771 126$: BUG CHECK KRPEMPTY, FATAL 
772 1308: SOBGTR R7,120$ 


OUT-OF-LINE KRP ALLOCATION BUGCHECK 
CONTINUE SEARCH 


773 1408: MOVSTRING LIM=255, - # MOV IMAGE NAME TO BUFFER 

774 SRC#IMAGE, - 3 FROM IMAGE STRING DESCRIPTOR 

775 DST=IMAGE ? TO PQBST_IMAGE 

776 MOVSTRING LIM=255, - ; MOVE INPUT LOGICAL NAME TO BUFFER 
777 SRC#INPUT, - 7; FROM INPUT STRING DESCRIPTOR 

778 DST=INPUT ? TO PQBST_INPUT 

7179 MOVSTRING LIM=255, - # MOVE OUTPUT LOGICAL NAME TO BUFFER 
780 SRC=OUTPOT, - 3; FROM OUTPUT STRING DESCRIPTOR 

781 DST=OUTPUT : TO POBST_OUTPUT 

7182 MOVSTRING LIM=255,- 3 MOVE ERROR LOGICAL NAME TO BUFFER 
783 SRC=ERROR, - 7 FROM ERROR STRING DESCRIPTOR 

784 DST#ERROR 7 TO POBST_ERROR 

785 

786 MOVB #°B1111,PQBSB_MSGMASK(R9) ; DEFAULT MESSAGE FLAGS = ALL OF THEM 
787 BBC #31,SP,1401$ ; IF SYSTEM SPACE STACK 

788 BRW 145$ ? THEN NO Pl SPACE DATA BASE AVAILABLE 
789 1401$: PUSHR #°M<RO, R1,R2,R3,R4,R5> ; SAVE MOVC REGISTERS 

790 

791 ; 

792 ; TRANSLATE SYSS$DISK USING G“LNMS$SEARCH_ONE. 

793 ; THIS TRANSLATES EXACTLY ONCE AND PASSES THE EQUIVALENCE STRING TO 

794 ; THE CREATED PROCESS. COMPLETELY BOGUS RESULTS WILL OCCUR IF THIS 

795 ; TRANSLATION IS NOT EITHER A SYSTEM-WIDE LOGICAL NAME OR A PHYSICAL 

796 ; DEVICE NAME. THIS TOTALLY BOGUS IMPLEMENTATION MUST REMAIN THIS WAY 

797 ; FOR COMPATIBILITY WITH PREVIOUS RELEASES. 

798 ; , 

799 ; ALLOCATE A KERNEL REQUEST PACKET TO CONTAIN THE EQUIVALENCE STRING 

800 ; (AND LOGICAL NAME WORK AREA) FOR G*LNMSSEARCH ONE. 

801 

802 MOVAB G*CTLS$GL_KRPFL, R7 ; GET KRP LISTHEAD 

803. REMQUE @4(R7),R6 3; GET A KRP 

804 BVS 126$ ; BUG CHECK IF ALL ARE IN USE 
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805 
806 
807 
808 


809 


810 
811 
812 
813 
814 
815 


816 


817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
630 
831 


832 


833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 


1405$: 


1406§: 
1418: 


we Ne Ve 


"=e Ye Se Ye Ve 


1438: 


PUSHL R6 ? SAVE POINTER TO KRP 

MOVZWL G“EXES$GQ SYSDISK, RO GET DESCRIPTION OF SYSSDISK FOR CALL 
MOVL G*EXESGQ SYSDISK+4,R1 
MOVZWL LNM_TBL, R2 

MOVL LNM | | TBL+4,R3 

MOVZWL #LNM | ATTR, R5 CASE_BLIND AND USER MODE 

JSB G*LNMSSEARCH_ONE ? TRANSLATE SYSS$DISK (R4 HAS PCB) 


=e 


we 


GET DESCRIPTION OF TABLE NAME 


ze 


BLBS RO, 1405$ SUCCESS! 
CMPW RO, #SS$_NOLOGNAM NO TRANSLATION IS OKAY 
BNEQ 141$ ELSE ABORT 


BRB 1406$ 

MOVZBL LNMX$T_XLATION(R6) , RO 

MOVB RO, POBST_DISK (R9) 

MOVC3 RO,<LNMXST_XLATION+1>(R6 
<PQBS$T_DISK+1>(R9) 

MOVL  #1,RO 

MOVL (SP)+,R6 

INSQUE (R6),@4(R7) 

BLBC RO, 1468 


GO RETURN KRP 
GET SIZE OF TRANSLATION 
STORE COUNT IN POQB 


’ 


COPY DEVICE NAME TO PQB 
INDICATE SUCCESS 
RESTORE KRP POINTER 
RETURN KRP 

ABORT IF ERROR 


me “Ye Se Ye Ye uw Se we Be Ye Se Vo 


MOVE MINIMUM AND MAXIMUM AUTHORIZED SECURITY CLEARANCE RECORDS FROM 
CREATOR’S PHD INTO THE PQB. THE FOLLOWING ASSUME STATEMENTS GUARANTEE THAT 
WE CAN SAFELY PERFORM THIS WITH A SINGLE MOVC3 INSTRUCTION. 


ASSUME PQBS$S MIN CLASS EQ PHD$S_MIN CLASS 
ASSUME POQBS$S MAX CLASS £Q PHD$S MAX CLASS 
ASSUME PQBSR_ MAX CLASS EQ <PQB$R_MIN CLASS + POQBSS MIN CLASS> 
ASSUME PHD$R_MAX CLASS EQ <PHD$R_MIN CLASS + PHD$S MIN CLASS> 


MOVL G“CTLSGL_PHD, RS _ y GET CREATOR’S PHD ADDRESS 


MOvVCc3 #<PHDSS | MIN | CLASS+PHD$S_ MAX CLASS>, - 


PHDS$R_MIN_ CLASS (RS5) , - 
POBSR_MIN CLASS (R9) 


MOVC3 #PQBSS_DDSTRING, - 
G*PIO$GT_DDSTRING, POBST_DDSTRING(R9) ; DEFAULT DIRECTORY 


Move CLI and CLI table information from Pl space in one fell swoop: 


G*CTL$GT_CLINAME  -> PQB$T_CLI_NAME 

G*CTL$GT TABLENAME -> POQBST CLI TABLE 

G*CTLSGT SPAWNCLI -> POBST SPAWN CLI Optional 
G*CTLS$GT_SPAWNTABLE -> PQBST SPAWN TABLE Optional 


ASSUME POBST CLI_TABLE EQ <PQBS$T_CLI_NAME + PQBSS CLI_NAME> 
ASSUME POBST SPAWN | CLI EQ <PQBST | CLI “TABLE + POBSS | CLI ~TABLE> 
ASSUME POQBST | SPAWN | TABLE EQ <PQBST _ SPAWN _| CLI + POQBSS | SPAWN CLI> 


MOVZWL #<POBSS_CLI_NAME+- ; ASSUME WE’LL MOVE ALL FIELDS 
POQB$S_CLI_TABLE+- 
POQB$S_SPAWN_CLI+- 
PQB$S_SPAWN_TABLE>, - 


RO 
BBS #PRCSV | CLISPEC, STSFLG (AP) , 143$ ; PASSING ON CLI SPECIFICATION? 
MOVZWL #<POBSS | CLI_NAME+- 7 NO, ONLY MOVE FIRST TWO FIELDS 
POBSS | CLI _TABLE>, - 
RO 
moves RO,- ; MOVE AS MANY FIELDS AS SPECIFIED 
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862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 


ve 


| md se Ye 


45S: 


1468: 


1508: 


1608: 


1658: 


1708: 


1808: 


1908: 


=e 


me Ne 


POPR 
MOVB 
MOVL 


FROM Pl SPACE 
ZEROING OPTIONAL FIELDS AS NEEDED 


G*CTLSGT_CLINAME, - 
#0,- 


we tO 


#<POBSS CLI_NAME+- Pe <°) 
PQB$S_CLI_TABLE+- ; THE 
POB$S_SPAWN_CLI+- : FULL 
PQB$S SPAWN TABLE>, - ALLOCATION 


we Ne 


POBST_CLI_NAME(R9) IN THE POB 


#°M<RO,R1,R2,R3,R4,R5> ; RESTORE MOVC REGISTERS 
G“CTLS$GB_MSGMASK, PQBSB_MSGMASK(R9) ; USE CREATOR’S MESSAGE FLAGS 
G“CTLSGL_UAF_FLAGS, POBSL_UAF_FLAGS(R9) ; AND FLAGS FROM UAF RECORD 


ESTABLISH STATUS FLAG SETTINGS FOR PROCESS 


MOVL 
EXTZV 
BEQL 
MOVZWL 
BRW 


MOVL 
CLRL 
FFS 
BEQL 
MOVAW 
CVTBL 
BGEQ 
CMPB 
BEQL | 
TSTL 
BEQL 
EXTZV 
BBS 
MOV2ZWL 
BRW 


CVTBL 
BLSS 
BBSS 
INCL 
BRB 


STSFLG (AP), R8 7 GET STATUS FLAG ARGUMENT 

#STSFLGCNT, #<32-STSFLGCNT>, R8, RO 7 TEST MBZ FIELD 

150$ 7 CORRECT IF ZERO 

#SS$_IVSTSFLG, RO 7 ERROR, INVALID STATUS FLAG ARG 
ABORT 3 ABORT CREATION 

R8, PQBSL_CREPRC_FLAGS(R9) ; STORE FLAGS IN PQB 

R7 7; INITIALIZE INDEX FOR SCAN 

R7, #STSFLGCNT, R8, R7 7 FIND AN ACTIVE STATUS FLAG 

190$ 7 NONE, FINISHED WITH SCAN 
STSFLGTBL(R7],R1 7 POINT TO TRANSLATION ENTRY 

(R1) +, RO 7 GET PRIVILEGE BIT NUMBER TO CHECK 
165$ ; NEGATIVE MEANS POSSIBLY NOT PRIVILEGED 
#-1,R0 

170$ # NO PRIVILEGE REQUIRED 

R11 

170$ # NO PRIVILEGE REQUIRED FOR SUBPROCESS 
#0, #7,R0O,RO ; GET THE PRIVILEGE BIT NUMBER ONLY 


RO, @PCBS$L_PHD(R4) ,170$ 
#SS$_NOPRIV, RO 


THE CREATOR PROCESS MUST HAVE PRIVILEGE 
INDICATE NO PRIVILEGE ERROR 


Ne Se Ne 


ABORT AND ABORT PROCESS CREATION 
(R1),RO ; GET BIT NUMBER IN STS 

180$ 3 NOT NEEDED IN PCB 

RO, PCBSL_STS(R10),180$ ; SET STSFLG IN NEW PCB 

R7 3; NEXT BIT 

160$ 7 CONTINUE SCAN 


DONE WITH STSFLG 


=e 


MISC PQB FLAGS 


1918: 


1928: 


1958: 


ve 


we te 


CHECK 


CLRW 
BBC 
BISW 
BBC 
BISW 
BBC 
BISW 


POBSW_FLAGS (R9) ? INITIALIZE THE FLAGS 
#PRCS$V_IMGDMP , STSFLG (AP) , 191$ 

#PQBSM_IMGDMP, POBSW_FLAGS(R9) ; REQUEST IMAGE DUMP 
#PRCSV_DEBUG, STSFLG (AP) , 192$ If DEBUG bit set, 
#PQBSM_ DEBUG, POBSW_FLAGS (R9) then pass in PQB 
#PRCS$V_DBGTRU, STSFLG (AP), 195$ If DBGTRU bit set, 
#PQBSM_DBGTRU, POBSW_FLAGS (R9) then pass in PQB 


~e Ne 


—e %e 


FOR MAXIMUM ALLOWED DETACHED PROCESSES 


TSTL 


Rll 
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919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 


941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 


964 
965 
966 
967 


BEQL 
PCB_IBN 
BITL 
BNEQ 
MOVL 
MOVL 
BNEQ 


2008: BRW 


ASSUME 


2058: MOVL 


<e Se Ne 


+ 


BEQL 
CLRL 
CLRL 
PUSHR 
MOVL 


3; Start 


PMLREQ 


+ 


200$ 3 NOT DETACHED. 

= <1@PCBSV_INTER>+<1@PCBSV_BATCH>+<1@PCBS$V_NETWRK> 
#PCB_IBN, PCBSL_STS(R10) 
200$ 
PCB$L_JIB(R10),R5 
PCBSL_JIB(R4),R7 

205$ 

240$ 


NO CHECK ON NETWORK, -BATCH, OR INTERACTIVE 
GET THE JIB OF NEW. PROCESS 

GET THE. JIB OF PARENT PROCESS. 

IF NO JIB - WE ARE BOOTING 

BRANCH AID 


se Se Ne Ne 


=e 


JIBSW_MAXDETACH EQ JIBSW_MAXJOBS+2 


JIBSW_MAXJOBS (R7) , - 3; PROPAGATE THE LIMITS 

JIBSW_MAXJOBS (R5) . 

2005S 3 NO LIMIT 

R6 

R8 

#°M<RO,R1,R2,R3,R4,R9, R10, R11> 

#2,R9 3 PROCESS INDEX - AFTER NULL AND SWAPPER 
of locked code 


END=225$ | ; LOCK PAGES IN MEMORY TO LABEL 225$ 


NB: Co-routine address + 2 LWs have been placed on top of stack 


LOCK 


2108: MOVL 


22 


=e 


te Ns 


+ 


CMPL 
BEQL 
TSTL 
BNEQ 
BBS 
MOVL 
CMPL 
BNEQ 
CMPC3 
BNEQ 
INCL 
PCB_IB 
BITL 
BNEQ 
INCL 

0$: AOBLEQ 
UNLOCK 


PMLEND 


+ 


LOCKNAME=SCHED, - 
PRESERVE=NO 
@W*SCHSGL_PCBVEC[R9], R10 


LOCK SCHED DATABASE 
DON’T PRESERVE RO 
GET A PCB 


ze Ve 


=e 


R10, @W*SCHSGL_PCBVEC 7 IS IT NULL PROCESS PCB? 

2208 ; YES 

PCBSL_OWNER (R10) 7 IS IT SUBPROCESS? 

220$ 

#PCBSV_NETWRK, PCBSL_STS(R10),220$ ; DON’T COUNT NETWORK JOBS 
PCBSL _ JIB(R10), R11 3 JIB OF PROCESS BEING CHECKED 

JIBST USERNAME (R7), JIBST_USERNAME (R11) ; AVOID CMPC3 MOST TIMES 
2208 7; NOT THE SAME USER 

#JIBS$S USERNAME, JIBST_USERNAME (R17) , JIBST_USERNAME (R11) 

2208 ; NOT THE SAME USER 

R8 7; ONE MORE TOTAL JOB 


= <1@PCBSV_INTER>+<1@PCBS$V_BATCH> 
#PCB_ IB, PCBSL | STS (R10) 


220$ 7 INTERACTIVE OR BATCH 

R6 7 ONE MORE TO COUNT AGAINST DETACHED 
G*SCHSGL_MAXPIX,R9, 210$ 

LOCKNAME=SCHED, - 7; UNLOCK SCHED DATABASE 


NEWIPL=#IPL$_ASTDEL, ~ 
PRESERVE=NO 


LOWER IPL 
DON’T PRESERVE RO 
END OF LOCKED PAGES 


te Ne Ne 


NB: Co-routine address + 2 LWs have been removed from top of stack 


POPR 
MOVZWL 
BEQL 
SUBL 


#°M<RO, R1,R2,R3,R4,R9,R10,R11> 
JIBSW_MAXJOBS (R7) ,R5 

225$ ; NO LIMIT 
R5,R8 


387 
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968 BGEQU 2305 ? OVER LIMIT (INCLUDING THIS PROCESS) 
969 2258: CVIWL JIBSW_MAXDETACH (R7) , R5 

970 BEQL 240$ ? NO LIMIT 

971 BLSS 230$ 3 NEGATIVE NUMBERS MEAN NONE ALLOWED 
972 SUBL R5,R6 

973 BLSSU 2408 3 OVER LIMIT (INCLUDING THIS PROCESS) 
974 2308: MOVL #SS$_EXPRCLM, RO . 

975 BRW ABORT 

976 ; 

977 2408: 

978 ; 

979 -DSABL LSB 
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K-32 ESTABLISH QUOTAS 


»SBTTL 


FOR NEW PROCESS 19-SEP-1988 09:16:28 [SYS.SRC]SYSCREPRC.MAR;1 (3) 
ESTABLISH QUOTAS FOR NEW PROCESS 


sess =e awa me ao 02 on en a AD AD St ED CHD ED GED GND GE GAY CS GED GUD COD GED GED ERD Seen aewaw on ae ow on oe aD 8 oe en ww ee awe as 


PROCESS QUOTA BLOCK 


=e te Ve 


THE PROCESS QUOTA LIST, 


THE ONE THAT IS USED. 


~e “Te “Ne “ea Ne Te Ye Ye Ye Ve Ye Ye Ve 


IF DUPLICATE QUOTA ENTRIES ARE FOUND, 


IF SUPPLIED, HAS THE FOLLOWING STRUCTURE 
EACH QUOTA IS INTRODUCED AND IDENTIFIED BY A CODE BYTE, PQLS ?7777, 
WHICH IS FOLLOWED BY A LONGWORD CONTAINING THE QUOTA VALUE. 


THE QUOTA VALUES SUPPLIED ARE MAXIMIZED WITH THE REQUIRED MINIMUM 
VALUES AND REPLACE THE DEFAULT VALUE FOR EACH SPECIFIED QUOTA. 

ONLY IF THE PROCESS CREATION IS SUCCESSFUL ARE THE DEDUCTIBLE 

QUOTAS SUBTRACTED FROM THOSE OF A PROCESS CREATING A DETACHED PROCESS. 


THE LAST ONE ENCOUNTERED IS 


SAVE REGISTERS FOR MOVC 
COPY DEFAULTS TO PQB 
AS ASSUMED VALUES FOR 


RESTORE REGISTERS 

FOR SWAPPER POINT TO REAL PHD SINCE NO 
IS IT THE SWAPPER 

USE PCB POINTER TO PHD 

GET POINTER TO PHD WINDOW IN 

CONTROL REGION FOR WINDOW 

GET POINTER TO QUOTA LIST 

NONE SPECIFIED 

CHECK FOR ACCESSIBILITY 


DONE IF PQLS ENDLIST 

CHECK QUOTA FOR ACCESSIBILITY 

CHECK FOR LEGAL QUOTA NUMBER 

INVALID IF GEQ 

MERGE INTO PQB QUOTA LIST 

GO GET NEXT QUOTA SPECIFIED 

INVALID QUOTA LIST 

SIGNAL ERROR CONDITION AND ABORT CREATE 


ABORT WITH ACCESS VIOLATION 


DONE MERGING QUOTAS SPECIFIED 

SET POINTER TO BASE OF MIN VALUES 
SET BASE OF QUOTA VALUES 
SET COUNT FOR SCAN 

GET ADDRESS OF JOB INFORMATION BLOCK 
INDICATE UNRESTRICTED QUOTAS ALLOWED 

IS IT A SUBPROCESS 


QUOTALIST: 2 
PUSHR #*M<RO,R1,R2,R3,R4> ? 
MOVC3 #<<PQLS$_LENGTH-1>*4>, - 7 
G*PQLSAL_DEFAULT+4, - ? 
PQBSL_ASTLM(R9) 7 QUOTAS 
POPR #°M<RO, R1,R2,R3,R4> ; 
MOVL PCBSL_PHD (R4),R5 : 
CMPL § PCBSL_PID(R4),G*SCHSGL_SWPPID ; 
BEQL 5$ 3 YES, 
MOVL § G*CTLSGL_PHD, R5 ; 
5$: MOVL QUOTA (AP) ,R7 : 
BEQL NOQLIST 3 
108: IFNORD #1, (R7),30$ ; 
MOVZBL = _ (R7) +, R6 3; GET CODE 
ASSUME PQL$ LISTEND EQ 0 ; 
BEQOL NOQLIST 3 
IFNORD #4, (R7),30$ ; 
CMPW R6, #PQL$_LENGTH 2 
BGEQ 208 ? 
MOVL (R7)+,PQBSL_ASTLM~4 (R9) [R6] : 
BRB 10$ ; 
208: MOVZWL #SS$_IVQUOTAL, RO ? 
BRW ABORT ;? 
308: BRW ACCVIO ? 
NOQLIST: A 
MOVAL G*PQLSAL_MIN+<4*PQLS LENGTH>, R6 ; 
MOVAL <POBSL ASTLM+<4*<POLS LENGTH-1>>>(R9),R3 ; 
MOVZWL #<PQLS_LENGTH-1>,R8 Fi 
MOVL PCBS$L_JIB(R10) , R7 : 
CLRL R2 7 
TSTL Ril A 
BEQL 5$ ; ; YES 
IFPRIV DETACH, 10$ 


UNRESTRICTED IS OK 
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IFPRIV CMKRNL,10$ 


1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 


58: 
108: 


208: 


408: 


MOVL 
CMPL 
BGEQ 
MOVL 


MOVL 
BSBB 
SOBGTR 
BRW 


CASE 


QUTQUOTA : 


QASTLM: 


108: 


QBIOLM: 


108: 


QBYTLM: 


RSB 


CMPW 
BLEQU 
TSTL 
BEQL 
MOVW 
MOVW 
MOVZWL 
RSB 


CMPW 
BLEQU 
TSTL 
BEQL 


RSB 


TSTL 
BEQL 
TSTL 
BEQL 
CMPL 


PCBSL_JIB(R4) ,R2 
~ (R3) ,~ (R6) 

20$ 

(R6), (R3) 


(R3) ,RO 
40$ 
R8,10$ 
ITEMLIST 


R8, LIMIT=#1,<-~ 
QASTLM, - 
QBIOLM, - 
QBYTLM, - 
QCPULM, - 
QDIOLM, ~- 
QFILLM, - 
QPGFLQUOTA, - 
QPRCLM, ~- 
QTQELM, - 
QWSQUOTA, - 
QWSDEFAOLT, - 
QENQOLM, ~ 
QWSEXTENT, - 
QUTQUOTA- 

>? 


RO, PHDSW_ASTLM(R5) 
10$ 

R2 

10$ 

PHD$W_ASTLM(R5) , RO 
RO, PCBSW_ASTCNT (R10) 
RO, (R3) 


RO, PCBSW_BIOLM(R4) 
10$ 

R2 

10$ 

PCBSW_BIOLM(R4) , RO 
RO, PCB$W_BIOLM(R10) 
RO, PCB$W_BIOCNT (R10) 


Ril 
10$ 
R2 
5$ 
RO, JIBSL_ORG_ BYTLM(R2) 


we Ve Ne Ne 


me Te Ne Ve 


7e Me me Yeo Ne Ne Me Se Ne Yo Ye Yeo Ye Ye To Ne Neo 
Oe ee) 


me Ye Ye Xe 


™e Ne Ne Ye 


we 


™e Ne Ve Te Se Ye Ye Se Vo 


me Ye Ve Ve Vo 


ve 


INDICATE RESTRICTED QUOTAS (JIB ADDRESS) 
CHECK AGAINST MINIMUM ALIONABLE VALUE 
BR IF ABOVE MINIMUM 

FORCE TO MINIMUM 


GET QUOTA REQUEST VALUE 
PROCESS QUOTA 

LOOP FOR ALL QUOTAS 

GO PROCESS THE ITEM LIST 


SWITCH ON TYPE OF QUOTA 

1 => AST LIMIT . 
=> BUFFERED I/O LIMIT 

=> BUFIO BYTE COUNT LIMIT 

=> CPU TIME LIMIT 

=> DIRECT I/O LIMIT 

=> OPEN FILE LIMIT 

=> PAGING FILE QUOTA 

=> SUB-PROCESS LIMIT 

=> TIMER QUEUE ENTRY LIMIT 

=> WORKING SET QUOTA 

=> WORKING SET DEFAULT 

=> ENQUEVE LIMIT 

=> WORKING SET EXTENT 

=> JOB-WIDE LOGICAL NAME TABLE QUOTA 


&m W NO 


&WwWneoVWewo~tan vi 


NO SPECIAL PROCESSING FOR JTQUOTA 


AST LIMIT 

CHECK FOR IN LIMIT 

YES, CONTINUE 

UNRESTRICTED Di: TACHED CREATE? 
YES, ALLOW ANYTHING 

NO, LIMIT TO MAXIMUM 

SET AS WORKING AST COUNT 
Reflect ASTLM in the PQB 
NEXT QUOTA 


BUFFERED I/O LIMIT 

CHECK FOR IN LIMIT 

YES, CONTINUE 

UNRESTRICTED DETACHED CREATE? 
YES ALLOW ANYTHING 

NO, LIMIT TO CURRENT VALUE 
SET LIMIT 

AND WORKING COUNT 

NEXT QUOTA 


BUFFERED I/O BYTE LIMIT 
DETACHED CREATE? 

BR IF NOT 

UNRESTRICTED QUOTAS? 
YES 

Is IT WITHIN LIMITS 
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1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 


58: 


10$: 


QCPULM: 


38: 


58: 


108; 
208: 


QDIOLM: 


10$: 


QFILLM: 


58: 


108: 


BLEQU 
MOVL 
MOVL 
MOVL 
MOVL 
RSB 


TSTL 
BEQL 
TSTL 
BEQL 
CMPL 
BLEQU 
MOVL 
BRB 
MOVL 
BEQL 
SUBL 
BLEQU 
TSTL 
BNEQ 
INCL 
BICL2 
ROTL 
MOVL 
CMPL 
BLSSU 
BSBW 
RSB 


TSTL 
BEQL 
TSTL 
BEQL 
CMPW 
BLEQU 
MOVW 
MOVW 
MOVW 
RSB 


QPGFLQUOTA: 


TSTL 
BEQL 
TSTL 


58 


JIBSL_ORG_BYTLM(R2) , RO 


RO, JIBSL _ BYTLM(R7) 
RO, JIB$L_BYTCNT (R7) 


RO, JIBSL_ORG_BYTLM(R7) 


R2 

20$ 

R11 

3$ 

RO, PHD$L_CPULIM(RS) 
20$ 
PHDS$L_CPULIM(RS5) , RO 
208 
PHD$L_CPULIM(RS5) , R1 
20$ 
PHD$L_CPUTIM(R5) , R1 
10$ | 

RO 

5$ 

R1 

#1,R1 

#31,R1, RO 

RO, (R3) 

RO, R1 

20$ 

OVERCHECK 


RO, PCBSW_DIOLM(R4) 
10$ 


‘ R2 


10$ 

PCBSW_DIOLM(R4) , RO 
RO, PCBSW_DIOLM(R10) 
RO, PCBSW_DIOCNT (R10) 


RO, JIBSW_FILLM(R2) 
5$ 

JIB$W_FILLM(R2) , RO 
RO, JIBSW_FILCNT (R7) 
RO, JIBSW_FILLM(R7) 


R11 
10$ 
R2 


me we Te Ne Me Ye 


me Ye Ye Se Se Ve Ne Ye Ye Ne Ve Yo Ne Vo 


=e Yo Ye Ye Se Ne Ve Ne Ne 


Se Me Ne Ve Te Ye Te Yeo Ye Ve Vo 


eo Ne Ve Ne 


we Se Ne Ye Ne Ne Ne Ne 


YES 

LIMIT TO CURRENT VALUE 

SET IN JIB OF MASTER PROCESS 
BOTH LIMIT AND COUNT VALUES 
AND ORIGINAL VALUE FIELD 
NEXT QUOTA 


CPU TIME LIMIT 

UNRESTRICTED DETACHED CREATE? 
YES, ALLOW ANYTHING 

IS IT A DETACHED PROCESS 

NO 

IS IT WITHIN LIMITS 

YES 

LIMIT IT TO CURRENT VALUE 


GET CURRENT PROCESS LIMIT 
NO LIMIT ON CURRENT PROCESS _ 
DETERMINE REMAINING LIMIT 
BRANCH IF WILL EXCEED LIMIT 
IS REQUESTED VALUE INFINITY? 
NO, GO SEE IF REQUEST CAN BE FILLED 
IF REQUESTING INFINITY, GIVE 
HALF OF CALLER’S LIMIT BY CLEARING 
LOW BIT AND ROTATING THAT TO SIGN BIT 
STORE NEW LIMIT IN PQB 
CHECK FOR IN LIMIT 
YES, CONTINUE 
CHECK FOR LEGAL TO EXCEED 
NEXT QUOTA 


DIRECT I/O LIMIT 

CHECK FOR IN LIMIT 

YES, CONTINUE 

UNRESTRICTED DETACHED CREATE? 
YES, ALLOW ANYTHING 

ELSE LIMIT TO CURRENT VALUE 
SET LIMIT 

AND SET WORKING COUNT 


OPEN FILE LIMIT 

IS THIS A DETACHED CREATE? 
BR IF NOT 

UNRESTRICTED QUOTAS? 

YES 

Is IT WITHIN LIMITS 

YES 

LIMIT TO CURRENT VALUE 

SET FILE COUNT FOR MASTER PROCESS 
AND LIMIT VALUE 

NEXT QUOTA 


PAGE FILE QUOTA 
DETACHED CREATE? 

BR IF NOT 
UNRESTRICTED QUOTAS? 
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1152 
1153 
1154 
1155 
1156 
1157 
1158 


1159 


1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 


1176 


1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 


BEQL 
CMPL 
BLEQU 
MOVL 
MOVL 
MOVL 
RSB 


583 
108: 


QPRCLM: 

TSTL 
BEQL 
TSTL 
BEQL 
CMPW 
BLEQU 
MOVW 
MOVW 
RSB 


5$: 
108: 


QTQELM: 

TSTL 
BEQL 
TSTL 
BEQL 
CMPW 
BLEQU 
MOVW 
MOVW 
MOVW 
RSB 


58: 
108: 


QWSQUOTA: 
BSBB 
ADDL 
CMPL 
BLSSU 
TSTL 
BEQL 
ADDL3 
SUBL3 
RSB 


108: 


QWSEXTENT: 
BSBB 
CMPL 
BGEQU 
MOVL 
ADDL 
CMPL 
BLSSU 
TSTL 
BEQL 
ADDL3 
SUBL3 
RSB 


5$: 


10S: 


QWSDEFAULT: 


5$ 

RO, JIBSL_PGFLQUOTA(R2) 
5$ 
JIBSL_PGFLQUOTA (R2) , RO 
RO, JIBSL_PGFLQUOTA(R7) 
RO, JIBSL_PGFLCNT (R7) 


R11 

10$ 

R2 

5§ 

RO, JIBSW_PRCLIM(R2) 
5§ 
JIBSW_PRCLIM(R2) , RO 
RO, JIBSW_PRCLIM(R7) 


R11 
10$ 

R2 

5$ 

RO, JIBSW_TQCNT(R2) 
5$ 
JIBSW_TOCNT (R2) ,RO 
RO, JIBSW_TQCNT (R7) 
RO, JIB$W_TOLM(R7) 


MAXWSCNT 
PHDSL_WSLIST (RS) , RO 
RO, PHDSL_WSQUOTA (R5) 
10$ 

R2 

10$ 


#1,PHDSL_WSQUOTA(R5) , RO 
PHDS$L_WSLIST (RS) ,RO, (R3) 


MAXWSCNT 
RO, POBSL_WSQUOTA(R9) 
5$ . 
PQBSL_WSQUOTA (R9) , RO 
PHD$L_WSLIST(R5) , RO 
RO, PHDSL_WSEXTENT (R5) 
10$ 

R2 

10$ 


#1,PHDSL WSEXTENT(R5), RO; 


we “Ne Ge te Ve Ye Ve 


™e. Ne Ne Se Ye Ne Ye Ne Ye Xe 


=e Ye Ye Ye Ye Ye Ye Yo Yo Re Vo 


se “Se “Ne Ye Ye Ye Ye 


=e Ne Ne 


™e te Ne Ne Ne Ne 


Se Ne Ne 


e 
ao 
s 


PHD$L_WSLIST(R5) ,RO, (R3); 


’ 


° 
’ 


YES 

IS IT WITHIN LIMITS 
YES 

LIMIT TO CURRENT VALUE 
SET PAGE FILE QUOTA 
AND COUNT 

NEXT QUOTA 


SUBPROCESS QUOTA 

IS THIS A DETACHED CREATE? 
BR IF NOT 

UNRESTRICTED QUOTAS? 

YES 

IS IT WITHIN LIMITS 

YES 

LIMIT TO CURRENT VALUE 
AND LIMIT 

NEXT QUOTA 


TIMER QUEUE ENTRY QUOTA 
IS THIS A DETACHED CREATE? 
BR IF NOT 

UNRESTRICTED QUOTAS? 

YES 

Is IT WITHIN LIMITS 

YES 

LIMIT TO CURRENT VALUE 
SET TIMER QUEUE QUOTA FOR JOB 
AND LIMIT VALUE 

NEXT QUOTA 


WORKING SET QUOTA 

LIMIT TO MAX WORKING SET COUNT 
ADD BASE OF WORKING SET LIST 
CHECK FOR IN LIMIT . 

YES , CONTINUE 

UNRESTRICTED DETACHED PROCESS? 
YES, USE AS IS 

ELSE FORCE TO CORRECT MAXIMUM 
REMOVE BIAS 

NEXT QUOTA 


WORKING SET EXTENT 

LIMIT TO MAX WORKING SET COUNT 
CHECK AGAINST QUOTA 

MORE, USE AS IS 

MAXIMIZE WITH WSQUOTA 

ADD BASE OF WORKING SET LIST 
CHECK FOR IN LIMIT 

YES, CONTINUE 

UNRESTRICTED DETACHED PROCESS? 
YES, USE AS IS 

ELSE FORCE TO CORRECT MAXIMUM 
REMOVE BIAS 

NEXT QUOTA 


WORKING SET LIST DEFAULT 
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1209 
1210 
1211 
1212 
1213 
1214 
1215 


108: 


BSBB 
CMPL 
BLEQU 
MOVL 
RSB 


1216 MAXWSCNT: 


1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 


108: 


QENQOLM: 


58: 


108: 


CMPL 
BLEQU 
MOVL 
RSB 


TSTL 
BEQL 
TSTL 
BEQL 
CMPW 
BLEQU 
MOVW 
MOVW 
MOVW 
RSB 


MAXWSCNT 


-RO, PQBSL_WSQUOTA (R9) 


10$ 


POBSL_WSQUOTA(R9) , (R3) 


RO, G*SGN$GL_MAXWSCNT 
10$ 
G*SGNS$GL_MAXWSCNT, RO 


Ril 
10$ 


R2 


5$ 
RO, JIBSW_ENOCNT (R2) 
sg 


_ JIB$W_ENQCNT (R2),RO- 


RO, JIBSW_ENQCNT (R7) 
RO, JIBSW_ENQLM(R7) 


™e we Ye Ye Yeo 


~e we Se Te Ve 


me Te Ve Ye Re Ne Vo Be We Yo Ve 


LIMIT TO MAXIMUM WORKING SET COUNT 
CHECK AGAINST QUOTA 

LESS, USE AS IS 

MINIMIZE WITH WSQUOTA 

NEXT QUOTA 


LIMIT WSQUOTA OR DEFAULT TO MAXIMUL SIZE 
COMPARE WITH MAXIMUM WS LIST LENGTH 
BR IF WITHIN LEGAL RANGE 


FORCE TO LEGAL VALUE 


-ENQUEVE QUOTA 


IS THIS A DETACHED CREATE? 
BR IF NOT 

UNRESTRICTED QUOTAS? 

YES | 

IS IT WITHIN LIMITS 

YES 

LIMIT TO CURRENT VALUE | 

SET ENQUEUVE QUOTA FOR JOB 
AND LIMIT VALUE © 

NEXT QUOTA 
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1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 


+ 
+ 


we Ve Ye TV 


we Ye 


INPUT 


™e Ye Se Ye Ye Te Ye Ve Veo 


OVERCHECK: 


10S: 


-SBTTL OVERCHECK - CHECK FOR LEGAL TO EXCEED QUOTA 


FUNCTIONAL DESCRIPTION: 


OVERCHECK CHECKS TO SEE IF THE PROCESS BEING CREATED IS A DETATCHED 
PROCESS. IF A DETATCHED PROCESS IS BEING CREATED, CONTROL RETURNS 
INLINE. OTHERWISE THE CREATE IS ABORTED BY BRANCHING TO ABORT 
WITH THE STATUS CODE SS$_NOQUOTA. 

PARAMETERS : 

R4 - PCB ADDRESS OF CURRENT PROCESS 

RS - ADDRESS OF PHD FOR CURRENT PROCESS (WINDOW IN Pl SPACE) 

R9 - ADDRESS OF PROCESS QUOTA BLOCK 

R10- ADDRESS OF PCB FOR NEW PROCESS 

Rli- UIC FOR CREATED PROCESS (0 => SUBPROCESS) 


TSTL R11 

BNEQ 10$ 

MOVZWL #SS$_EXQUOTA, RO 
BRW ABORT 


CHECK FOR SUBPROCESS CREATE 
YES, IGNORE OVER LIMIT 

SET ERROR STATUS CODE 

NO, ABORT CREATE 


we te Ye Ye Ve 


RSB : RETURN 
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1261 -SBTTL PROCESS THE ITEM LIST 

1262 pm mmm rrr rr rrr err ee ere nen en en meee eeeeee 

1263 ; 

1264 ; PROCESS ITEM LIST 

1265 ; 

1266 3 creme et et em ne Sewanee meee sews sees teense oeseseresese 

1267 

1268 ; 

1269 ; THE PROCESS ITEM LIST, IF SUPPLIED, HAS THE FOLLOWING STRUCTURE 
1270 ; EACH ITEM HAS A 2 LONGWORD FIELD. THE FIRST LONGWORD HAS TWO 

1271 ; SUBFIELDS, A WORD OF ITEM LENGTH, FOLLOWED BY A CODE WORD PRCS$ 22222, 
1272 ; WHICH IS FOLLOWED BY A LONGWORD CONTAINING THE ITEM VALUE. 

1273 ; 

1274 ; eee : 
1275 ; IF DUPLICATE ITEM LIST ENTRIES ARE FOUND, THE LAST ONE ENCOUNTERED IS 
1276 ; THE ONE THAT IS USED. 

1277 ; 

1278 ; NOTE THAT THE PAGE FILE INDEX AND CHARACTERISTICS WILL BE TREATED AS 
1279 ; ADVICE ONLY. IF THEY ARE INVALID OR CANNOT BE MET (NO FILE AVAILABLE), 
1280 ; THE NORMAL ALGORITHM FOR ASSIGNING PAGE FILES WILL BE USED IN SHELL. 
1281 ; 
1282 ASSUME PRC$_PGFLCHAR EQ 1 

1283 ' ASSUME PRCS | PGFLINDEX EQ 2 

1284 ASSUME PRCS_ INPUT_ATT EQ 3 

1285 ASSUME PRCS | OUTPUT | ATT EQ 4 

1286 ASSUME PRC$_ERROR_ATT EQ 5 

1287 ; 

1288 ITEMLIST: 

1289 CMPL (AP), #ITMLST_ARG 3 WAS THE ITEM LIST ARGUMENT SUPPLIED? 
1290 BLSSU NO_ITMLST 7 NO 

1291 IFNORD #4, ITMLST(AP),40$ 7 CAN WE READ THE ITEMLIST POINTER 
1292 MOVL ITMLST (AP), R7 7 GET THE POINTER 

1293 BEQL NO_ITMLST ? NONE SPECIFIED 

1294 10S: IFNORD #4, (R7),40$ 7 CAN WE READ THE CODE AND LENGTH 
1295 MOVZWL (R7)+,R0O 3 GET LENGTH WORD 

1296 MOVZWL (R7)+,R6 3 GET THE CODE 

1297 BEQL NO_ITMLST ; END OF THE LIST 

1298 IFNORD #4, (R7),40$ 7 CAN WE READ THE ITEM VALUE 

1299 BSBB 20$ 7 PROCESS THE ITEM 

1300 ADDL #4,R7 

1301 BRB 10$ 3 NEXT 

1302 

1303 20S: CASE R6, LIMIT=#1, <- 

1304 , ITM_PGFLCHAR, - 

1305 ITM_PGFLINDEX, - 

1306 ITM_INPUT ATT, - 

1307 IT™ | OUTPUT ATT, - 

1308 IT™_! | ERROR | ATT, - 

1309 > 

1310 MOVL #SS$_BADPARAM, RO 

1311 BRW ABORT 

1312 

1313 408: BRW AcCVIO 

1314 

1315 ITM_PGFLCHAR: ; PAGE FILE CHARACTERISTICS 

1316 MOVW (R7) , PCBSW_PGFLCHAR (R10) 

1317 RSB 
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1318 

1319 ITM PGFLINDEX: 3 PAGE FILE INDEX 
1320 MOVB § (R7) , PCB$B_PGFLINDEX(R10) 

1321 RSB 

1322 

1323 ITM_INPUT ATT: ; SYS$INPUT ATTRIBUTES 
1324 MOVL § (R7) ,PQBSL_INPUT_ATT(R9) 

1325 RSB 

1326 | | 

1327 ITM OUTPUT ATT: s SYS$INPUT ATTRIBUTES 
1328 MOVL = (R7) , POBSL_OUTPUT_ATT (R9) 

1329 RSB 

1330 

1331 ITM_ERROR_ATT: ; SYS$INPUT ATTRIBUTES 
1332 MOVL §_ (R7), POB$L_ERROR_ATT(R9) 

1333 RSB 

1334 
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1336 
1337 
1338 
1339 


1340. 


1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 


1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 


-SBTTL ACTIVATE NEW PROCESS 
3 
; ACTIVATE NEW PROCESS 
; 
eenabl isb 
MO_ITMLST: 
ACTIVATE: ; 
MOVL R9, PCBSL_PQB (R10) + POINT NEW PCB TO PROCESS QUOTA BLOCK 
MOVL R10,R4 ? PCB ADDRESS OF NEW PROCESS 
MOVL R4, (R10) # BUILD QUEUE HEADER 
MOVL R4, 4(R10) + FOR PCB ; 
10$: PMLREQ END=10001$ # LOCK PAGES IN MEMORY TO LABEL 10001$ 
r++ 
7 NB: Co-routine address + 2 LWs have been placed on top of stack 
| Soma 
LOCK LOCKNAME=MMG, - 3 LOCK MMG DATABASE 
SAVIPL=- (SP) ,- + SAVE CURRENT IPL 
PRESERVE=NO 7 DON’T PRESERVE RO 
MOVL CURPCB (FP) , R6 ; GET PCB ADDRESS OF CREATOR 
LOCK LOCKNAME=SCHED 7 LOCK SCHED DATABASE 
MOVL PCBSL_PHD (R6) ,R5 7 AND EXTRACT HEADER ADDRESS 
3 Look for a free PCB slot (i.e. one pointing to nullpcb). Start at the slot after 
3 last PIX allocated and perform a round-robin scan. 
MOVZWL G*SCHSGL_MAXPIX, R3 ? SAVE MAX PIX TO TEST WHEN TO WRAP AROUND 
SUBL3 S“*#<SCHSC_SWPPIX+1>,R3,R1 ; LOOP COUNTER IS MAX LESS SWAPPER AND NUL 
MOVL G*SCHS$GL_PIXLAST, R7 ; SET INDEX FOR PIX SEARCH TO LAST ALLOCATED 
MOVL G*SCHSAR_NULLPCB, R8 7 REFERENCE PCB ADDRESS (NULL PROCESS) 
208: INCL R7 3 MOVE TO THE NEXT PIX IN THE SEARCH 
CMPL R7, R3 ; IS THE PIX LARGER THAN THE MAXIMUM 
BLEQ 21$ ; BRANCH IF R7 IS OK 
MOVL S*#<SCHSC_SWPPIX+1>,R7 ; SET TO FIRST SLOT AFTER SWAPPER 
218: CMPL R8, @W*SCHSGL_PCBVEC[R7] ; FIND NON-ZERO PIX POINTING TO NULLPCB 
BEQL 30$ 7 GOT ONE, FREE SLOT 
SOBGTR R1,20$ ; OCCUPIED, TRY ANOTHER 
3; Error (max process count exceeded) - SCHED & MMG LOCKs still held. 
228: UNLOCK LOCKNAME=SCHED # UNLOCK SCHED DATABASE 
BRW 60$ ; NO FREE SLOTS AVAILABLE 
3 Got a free slot, SCHED & MMG LOCKs still held. 
308: CMPW G*SCHSGW_PROCLIM, G*SCH$GW_PROCCNT ; CHECK FOR MAX PROCESSES 
BLEQ 22$ ; BR IF YES AND ABORT CREATE 


7; Update global data and create the internal and external process identifiers. 


SAVE NEW PIX AS LAST ALLOCATED PIX 
COUNT THIS PROCESS 

Maintain maximum, concurrent 
process count 


MOVL R7,G*SCHSGL_PIXLAST 

INCW G“SCHS$GW_PROCCNT 

CMPW G*SCHS$GW_PROCCNT, - 
G*PMS$GL_PROCCNTMAX 


=e Se Se Ne 
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1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 


398 


BLEQU 31$ 
MOVZWL G*SCHSGW_PROCCNT, - 
G“PMS$GL_PROCCNTMAX 
318: 
# Note that the following code assumes that caller’s of Create Process 
7 know what they are doing in the sense that there will never be more than 
? one of the bits INTER, BATCH, and NETWRK set at the same time. 
TSTL R11 
BEQL 33$ 7 IT IS A SUBPROCESS - DON’T COUNT IT 
BBC #PCBSV_INTER, PCB$L_STS(R10) ,32$ 
INCW G*SYS$GW_IJOBCNT 3 ONE MORE INTERACTIVE JOB 
328: BBC #PCBSV | BATCH, PCBSL , STS (R10) ,33$ 
INCW G*SYSS$GW_| BJOBCNT ; ONE MORE BATCH JOB 
3358: 
’ 
# NOTE: The call to G*EXESIPID TO EPID checks to make sure the IPID is valid, 
; therefore we must set the IPID in the new PCB and store the address 
7 of the new PCB in the PCBVEC before we call G“*EXESIPID TO EPID. 
MOVL R10, @W*SCHSGL_PCBVEC[R7] ? SET POINTER TO PCB IN VECTOR OF PC 
MOVAW @W“SCHSGL_SEQVEC[R7],RO ; GET ADDRESS OF SEQUENCE NUMBER FOR SLOT 
INCW (RO) ; NEXT SEQUENCE NUMBER FOR THIS PROCESS 
BGEQ 35$ ; BR IF IN RANGE (POSITIVE PID) 
CLRW (RO) ; ELSE, RESET SEQUENCE NUMBER 
358: MOVW (RO), PCBS$L_PID+2 (R10) SET SEQUENCE NUMBER 


MOVW = R7, PCB$L_PID (R10) 
MOVL § PCBS$L_PID(R10),RO 
JSB G*EXESIPID_TO EPID 
MOVL = RO, PCB$L_EPID (R10) 
MOVL = RO, R7 


AND PIX TO FORM COMPLETE INTERNAL PID 
LOAD THE INTERNAL PID TO PASS TO ROUTINE 
CONVERT IPID TO EPID, RETURN EPID IN RO 
STORE THE EXTENDED PID 
COPY EPID, SINCE WE CANNOT TOUCH THE OTHER 
PCB AFTER WE SCHEDULE THE PROCESS 

TSTL Rll DETACHED CREATE? 

BEQL 38$ BR IF NOT 

MOVL PCBSL_JIB (R10), RO GET JIB ADDRESS 

MOVL PCBSL , PID (R10), JIBSL_MPID (RO) 7 AND SET ROOT PID FOR PROCESS TREE 
388: MOVZBL #PRIS_ _TICOM, R2 SET PRIORITY INCREMENT CLASS 


me Me Ve Veo Ve Te VWs Be Ve We 


, 
JSB G*SCHSCHSE 3 MAKE PROCESS EXECUTABLE, NON-RESIDENT 
TSTL R11 ; TEST FOR DETACHED CREATE 
BNEQ 40$ 3; BR IF CREATING DETACHED PROCESS 
INCW PCBSW_PRCCNT(R6) 3 OTHERWISE ACCOUNT FOR SUB-PROCESS 
TSTL PHDS$L_CPULIM(R5) 3 CHECK FOR NO CPU LIMIT 
BEQL 40S 3; NO LIMIT, DONT DEDUCT 
SUBL PQBSL_CPULM(R9) , PHDSL_CPULIM(RS); DEDUCT CPU TIME LIMIT 
40$8: : 
UNLOCK LOCKNAME=SCHED : UNLOCK SCHED DATABASE 
MOVL 16(SP),R0 ; GET EPID RETURN VALUE ADDRESS 
BEQL 55$ 3 NONE 
BLSS 70$ 3 SYSTEM SPACE ADDRESS 
458: UNLOCK LOCKNAME=MMG, - 3; UNLOCK MMG DATABASE 
NEWIPL= (SP) + 3 RESTORE PREVIOUS IPL 
MOVL R7, (RO) 3 RETURN EXTENDED PID FOR CREATED PROCESS 
508: PMLEND : END OF LOCKED CODE 


+ 


we Ne 


+ : 
NB: Co-routine address + 2 LWs have been removed from top of stack 
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1443 
1444 
1445 
1446 
1447 
1448 


1449, 


1450 
1451 
1452 
1453 
1454 


1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 


10001$: 


MOVZWL 
RET 


UNLOCK 


BRB 


MOVZWL 
UNLOCK 


PMLEND 


BRB 


CMPL 
BLSSU 
CMPL 
BGEQU 
MOVL 
UNLOCK 


BRB 


-dsabl 


#SS$_ NORMAL, RO 


LOCKNAME=MMG, ~ 
NEWIPL= (SP) +, - 
PRESERVE=NO 
50$ 


#SS$_NOSLOT, RO 
LOCKNAME=MMG, ~ 
NEWIPL= (SP) + 


ABORT 


RO, G*MMG$GL_NPAGEDYN 
45$ 

RO, G*EXE$GL_INTSTK 
45$ 

R7, (RO) 
LOCKNAME=MMG, - 
NEWIPL= (SP) +, - 
PRESERVE=NO 

50$ 


lsb 


=e Ve 


we “Ne “oe Xe 


ee Ye Ye Ve 


° 
o 


me Ve Te Ye Ye Yo Ye Ve Yo Ve 


SET NORMAL COMPLETION STATUS 
AND RETURN TO CALLER 


UNLOCK MMG DATABASE 
RESTORE PREVIOUS IPL 
DON’T PRESERVE RO 
AND EXIT 


SET ERROR CODE FOR NO SLOT AVAILABLE 
UNLOCK MMG DATABASE 

RESTORE PREVIOUS IPL 

END OF LOCKED CODE 


+ 
NB: Co-routine address + 2 LWs have been removed from top of stack 


ABORT CREATION, EXCEEDED QUOTA 


CHECK FOR IN NONPAGED POOL 

NO, DROP IPL TO STORE EPID 

HIGH LIMIT 

OUT OF POOL OR INTERRUPT STACK 

STORE EXTENDED PID FOR CREATED PROCESS 
UNLOCK MMG DATABASE 

RESTORE PREVIOUS IPL 

DON’T PRESERVE RO 

AND RETURN SUCCESS 

MARKER FOR END OF NONPAGABLE AREA 
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1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 


1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 


1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 


=e Ne Se 


ABRT2: 


ABORT: 


108: 


++ 
NB: 


Be Ye Ve 


we Me 


++ 


™e 


208: 


258: 


308: 


EXE_DEANONPAGED: 


-SBTTL 


ABORT PROCESS CREATION 


ABORT PROCESS CREATION AFTER DETECTING ANY ERROR 


CLRL 


MOVL 
TSTL 
BEQL 
MOVL 


. BEQL 


BSBW 
BRB 
MOVL 
MOVL 
PMLREQ 


LOCK 


ADDL 


UNLOCK 


PMLEND 


ADAWI 


MOVL 
BEQL 
BSBB 
MOVL 
BSBB 
TSTL 
BEQL 
SINSQTI 


MOVL 
RET 


JMP 


ABORT WITH PCB ONLY 


RO 7 INDICATE NO PQB ALLOCATED 
? ABORT WITH BOTH PCB AND PQB ALLOCATED 
RO,R7 . 7 SAVE STATUS CODE 
R11 7 IS THIS A DETACHED PROCESS CREATE? 
10$ ? BR IF NOT 
PCBSL_JIB (R10), RO ; GET JIB ADDRESS FOR RELEASE 
10$ ; BR IF NONE 
EXE_DEANONPAGED * DEALLOCATE JIB 
20$ 7 ; . 
CURPCB (FP), R4 3 GET PCB ADDRESS FOR SURE 
PCBSL_JIB(R4) , R2 ? FETCH JIB ADDRESS 
7 Lock down pages 


END=20$ 


Co-routine address + 2 LWs have been placed on top of stack 


LOCKNAME=MMG, - 7 Get MMG spinlock 

SAVIPL=— (SP), - 

PRESERVE=NO 

#SWPSC_SHELLPFIL, JIBSL_PGFLCNT(R2); RETURN PAGE FILE QUOTA 
7 FOR SHELL PAGES 

LOCKNAME=MMG, - 7; Unlock MMG 

NEWIPL= (SP) +, - 

PRESERVE=NO 
; Through with locked pages 


Co-routine address + 2 LWs have been removed from top of stack 


#-1, JIBSW_PRCCNT (R2) 7 CORRECT SUBPROCESS COUNT 
PCBSQ_PRIV+ARBSL_RIGHTSLIST+8 (R10) , RO ; GET EXTENDED RIGHTS LIS‘ 
25$ 7 BRANCH IF NONE 

EXE_DEANONPAGED DEALLOCATE RIGHTS LIST 

R1i0,R0 ADDRESS OF NEW PCB 

EXE_DEANONPAGED DEALLOCATE QUOTA BUFFER 

R9 ADDRESS OF PQB IF ANY 

30$ BR IF NONE ALLOCATED 


DEALLOCATE PQB TO LOOKASIDE LIST 


(R9) ,G*EXE$GQ POBIQ 
NOTE: RO is scratch in SINSQTI macro 


=e “se Ye Ye Ye Ve Se Ve Be 


R7,RO RESTORE STATUS CODE 
AND RETURN TO CALLER 
G“EXESDEANONP AGED 7 BRANCH AID TO REACH THIS ROUTINE 
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1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1845 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 


+ 


™e Ne Se Ye Te Ye We Te Ye Ne Ye Ye 


INPUT 


me Ye Yo Se Ne Yeo Ye Yeo Ye Ye Ye Ye Re Ye Ye Ye 


MOVSTR : 


10$: 


FUNCTIONAL DESCRIPTION: 


-SBTTL MOVSTR ~ STRING COPY SUBROUTINE 


at 


MOVSTR VALIDATES AND COPIES A STRING FROM THE ARGUMENT LIST 

TO THE PROCESS QUOTA BUFFER. IF ANY ERROR IS DETECTED, THE 
SERVICE CALL IS EXITED VIA A RET INSTRUCTION WITH RO CONTAINING 
THE ERROR STATUS CODE. 


CALLING SEQUENCE: 


BSB MOVSTR 

-BYTE <MAXIMUM_STRING LENGTH> 

-BYTE <AP_! OFFSET | TO_. SOURCE | DESCRIPTOR> 
-BYTE <PQB_OFFSET OF DESTINATION> 


PARAMETERS : 

R9 ~- PQB BASE ADDRESS 

@(SP) - MAXIMUM STRING LENGTH 

@(SP)+1 - AP OFFSET TO SOURCE STRING DESCRIPTOR 
@(SP)+2 - PQB OFFSET FOR DESTINATION COUNTED STRING 


OUTPUT PARAMETERS: 


SPECIFIED AREA IN PQB RECEIVES SOURCE STRING 
R2 - POINTS TO INPUT DESCRIPTOR IF NULL OUTPUT ADDRESS 


COMPLETION CODES: 


SS$_ACCVIO - ACCESS VIOLATION FETCHING DESCRIPTOR OR STRING 
ss$_ IVLOGNAM - INVALID LOGICAL NAME (COUNT OUT OF RANGE) 


MOVE STRING TO PQB 

GET BASE OF PARAMETERS 
INCREMENT RETURN ADDRESS 

SAVE REGISTERS 

GET STRING LIMIT 

GET ARGLIST OFFSET 

FETCH DESCRIPTOR ADDRESS 

NONE, EXIT 

MUST BE ABLE TO READ DESCRIPTOR 
FETCH DESCRIPTOR . 
CHECK FOR NULL COUNT 

YES, NULL STRING 

CHECK UPPER LIMIT ON STRING 


MOVL (SP), R5 
ADDL #4, (SP) 

PUSHR #*M<R4,R5,R6,R7,RE8> 
MOVZBL (R5)+,R8 
MOVZBL (R5)+,R3 

MOVL (AP) [R3], R2 
BEQL MOVEXIT 

IFNORD #8, (R2),ACCVIO 
MOVO (R2) , R6 

TSTW R6 

BEQL MOVEXIT 

CMPW R6,R8 


me Me Ne Ne Se Se Se Ne Se Me Ye Me Ye Ne Ne Ne 


BLEQU 10$ BR IF WITHIN LIMIT 
MOVZWL #SS$_IVLOGNAM, RO SET ERROR CODE 
BRW ABORT AND ABORT CREATE 


CHECK ACCESSIBILITY 
GET PQB OFFSET 

JUST CHECK PROTECTION 
COMPUTE ADDRESS IN PQB 
SET COUNT FOR STRING 
COPY STRING TO BUFFER 


IFNORD R6, (R7),ACCVIO 
MOVZWL (R5),R3 

BEQL  MOVEXIT 

MOVAB = (R9) [R3] ,R3 
MOVB _—R6,, (R3) + 

MOVC3 —R6, (R7), (R3) 


RESTORE REGISTERS 
AND RETURN 


POPR #°M<R4,R5,R6,R7,R8> 


Se Se Se Se Ne Ye Ve Ne Ve 


401 
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1571 ACCVIO: MOVZWL #SS$_ACCVIO, RO 3 SET ERROR CODE 
1572 BRW ABORT ; 


aor 
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1574 _ .SUBTITLE - = ALLOCPOQB - Allocate PQB from paged pool 

1575 ;+ 

1576 ; Functional Description: 

1577 ; - a ats 

1578 ; This subroutine merely allocates a PQB from paged pool. If the. 
1579 ; allocation fails, then we have to abort. : 

1580 ; 

1581 ; Input Parameters: 

1582 ; 

1583 ; R4 - Address of PCB of creating process . 

1584 ; R10 - Address of chunk of nonpaged pool that will ‘become PCB 
1585 ; ; of. new process, 

1586 ; 7 

1587 ; Implicit Input: 

1588 ; 

1589 ; Running at IPLS$_ASTDEL as a result of successful PCB allocation 
1590 ; 

1591 ; Ouptut Parameters: 

1592 ; 

1593 ; If allocation is successful 

1594 ; 

1595 ; R2 - Address of PQB 

1596 ; 

1597 ; If the allocation fails and the creator waits for resources, 
1598 ; 

1599 ; the PCB pointed to by R10 is deallocated and the process 
1600 ; is put into a resource wait state. When paged pool becomes 
1601 ; available, the process resumes execution at the beginning 
1602 ; of the service. 

1603 ; 

1604 ; If the allocation fails and resource wait is disabled. 

1605 ; 

1606 ; a simple failure status (SS$_INSFMEM) is returned. 

1607 ; 

1608 ; Side Effects: 

1609 ; 

1610 ; RO through R3 are modified 

1611 ;- 

1612 

1613 ALLOCPOQB: 3 Allocate process quota block 
1614 MOVZWL #POBSC_LENGTH, R1 3; Set structure size 

1615 PUSHL R1 7 Save request size 

1616 JSB G*EXESALOPAGED 7 Attempt to allocate packet 
1617 POPL R1 7 Restore request size 

1618 BLBC RO, B*DEALLOCATE_PCB 3 If low bit clear, no packet allocated 
1619 MOVW R1, PQOBSW_SIZE(R2) 3; Insert size of allocated block 
1620 MOVZBW #DYNS$C_POQB, - ¢ Insert data structure type 
1621 PQBSB_ TYPE (R2) 3; and clear adjacent byte 

1622 108: RSB z and return 

1623 

1624 DEALLOCATE PCB: 

1625 MOVL R10,R0 ; Get new PCB address 

1626 BSBW EXE_DEANONPAGED 3 Give it back 

1627 MOVZWL #SS$_INSFMEM, RO 3; Return with error 

1628 RET 

1629 

1630 .- END 


“* 403 
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oars anaue WDNre 


Add VVIEF support. 


-TITLE PROCSTRT - PROCESS STARTUP AND INITIALIZATION 

-IDENT ’X-23' 
3 
fPIC IIT I III IIIT ITI IOI IO IOI IIE HERRERA RIKER EERE RARE RRR 
3* ; * 
3* COPYRIGHT (c) 1978, 1980, 1982, 1984, 1987 BY *® 
7* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
7* ALL RIGHTS RESERVED. * 
3* * 
7* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
7* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
7* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
7* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
7* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3* TRANSFERRED. * 
2% x 
3;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
7* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
7* CORPORATION. 
3* * 
7* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
7* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ek x 
: 
SII III III III IOI OI ITO TIT IIIT TITIAN OTIS ISOS IISA SAI I 
ett 
; FACILITY: EXECUTIVE, PROCESS CREATION SYSTEM SERVICE 
? ABSTRACT: 
; PROCSTRT CONTAINS THE CODE NECESSARY TO CONCLUDE THE CREATION 
; OF A PROCESS WHICH MUST BE EXECUTED IN THE CONTEXT OF THAT PROCESS. 
7 ENVIRONMENT: 
; MODE=KERNEL, EXECUTING IN CONTEXT OF NEW PROCESS 
, 
7 AUTHOR: R. I. HUSTVEDT , CREATION DATE: 27-DEC-76 
; 
3 MODIFIED BY: 
; X-23 CWH5123 CW Hobbs 28-Oct-1988 
; Use final names for CWPS/PSCAN queue headers. 
: . 
; X-22 CWH5122 CW Hobbs 29-Aug-1988 
; Initialize the CWPS and PSCAN queues. 
3 
; X-21 JEJO529 James E Johnson 28-Jun-1988 
; Initialize the CTL$GQ RMCB QUE. 
; 
; X-20 WMC0020 Wayne Cardoza 05-Jan-1988 
, Move the IMGRESET call to avoid lowering IPL before the PQB is 
; deallocated. 
; x~-19 HHO300 Hai Huang 09-Oct~1987 


405 
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58 ; x-18 JWT0298 Jim Teague 27-Aug-1987 

59 ; Pass PQB DEBUG and DBGTRU flags through as CLI 

60 ; flags. Formerly, PROCSTRT always cleared the CLI 

61 ; flags. 

62 ; 

63 ; X-17 SSA0002 Stan Amway 25-Aug-1987 

64 ; Limit WSQUOTA to 64K. 

65 3; 

66 ; X~-16 SFO0016 Stephen Fiorelli 15-Jul-1987 

67 ; Large working set support. 

68 ; 

69 ; X-15 WMCO0015 Wayne Cardoza 01-Jul-1987 

10 ; Allow more message vectors. 

71 ; 

72 3 X-14 RNG5SO14 Rod Gamache 12-Mar-1987 

73 3 Add some performance optimizations - get PCB from CTL$GL_PCB. 
74 ; ; 

15 3 X-13) 0 «= WCTO032 Ward C. Travis 2-Mar-1987 

76 ; Update remaining old lookaside listhead references 

17 ~=3 to reflect that they are now interlocked queues. 

78 ; 

19 3; X-12 LJK4015 Lawrence J. Kenah | 28-Jan-1987 

80 ; Map the XQP only once during the life of a process. The 
81 ; change is simply moving the call to XQPMERGE before 

82 ; the label EXESPROCIMGACT. 

83 ; : 

84 ; X-11 DDP0033 Derrell D. Piper 27-Jan-1987 

85 ; Add initialization for JPI context segment queue 

86 ; header (CTL$GQ_ JPICTX). 

87 ; 

88 ; X-10 WMC0003 Wayne Cardoza 26-Jan-1987 

89 ; No CMKRNL needed for the Pl CRETVA. 

90 ; 

91 ; X-9 SSA0001 Stan Amway 16-Oct-1986 

92 ; Support for exec mode rundown routines. 

93 ; 

94 ; X-8 WMC0002 Wayne Cardoza 29-Jul-1986 

95 ; Get rid of re-executeable flag. 

96 ; 

97 ; X-7 SUF Stu Farnham 30-Jun-1986 

98 ; Resolve conflicts from merge of SMP into mainline. 

99 ; 

100 ; X-5 wMcoool1 Wayne Cardoza 18-Jun-1986 

101 ; Initialization routine should return status. 

102 ; 

103 ; x-4 SF04002 Stephen Fiorelli 14-May-1986 

104 ; Add a level of indirection when referencing exeSexceptable. 
105 ; Pointer cell to this table lives in the base image. 

106 ; 
107 ; X-3 SFO4001 Stephen Fiorelli 07-Apr-1986 

108 ; ' Resolve conflicts introduced from merge of exec_reorg_b17 
109 ; thread into the mainline. 

110 ; 

111 ; X-2 ACGO0505 Andrew C. Goldstein, 6-Nov~-1985 — 18:22 
Li2: 3 Deny control access to group and world in log name protection 
113 ; 
114 ; X-1C8 TCMO004 Trudy C. Matthews 20-Nov-1985 
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115 ; Another error in initialization routine: JOB _TABLE’s PARENT 

116 ; and QUOTA fields are not being addressed properly. 

117 ; 

118 ; X-1C7 TCMO0003 Trudy C. Matthews 19-Nov-1985 

119 ; Fix addressing errors in new initialization routine. 

120 ; 

121 ; X-1C6 TCMO002 Trudy C. Matthews 18-Nov-1985 

122 ; The LNM_SYSTEM_DIR_LNMTH structure is no longer directly 

123 ; accessible; instead access it through a pointer called 

124 ; LNM_AR_SYSTEM DIR_LNMTH. This involves changing some code 

125 ; references and adding an initialization routine, 

126 ; INISPROCSTRT_INIT, that copies the address of the structure 

127 ; into local data structures GROUP_TABLE and JOB TABLE. 

128 ; 

129 ; 

130 ; X-1C5 TCMO0001 Trudy C. Matthews 4-Nov-1985 

131 ; Add ALIGNMENT parameter to DECLARE_PSECT macro. 

132 ; 

133 ; V04-002 RASO332 Ron Schaefer 14-Sep~1984 

134 ; Check for RMS$_ BUSY status in the RMS exit handler 
135 3 so as to prevent an infinite loop if the handler 

136 ; has interrupted RMS rundown badly. In that case, 

137 ; give up on trying to do rundown cleanly. 

138 ; Also, change the rundown type to do a full PPF rundown. 

139 ; 

140 ; V04-001 JWT0195 Jim Teague 11-Sep-1984 

141 ; : Replace RMS exec mode exit handler for proper rundown 
142 ; of single-image processes. 

143 ; 

144 ;-- 
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146 


147 | 


148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
i71 
172 
173 


-SBTTL 


3 
# INCLODE FILES: 
7 


DECLARATIONS 


SBOOSTATEDEF 


S$CCBDEF 
SCHFDEF 
$CLIDEF 


S$CLIMSGDEF 


SCPUDEF 
$SDYNDEF 
SIACDEF 
$IHDDEF 


SIMGACTDEF 


S$JIBDEF 
SJPIDEF 
$IMPDEF 
$LNMDEF 


SLNMSTRDEF 


SOPDEF 

SORBDEF 
$PCBDEF 
SPHDDEF 
SPQBDEF 
$PRDEF 

SPRTDEF 
$PRVDEF 
SP SLDEF 
$RMSDEF 
S$SECDEF 
SSGNDEF 
$SSDEF 

SSTSDEF 


we Ye Se 


ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 


ASSUME 
ASSUME 
ASSUME 
ASSUME 


ASSUME 
ASSUME 
ASSUME 
ASSUME 


LNMBSL_FLINK, 
LNMBSL_FLINK+4, 
LNMBSL_BLINK+4, 
LNMBSW_SIZE+2, 
LNMB$B_TYPE+1, 
LNMB$B_ACMODE+1, 
LNMBSL_TABLE+4, 
LNMBS$B_FLAGS+1, 


LNMX$B_FLAGS, 
LNMX$B_FLAGS+1, 
LNMX$B_INDEX+1, 
LNMXS$W_HASH+2, 


LNMTHS$B_FLAGS, 
LNMTHSB_FLAGS+1, 
LNMTHSL_HASH+4, 
LNMTHS$L_ORB+4, 


EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 


EQ, 
EQ, 
EQ, 
EQ, 


EQ, 
EQ, 
EQ, 
EQ, 


DEFINE BOOTSTRAP STATE FLAGS 
CHANNEL CONTROL BLOCK DEFINITIONS 
CONDITION HANDLER DEFINITIONS 

CLI definitions 

COMMAND INTERPRETER STATUS CODES 
DEFINE PER-CPU DATA BLOCK OFFSETS 
DYNAMIC STRUCTURE TYPE CODES 

IMAGE ACTIVATION FLAGS 

IMAGE HEADER DESCRIPTOR DEFINITIONS 
IMAGE ACTIVATOR ARGUMENTS 

DEFINE JIB OFFSETS 

JPI ITEM CODES 

RMS IMPURE AREA DEFINITIONS 

LOGICAL NAME DEFINITIONS 
LOGICAL NAME STRUCTURE DEFINITIONS 
SYMBOLIC NAMES FOR INSTRUCTION OPCODES 
DEFINE OBJECT RIGHTS BLOCK OFFSETS 
DEFINE PCB OFFSETS 

DEFINE PROCESS HEADER 

DEFINE PROCESS QUOTA BLOCK OFFSETS 
DEFINE PROCESSOR REGISTERS 

DEFINE PAGE PROTECTION VALUES 

' PRIVILEGE BIT DEFINITIONS 

DEFINE PSL FIELDS 

DEFINE RMS ERROR STATUSES 

SECTION FLAGS 

DEFINE SYSGEN CONSTANTS 

DEFINE SYSTEM STATUS CODES 

DEFINE STATUS CODE FIELDS 


3e Se Te Ve Ye Ye TE Ye Ve Ye Yo Boe Yo 


we Te Ne Me We Be Ye Ye Ne Ye Ye Be Be Ye Re Vo 


ASSUMPTIONS ABOUT THE STRUCTURE OF LOGICAL NAME AND OBJECT RIGHTS BLOCKS: 


0 
LNMBS$L_ BLINK 
LNMB$W_SIZE 
LNMB$B_TYPE 
LNMB$B_ACMODE 
LNMBSL_TABLE 
LNMBSB_FLAGS 
LNMB$T_NAME 


0 
LNMX$B_INDEX 
LNMX$W_HASH 
LNMX$T_XLATION 


0 
LNMTH$L_HASH 
LNMTHS$L_ORB 

LNMTH$L_NAME 
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203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 


ASSUME LNMTHSL_NAME+4, 


EQ, LNMTHSL_PARENT 


ASSUME LNMTHS$L PARENT+4, EQ, LNMTHS$L_ CHILD 


ASSUME LNMTHSL_CHILD+4, 


EQ, LNMTHSL_SIBLING 


ASSUME LNMTHSL_SIBLING+4, EQ, LNMTHSL_QTABLE 
ASSUME LNMTHSL_QTABLE+4, EQ, LNMTHS$L_BYTESLM 
ASSUME LNMTHSL_BYTESLM+4, EQ, LNMTHSL_BYTES 


ASSUME ORBSL_OWNER, 
ASSUME ORBSL_OWNER+4, 


EQ, 0O 
EQ, ORBSL_ACL_MUTEX 


ASSUME ORBSL_ACL_MUTEX+4, EQ, ORBSW_SIZE 


ASSUME ORBSW_SIZE+2, 
ASSUME ORBSB_TYPE+1, 
ASSUME ORBSB_FLAGS+3, 


EQ, ORBSB_TYPE 
EQ, ORBSB_FLAGS 
EQ, ORBSW_REFCOUNT 


ASSUME ORBSW_REFCOUNT+2, EQ, ORBSQ |} MODE PROT 
ASSUME ORBSQ MODE PROT+8, EQ, ORBSL_| SsYs _PROT 
ASSUME ORBSL_| SYS PROT+4, EQ, ORBSL | OWN | PROT 
ASSUME ORBSL | OWN | PROT+4, EQ, ORBSL_ GRP “PROT 
ASSUME ORBSL_| GRP_PROT+4, EQ, ORBSL_| WOR _] PROT 


ASSUME ORBSL | WOR |  PROT+4, 


EQ, ORB$L_ACL_COUNT 


ASSUME ORB$L_ACL_COUNT+4, EQ, ORBSL | ACL | _ DESC 
ASSUME ORBS$L_ACL DESC+4, EQ, ORBSR_! MIN | " CLASS 
ASSUME ORBSR | MIN | CLASS+ORBS$S | MIN |_ CLASS, - 


EQ, ORBSR _! MAX CLASS 


ASSUME ORBS$R_MAX CLASS+ORB$S MAX CLASS, - 


MACROS : 


we Ne Me 


EQ, ORBSK _! LENGTH 


-MACRO CRELNM, XLATION, XLATION_ATTR, LNMX, LNMB 


BSBW = CRELNM 
-WORD <XLATION> 
-WORD <XLATION ATTR> 
-WORD  <LNMX> 

.WORD  <LNMB> 

-END  CRELNM 


EQUATED SYMBOLS: 


™e Se Ve 


NXTKVEC=0 
NXTEVEC#=256 
NXTRVEC=512 
NXTERVEC=7 68 
NXTMVEC=1024 


7;OFFSET TO NEXT FREE KERNEL VECTOR 

7;OFFSET TO NEXT FREE EXEC VECTOR 

7;OFFSET TO NEXT FREE RUNDWN VECTOR 

7OFFSET TO NEXT FREE EXEC MODE RUNDWN VECTOR 
;OFFSET TO NEXT MESSAGE VECTOR 
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251 

252 ; 

253 ; OWN STORAGE: 

254 ; 

255 

256 DECLARE PSECT EXECSPAGED_DATA, ALIGNMENT=PAGE ; PAGED PSECT 
257 

258 UNIVERSAL_SYMBOL EXESGQ_SYSDISK 

259 ;EXESGQ SYSDISK:: 3 DESCRIPTOR FOR SYSSDISK 

260 -ASCID /SYSS$DISK/ 

261 DEFDESC: ? DEFAULT IMAGE FILE NAME 

262 -ASCID /.EXE/ 

263 

264 CHARS: .ASCII /0123456789ABCDEF/ 3; CHARS FOR OCTAL (HEX) -> ASCII CONVS 
265 

266 ; 

267 ; CATCH ALL HANDLER FATAL CONDITION MESSAGE SUFFIX. 

268 ; 

269 

270 SUFFIX: .ASCIZ /image exit forced./ : 

271 

272 ; 

273 ; STRINGS FOR IMAGE DUMP MERGE. 

274 ; 

275 

276 DEFAULTNAMDSC: 

277 -ASCID /SYSSLIBRARY: .EXE/ 

278 IMGDMPNAM: 

279 -ASCID /IMGDMP/ 

280 

281 ; 

282 ; TEMPLATES FOR THE LOGICAL NAME TABLES AND NAMES CREATED WITHIN PROCSTRT. 
283 ; 

284 

285 -ALIGN QUAD 

286 PROC_DIR: ; LNMSPROCESS DIRECTORY TEMPLATE 
287 - LONG 0 ? FORWARD LINK 

288 «LONG 0 ; BACK LINK 

289 -WORD PROC_DIR_SIZE 3 SIZE OF STRUCTURE 

290 - BYTE DYNS$C_LNM 3; TYPE OF STRUCTURE 

291 - BYTE PSLS$C_KERNEL : KERNEL ACCESS MODE 

292 . LONG (0) 3; CONTAINING TABLE HEADER ADDRESS 
293 - BYTE LNMBS$M_NO ALIAS!- ? NO ALIAS ALLOWED 

294 LNMBS$M_TABLE! - ; THIS IS A TABLE 

295 LNMBSM_NODELETE 3 «+. THAT CANNOT BE DELETED 

296 -ASCIC LNMS$PROCESS DIRECTORY ; DIRECTORY NAME AS COUNTED STRING 
297 

298 -BYTE LNMXSM TERMINAL ?; TERMINAL TRANSLATION 

299 ~BYTE LNMX$C_ TABLE : SPECIAL TABLE TRANSLATION INDEX 
300 -WORD (¢) ; TRANSLATION HASH CODE 

301 -BYTE LNMTHS$K_LENGTH ; SIZE OF TABLE HEADER BLOCK 


410 
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302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 


329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 


we Se Ye Te Se Ye Ye Ye Ye Se 


ve 


™e Ye Ve Xe No 


ee Se Me Ne 


TABLE IS FOR A DIRECTORY 

ADDRESS OF HASH TABLE 

ADDRESS OF OBJECT RIGHTS BLOCK 
ADDRESS OF CONTAINING LNMB BLOCK 
ADDRESS OF PARENT TABLE 

ADDRESS OF CHILD TABLE 

ADDRESS OF SIBLING TABLE 

ADDRESS OF TABLE HOLDING QUOTA 
INITIAL QUOTA ( POSITIVE INFINITY ) 
REMAINING QUOTA ( POSITIVE INFINITY ) 


LAST TRANSLATION 


LNMSPROCESS_ TABLE TEMPLATE 
FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

KERNEL ACCESS MODE 

CONTAINING TABLE HEADER ADDRESS 
NON-ALIASABLE 

A TABLE 


TABLE NAME AS COUNTED STRING 


we Ne Ne Ye 


me Ye Ye Se Ye Ne Ne Se Ne Ne 


=e 


TERMINAL TRANSLATION 

SPECIAL TABLE TRANSLATION INDEX 
TRANSLATION HASH CODE 

SIZE OF TABLE HEADER BLOCK 


FLAGS BYTE 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 


HASH TABLE 

OBJECT RIGHTS BLOCK 
CONTAINING LNMB BLOCK 
PARENT TABLE 

CHILD TABLE 

ADDRESS OF SIBLING TABLE 

ADDRESS OF TABLE HOLDING QUOTA 
INITIAL QUOTA ( POOLED ) 
REMAINING QUOTA ( POOLED ) 


LAST TRANSLATION 


LNMSPROCESS TEMPLATE 
FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 


PROC_DIR_LNMTH = . - PROC DIR 
-BYTE LNMTHSM_DIRECTORY 
-LONG 0 
-LONG 0 
-LONG 0 
-LONG 0 
-LONG 0 
-LONG 0 
_.LONG 0 
-LONG “X7FFFFFFF 
-LONG “X7FFFFFFF 
-BYTE LNMXSM_XEND 
-ALIGN QUAD 
PROC_DIR_SIZE = . - PROC_DIR 
-PROC_TABLE = . - PROC_DIR 
-LONG 0 
-LONG 0 
-WORD PROC_TABLE SIZE 
-BYTE DYNS$C_LNM 
-BYTE PSLSC_KERNEL 
-LONG 0 
-BYTE LNMBSM_NO ALIAS! - 
LNMB$M_TABLE 
-ASCIC LNMSPROCESS_ TABLE 
-BYTE LNMXSM_TERMINAL 
-BYTE LNMXSC_TABLE 
-WORD 0 
-BYTE LNMTHS$K_LENGTH 
PROC_TABLE_LNMTH = . - PROC DIR 
-BYTE 0 
-LONG 0 
-LONG 0 
-LONG 0 
-LONG 0 
-LONG 0 
-LONG 0 
-LONG 0 
-LONG 0 
-LONG 0 
-BYTE LNMXS$M_XEND 
-ALIGN QUAD 
PROC_TABLE SIZE = . - PROC_DIR - PROC_TABLE 
PROCESS = . - PROC_DIR 
-LONG 0 
-LONG 0 
-WORD PROCESS SIZE 
-BYTE DYNS$C_LNM 


we Ne Ne Ne Ne 


TYPE OF STRUCTURE 


aii 
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357 
358 
-359 
360 


361 


362 
363 
364 
365 


366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 


380 
381 
382 
383 
384 


385 
386 
387 


PROCESS | 


GROUP = 


GROUP_XEND SIZE = . - PROC_DIR - GROUP 


-BYTE PSL$C_KERNEL 
-LONG 0 

-BYTE 0 

.ASCIC LNMSPROCESS 


.BYTE LNMX$M_TERMINAL 


-BYTE 0 
«WORD 0 | 
-ASCIC LNMSPROCESS_TABLE 


-BYTE LNMX$M_XEND 
-ALIGN QUAD 
SIZE = . - PROC_DIR - PROCESS 


- - PROC_DIR 
-LONG 0 

eLONG 0 

-WORD GROUP_SIZE 
-BYTE DYNS$C_LNM 
-BYTE PSLS$C_KERNEL 
-LONG 0 

-BYTE 0. 

-ASCIC LNMSGROUP 


-BYTE LNMX$M_TERMINAL 
-BYTE 0 

«WORD 0 

-ASCIC LNMSGROUP_XXXXXX 


-BYTE  LNMX$M_XEND 


388 «ALIGN QUAD 
389 GROUP_SIZE = . - PROC_DIR - GROUP 
390 

391 JOB = . - PROC DIR 

392 -LONG 0 

393 -LONG 0 

394 -WORD JOB SIZE 

395 -BYTE___ DYNS$C_LNM 

396 -BYTE PSL$C_KERNEL 

397 -LONG 0 

398 -BYTE 0 

399 -ASCIC LNMS$JOB 

400 

401 -BYTE LNMX$M_TERMINAL 
402 -BYTE 0 

403 -WORD 0 

404 -ASCIC LNMS$JOB_XXXXXXXX 


ae 


we 


ve 


ve 


KERNEL ACCESS MODE 

CONTAINING TABLE HEADER ADDRESS 
FLAGS BYTE 

LOGICAL NAME AS COUNTED STRING 


we Ne Ye 


TERMINAL TRANSLATION 
TRANSLATION INDEX IS 0 
TRANSLATION HASH CODE 
TRANSLATION AS COUNTED STRING 


~e Ye Ye 


LAST TRANSLATION 


we 


LNMSGROUP TEMPLATE 

FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

KERNEL ACCESS MODE 

CONTAINING TABLE sears ADDRESS 
FLAGS BYTE 

LOGICAL NAME AS COUNTED STRING 


we Me Ve Ye Ne Ye Be Ve 


TERMINAL TRANSLATION 
TRANSLATION INDEX IS 0 
TRANSLATION HASH CODE 
TRANSLATION AS COUNTED STRING 


=e Ne Xe 


LAST TRANSLATION 


=e 


LNMSJOB TEMPLATE 

FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

KERNEL ACCESS MODE 

CONTAINING TABLE HEADER ADDRESS 
FLAGS BYTE 

LOGICAL NAME AS COUNTED STRING 


me Ve Se Ye Ye Se Ve Yo 


TERMINAL TRANSLATION 
TRANSLATION INDEX IS 0 
TRANSLATION HASH CODE 
TRANSLATION AS COUNTED STRING 


=e Ye Ve 
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405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 


420 
421 
422 
423 
424 
425 


426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 


.BYTE LNMX$M_XEND F 
JOB_XEND SIZE = . - PROC_DIR - JOB | 
“ALIGN QUAD 


JOB SIZE = . - PROC_DIR - JOB 


SYSSINPUT = . - PROC_DIR 


-LONG OO 
-LONG 0O 
«WORD SYSSINPUT_SIZE 


ee Ve Ne Ye Te Ye Ye Ye 


-BYTE DYNSC_LNM 
-BYTE PSL$C_EXEC 

-LONG 0 

.BYTE 0 

-ASCIC SYS$INPUT ; 


SYSS$INPUT_LNMX = . - PROC DIR 


-BYTE 0 ? 
-BYTE 0 ; 
-WORD 0 ; 
BYTE LNMX$M_XEND[PQBSS_INPUT] ; 


-BYTE  LNMX$M_XEND ; 
-ALIGN QUAD 
SYS$INPUT_SIZE = . - PROC_DIR - SYSS$INPUT 
TT = . - PROC DIR ; 
-LONG 0 ; 
-LONG 0 ; 
-WORD TT SIZE ; 
-BYTE DYN$C_LNM ; 
-BYTE PSL$C_EXEC ; 
-LONG 0 ; 
-BYTE 0 ; 
_.ASCIC TT i 


LAST TRANSLATION 


SYSSINPUT TEMPLATE 

FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

EXECUTIVE ACCESS MODE 
CONTAINING TABLE HEADER ADDRESS 
FLAGS BYTE 


LOGICAL NAME AS COUNTED STRING 


TRANSLATION ATTRIBUTES 
TRANSLATION INDEX IS 0 
TRANSLATION HASH CODE 
WORST CASE TRANSLATION AS COUNTED STRING 


LAST TRANSLATION 


TT TEMPLATE 

FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

EXECUTIVE ACCESS MODE 
CONTAINING TABLE HEADER ADDRESS 
FLAGS BYTE 


OGICAL NAME AS COUNTED STRING 


413 
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414 


440 
441 
442 
443 
444 
445 


446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 


460 
461 
462 
463 
464 
465 


TT _LNMX = . - PROC_DIR 
-BYTE 0 
-BYTE 0 
.WORD 0 
-BYTE LNMXSM _XEND [PQBSS _ INPUT]; 
-BYTE  LNMX$M_XEND 
-ALIGN QUAD . 
TT SIZE = . - PROC_DIR - TT 
SYSSOUTPUT = . - PROC_DIR 
-LONG 0 
-LONG 0 | 
-WORD SYSSOUTPUT_SIZE 
-BYTE DYN$C_LNM 
-BYTE PSLS$C_EXEC 
-LONG 0 
-BYTE 0 
sASCIC SYSSOUTPUT ; 
SYSSOUTPUT_LNMX = . - PROC_DIR 
-BYTE 0 
-BYTE 0 
-WORD 0 
.BYTE 


e 
a 
e 
’ 
° 
o 
ec 


=e 


we Me te Se Ne Se Ne Be 


TRANSLATION ATTRIBUTES 
TRANSLATION INDEX IS 0 
TRANSLATION HASH CODE 
WORST CASE TRANSLATION AS COUNTED STRING 


LAST TRANSLATION 


SYSSOUTPUT TEMPLATE 

FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

EXECUTIVE ACCESS MODE 
CONTAINING TABLE HEADER ADDRESS 
FLAGS BYTE 


LOGICAL NAME AS COUNTED STRING 


=e Ve MO 


TRANSLATION ATTRIBUTES 
TRANSLATION INDEX IS 0 
TRANSLATION HASH CODE 


LNMX$M_XEND(PQBSS_ OUTPUT]; WORST CASE TRANSLATION AS COUNTED STRING 
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466 


467 -BYTE LNMX$M_XEND 
468 -ALIGN QUAD 

469 SYSSOUTPUT_SIZE = . - PROC_DIR 
470 

471 SYS$ERROR = . - PROC DIR 

472 -LONG 0 

473 -LONG 0 

474 -WORD SYSSERROR_SIZE 
475 -BYTE DYNS$C_LNM 

476 -BYTE PSL$C_EXEC 
477 -LONG 0 

478 -BYTE 0 

479 -ASCIC SYS$ERROR 

480 

481 SYSSERROR_LNMX = . - PROC_DIR 
482 : -BYTE 0 

483 -BYTE 0 

484 -WORD 0 

485 

486 

487 -BYTE | LNMXS$M_XEND 


3 LAST TRANSLATION 
~ SYSSOUTPUT 


SYSSERROR TEMPLATE 

FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

EXECUTIVE ACCESS MODE 
CONTAINING TABLE HEADER ADDRESS 
FLAGS BYTE 

LOGICAL NAME AS COUNTED STRING 


me Se Ne Ne Ne Ye. Ye Ye 


ve 


TRANSLATION ATTRIBUTES 
TRANSLATION INDEX IS 0 
TRANSLATION HASH CODE 


=e Ne Ns 


-BYTE LNMX$M_XEND[PQB$S_ERROR]; WORST CASE TRANSLATION AS COUNTED STRING 


7; LAST TRANSLATION 


415 


CONFIDENTIAL AND PROPRIETARY .. 
DIGITAL EQUIPMENT CORPORATION... 


416 


PROCSTRT - PROCESS STARTUP AND INITIALIZATION 10-MAY-1989 16:39:04 VAX MACRO Wee 0-8 Page 12 
X-23 DECLARATIONS 28-OCT-1988 08:51: 22 {SYS .SRC] PROCSTRT. MAR; 1 (4) 


466 
489 
490 
491 
492 
493 
494 


495.. 


496 
497 
498 
499 


500 
501 
502 
503 
504 
505 


506 
507 
508 
509 
510 
§11 
512 
513 
$14 
515 


516. 


517 
518 
519 
520 
$21 
522 


SYS$DISK = . - PROC DIR 


eALIGN QUAD 
SYSSERROR_SIZE = . - PROC_DIR - SYSS$ERROR 


~ LONG 0 ; 
~ LONG 0 3 
~WORD SYSS$DISK_SIZE 2 
-BYTE DYNSC_LNM ? 
-BYTE PSL$C_EXEC ? 
- LONG 0 ope oe ; 
-BYTE 0 ; 
eASCIC SYSSDISK z 

SYSSDISK_LNMX = . - PROC_DIR 
BYTE 0 3 
-BYTE 0 3 
-WORD 0 3 
-BYTE LNMXS$M_XEND[PQBSS_DISK] ; 
-BYTE LNMX$M_XEND ; 
“ALIGN QUAD 

SYS$DISK_SIZE = . - PROC_DIR - SYSSDISK 

Pl ALLOC SIZE = . - PROC DIR 

eALIGN 5 

GROUP_TABLE: ? 
~ LONG 0 ; 
-~ LONG 0 : 
-WORD GROUP_TABLE_SIZE ; 
-BYTE DYNSC_LNM ; 
-BYTE PSLS$C_KERNEL ; 
«LONG 0 ; 
-BYTE LNMBSM_NO_ALIAS!- ; 

LNMBSM_TABLE ; 
LNMSGROUP_XXXXXX ; 


-ASCIC 


SYSSDISK TEMPLATE 

FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

EXECUTIVE ACCESS MODE 
CONTAINING TABLE HEADER ADDRESS 
FLAGS BYTE 


LOGICAL NAME AS COUNTED STRING 


TRANSLATION ATTRIBUTES 
TRANSLATION INDEX IS 0 
TRANSLATION HASH CODE 
WORST CASE TRANSLATION AS COUNTED STRING 


LAST TRANSLATION 


LNMSGROUP_xxxxxx TEMPLATE 
FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

KERNEL ACCESS MODE 

CONTAINING TABLE HEADER ADDRESS 
NON-ALIASABLE 

A TABLE 


TABLE NAME AS COUNTED STRING 
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523 

524 -BYTE LNMX$M_TERMINAL 
525 -BYTE LNMXS$C_TABLE 

526 .WORD 0 

527 -BYTE LNMTHS$K_LENGTH 

528 

529 GROUP_TABLE LNMTH = . - GROUP_TABLE 
530 -BYTE LNMTHS$M_SHAREABLE! - 
531 LNMTH$M_GROUP 

532 .LONG 0 

533 -LONG 0 

534 -LONG 0 

535 -LONG 0 

536 .LONG 0 

537 -LONG 0 

538 .LONG 0 

539 -LONG 0 

540 -LONG 0 

541 

542, -BYTE LNMX$M_XEND 

543 

544 .ALIGN QUAD 

545 GROUP_TABLE_ORB = . - GROUP_TABLE 
546 .LONG 0 

547 -WORD -1, 0 

548 -WORD GROUP_TABLE_ORB SIZ 
549 -BYTE DYNS$C_ORB 

550 -BYTE 0 

551 -LONG 0 

552 -QUAD 0 

553 -LONG “~X00000000 

554 .LONG *X0000001E 

555 -LONG  *X0000001E 

556 .LONG %*x0000001F 

557 -LONG 0,0 

558 .BYTE O[ORB$S MIN CLASS] 
559 -BYTE O[ORB$S_MAX CLASS] 
560 .ALIGN 5 

561 GROUP_TABLE ORB SIZ = . - GROUP_TABLE - 
562 GROUP_TABLE SIZE = . - GROUP_TABLE 
563 

564 JOB TABLE = . - GROUP TABLE 

565 -LONG 0 

566 .LONG 0 

567 -WORD JOB TABLE SIZE 

568 -BYTE DYNSC_LNM 

569 -BYTE PSL$C_KERNEL 

570 .LONG 0 

571 .BYTE LNMBSM_NO ALIAS!- 
572 LNMB$M_TABLE 

573 -ASCIC LNMS$JOB_XXXXXXXX ; 


=e Ye Xe Ve 


ee Yeo Yeo Ye Ye Ye Ve Ve Yo Ye oe 


=e 


™e Se Ye Ne Ye Ne Se Ye Ye Se te Ye Ne 


we 


TERMINAL TRANSLATION 

SPECIAL TABLE TRANSLATION INDEX 
TRANSLATION HASH CODE 

SIZE OF TABLE HEADER BLOCK 


TABLE IS SHAREABLE 
A GROUP TABLE 
ADDRESS OF HASH TABLE 


ADDRESS OF OBJECT RIGHTS BLOCK 


ADDRESS OF CONTAINING LNMB BLOCK 
ADDRESS OF PARENT TABLE 

ADDRESS OF CHILD TABLE 

ADDRESS OF SIBLING TABLE 

ADDRESS OF TABLE HOLDING QUOTA 
INITIAL QUOTA ( POOLED ) 
REMAINING QUOTA ( POOLED ) 


LAST TRANSLATION 


GROUP NUMBER + O MEMBER NUMBER 
INITIALIZED ACL MUTEX 

SIZE OF OBJECT RIGHTS BLOCK 
BLOCK TYPE 

NOTE NO ACL AS YET 

ZERO RESERVED WORD & REF COUNT 
OBJECT DOES NOT HAVE AN ACCESS MODE 
SYSTEM PROTECTION IS RWED 
OWNER PROTECTION 

GROUP PROTECTION IS R 

WORLD PROTECTION 

NULL INITIAL ACL 

MINIMUM CLASSIFICATION MASK 


MAXIMUM CLASSIFICATION MASK 


GROUP_TABLE_ ORB 


se Ye Me Se Me Ne Me Ve Ye 


LNMSJOB_xxxxxxxx TEMPLATE 
FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

KERNEL ACCESS MODE 

CONTAINING TABLE HEADER ADDRESS 
NON-ALIASABLE 

A TABLE 


TABLE NAME AS COUNTED STRING 


417 
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574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
568 
589 
590 
$91 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 


609 


610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 


JOB_ TABLE LNMTH 


JOB_TABLE_ORB = 


«BYTE 
«BYTE 
. WORD 
.BYTE 


-BYTE 
- LONG 
- LONG 
- LONG 
- LONG 
- LONG 
- LONG 
- LONG 
- LONG 
- LONG 


- BYTE 


-ALIGN 


(ooo momo momo m~ mo) 


LNMX$M_TERMINAL 
LNMX$C_TABLE 
0 


LNMTH$K_LENGTH 


= . ~ GROUP_TABLE 
LNMTH$M_SHAREABLE 


LNMX$M_XEND 


QUAD 
. ~ GROUP_TABLE 


ee Me Ne Ne 


me Te Ve Ve Te Be Ve Ye Re Ne 


=e 


TERMINAL TRANSLATION 

SPECIAL TABLE TRANSLATION INDEX 
TRANSLATION. HASH CODE 

SIZE OF TABLE HEADER BLOCK 


SHAREABLE TABLE 

ADDRESS OF HASH TABLE 

ADDRESS OF OBJECT RIGHTS BLOCK 
ADDRESS OF CONTAINING LNMB BLOCK 
ADDRESS OF PARENT TABLE 

ADDRESS OF CHILD TABLE 

ADDRESS OF SIBLING TABLE 

ADDRESS OF TABLE HOLDING QUOTA 
INITIAL QUOTA 

REMAINING QUOTA 


LAST TRANSLATION 


- LONG 0 7; OWNER OF JOB TABLE 
«WORD -1, 0 7 INITIALIZED ACL MUTEX 
- WORD JOB_TABLE ORB SIZ + SIZE OF OBJECT RIGHTS BLOCK 
- BYTE DYN$C_ORB ; BLOCK TYPE 
- BYTE 0 + NOTE NO ACL AS YET 
- LONG 0 ? ZERO RESERVED WORD & REF COUNT 
-QUAD 0 3 OBJECT DOES NOT HAVE AN ACCESS MODE 
- LONG *X00000000 + SYSTEM PROTECTION IS RWED 
- LONG “X00000000 ? OWNER PROTECTION IS RWED 
- LONG “x0000001F 7 GROUP PROTECTION 
- LONG “XOOOOOO01F 7 WORLD PROTECTION 
- LONG 0,0 ; NULL INITIAL ACL 
-BYTE O{ORB$S_ MIN CLASS] ; MINIMUM CLASSIFICATION MASK 
-BYTE O{ORBSS_MAX_CLASS] ; MAXIMUM CLASSIFICATION MASK 
eALIGN 5 
JOB TABLE ORB SIZ = . - GROUP_TABLE - JOB_TABLE_ ORB 


JOB | TABLE _ SIZE | 
so _ALLOC SIZE = 


we Se Ne 


- ~ GROUP_TABLE - JOB TABLE 


. - GROUP_TABLE 


SOFFSET 0, POSITIVE, <- 


<,<<IMGACT$_NARGS+1>*4>>, 


<IMGACT_INADR, 8>, - 
<IMGACT_RETADR, 8>, - 


<HDRBUF, 512>, - 
<PROCPRIV, 8>, - 
<IMAGPRIV, 8>, - 
<PHD FLAGS, 4>, ~ 
<JPI_PROC,12>,- 
<JPI_IMAG, 12>,- 


™e Ye Se Te Ve Ve Ve Ve 


OFFSETS FROM R6 USED BY THE IMAGE DUMP MERGE. 


- ; ARGUMENT LIST FOR $IMGACT CALL 
INPUT ADDRESS RANGE TO MAP IMAGE AT 
RET ADR RANGE WHERE IMAGE WAS MAPPED 
IMAGE HEADER BUFFER FOR SIMGACT 
PROCESS DEFAULT PRIVILEGES 
IMAGE PRIVILEGES 
PROCESS HEADER FLAGS 
GETJPI LIST ITEM FOR PROCESS PRIVILEGES 
GETJPI LIST ITEM FOR IMAGE PRIVILEGES 
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629 
630 
631 
632 


633 


IMGACT_INADR: 
IMGACT_RETADR: 
HDRBUF : 
PROCPRIV: 
IMAGPRIV: 

PHD FLAGS: 
JPI_PROC: 
JPI_IMAG: 

JPI_ FLAG: 

JPI END: 


/SCRATCHSIZE: 


<JPI_FLAG, 12>,- ¢ GETUPI LIST ITEM FOR FLAGS 
<JPI_END, 4>,- 3 GETJPI LIST TERMINATOR 
<SCRATCHSIZE, 0>, = # SIZE OF AREA ADDRESS OFF OF FP 
> i 
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635 -SBTTL INISPROCSTRT_INIT ~- PROCSTRT INITIALIZATION ROUTINE 

636 s++ 

637 ; FUNCTIONAL DESCRIPTION: 

638 ; This routine acts initializes several fields in the GROUP_TABLE 
639 ; and JOB TABLE templates that can no longer be initialized 

640 ; statically. 

641 ; 

642 ; ENVIRONMENT 

643 ; This routine must execute during the SWAPPER stage of initialization, 
644 ; since it initializes pagable data. 

645 ; 

646 ; INPUTS: 

647 ; NONE 

648 3. 

649 ; OUTPUTS: 

650 ; Table address fields in the GROUP_TABLE and JOB TABLE initialized. 
651 ; RO destroyed. 

652 ; 

653 ;3-- 

654 DECLARE _PSECT EXECSINIT_CODE 

655 

656 . INITIALIZATION_ROUTINE INISPROCSTRT_INIT 

657 

658 INISPROCSTRT_INIT:: 

659 

660 ; - od - 
661 ; First make sure we're executing in SWAPPER context, since we must be far 
662 ; enough along in bootstrapping to touch pagable data. 

663 ; 

664 BBS #BOOSTATESV_SWAPPER, - 7 Are we in the SWAPPER yet? 
665 G*EXESGL_STATE, 10$ 

666 BICL #INIRTNSM_NO_ RECALL, (R5) ; We need to be called again 
667 BRB 20$ 

669 ; 

670 ; Now fill in various fields in GROUP_TABLE and JOB_TABLE templates. 
671 ; . 

672 10$: MOVL  G*LNM_AR_SYSTEM_DIR_LNMTH, RO 

673 3 Get address of system table head. 
674 MOVL RO, W*GROUP_TABLE+LNMCSL_TBLADDR 

675 MOVL RO, W*GROUP "TABLE+GROUP _| TABLE | LNMTH+LNMTHSL_PARENT 

676 MOVL RO, W*GROUP_TABLE+GROUP_TABLE_LNMTH+LNMTHSL_QTABLE 

677 

678 MOVL - RO, W*GROUP_TABLE+JOB_TABLE+LNMCS$L_TBLADDR 

679 MOVL RO, W“GROUP_TABLE+JOB TABLE | LNMTH+LNMTHSL | PARENT 

680 MOVL RO, W*GROUP | TABLE+JOB | TABLE ; LNMTH+LNMTHSL , OTABLE 

681 

682 208: MOVL #SS$_ NORMAL, RO 

683 RSB 
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685 -SBTTL EXESPROCSTRT - STARTUP NEW PROCESS 

686 

687 ++ 

688 ; FUNCTIONAL DESCRIPTION: 

689 ; 

690 ; CALLING SEQUENCE: 

691 ; NONE 

692 ; 

693 ; INPUT PARAMETERS: 

694 ; CTL$GL_PCB - POINTS TO PCB OF CURRENT PROCESS 

695 ; PCBSL.POB - POINTER TO PROCESS QUOTA BLOCK 

696 ; 

697 ; IMPLICIT INPUTS: 

698 ; IPL = IPLS$_ASTDEL 

699 ; 

700 ; OUTPUT PARAMETERS: 

701 ; NONE 

702 ; 

703 ; IMPLICIT OUTPUTS: 

704 ; LOGICAL NAMES ARE DEFINED FOR ’SYSSINPUT’, ’SYSSOUTPUT’, AND ’SYSSERROR’ 
705 ; BASED ON THE STRINGS PASSED IN THE PROCESS QUOTA BLOCK. 

706 ; 

707 ; COMPLETION CODES: 

708 ; NONE 

709 ; 

710 ; SIDE EFFECTS: 

711 ; NONE 

712 ; 

713 3-- 

714 

715 

716 ; 

717 ; The PQB address must be stored before any instruction that can cause a page 
718 ; fault. If a page fault occurs and the process is put into a resource wait 
719 ; state, then the PQOB address will be lost because the EFWM field, used to 
720 ; store the resource number, overlaps PCBSL_PQB. This forces the first 

721 ; ‘two instructions into a nonpaged program section. 

722 ; : 

723 

724 DECLARE PSECT EXECSNONPAGED CODE 

725 

726 UNIVERSAL SYMBOL EXESPROCSTRT 

727 ;EXESPROCSTRT:: ; STARTUP NEW PROCESS 

728 MOVL G*CTLSGL_PCB, R4 3 GET ADDRESS OF CURRENT PCB 

-729 MOVL PCBSL_POQB(R4) ,R6 ; GET POINTER TO PROCESS QUOTA BLOCK 
730 JMP G*EXE_PROCSTRT 7; CONTINUE IN PAGEABLE EXEC 

731 

732 DECLARE PSECT EXECSPAGED_ CODE 

733 

734 EXE_PROCSTRT: 

135 

736 ; NOTE: THERE CAN BE NO I/O TOA PROCESS CHANNEL BETWEEN HERE 
737 ; AND THE END OF THE NEW CHANNEL CREATION CODE. 

738 ; 

739 MOVL G*MMGSGL_RMSBASE, G*CTL$GL_RMSBASE 7 SET RMS DISPATCHER BASE 
740 MOVL G“MMGS$GL_CTLBASVA, G*CTLSGL_CTLBASVA ; SET CTL BASE ADDRESS 
741 MOVL G“MMGSGL_VVIEF_BASE, G“CTL$GL_VVIEF_BASE 7; SET VVIEF BASE 
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742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
7152 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
177 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 


we we Ne 


MOVL 
MOVL 


MOVAB 
MOVZBL 
MOVZBL 
MOVZBL 
MOVZBL 
MOVZBL 
MOVZBL 
MOVZBL 
MOVZBL 
MOVZBL 
MOVAB 
MOVAB 
MOVAB 
MOVAB 
MOVAB 
ASSUME 
MOVL 
BBC 
BISW 


G“MMGSGL_VVIEF_END, G“*CTLSGL_VVIEF_END ; SET VVIEF END 
G“MMGSGL VVIEF_ADDR,G*CTLSGL_VVIEF_ADDR ; SET VVIEF XFER ADDR 


INITIALIZE THE DISPATCH VECTORS. 


G*CTLSA_DISPVEC, R5 

#04, NXTKVEC (R5) 

#04, NXTEVEC (R5) 

#04, NXTRVEC (R5) 

#04, NXTERVEC (RS) 

#04, NXTMVEC (R5) 
#0P$_RSB, NXTKVEC+4 (R5) 
#0P$_RSB,NXTEVEC+4 (R5) 
#OP$_RSB,NXTRVEC+4 (R5) 
#OP$_RSB, NXTERVEC+4 (R5) 


GET ADR OF 1ST VECTOR PAGE 

SET OFFSET TO 1ST FREE KERNEL VECTOR 

SET OFFSET TO 1ST FREE EXEC VECTOR 

SET OFFSET TO 1ST FREE RUNDWN VECTOR 

SET OFFSET TO 1ST FREE EXEC MODE RUNDWN VE 
SET OFFSET TO 1ST FREE MESSAGE VECTOR 

SET AN RSB INTO THE 1ST FREE VECTOR 

SET AN RSB INTO THE 1ST FREE VECTOR 
SET AN RSB INTO THE 1ST FREE VECTOR 
SET AN RSB INTO THE 1ST FREE VECTOR 
NXTKVEC+4 (R5),G*CTL$GL_USRCHMK ; SET POINTER TO START OF VECTOR 
NXTEVEC+4 (R5),G*CTL$GL_USRCHME ; SET POINTER TO START OF VECTOR 
NXTRVEC+4 (R5),G*CTL$GL_USRUNDWN ; SET POINTER TO START OF VECTOR 
NXTMVEC+4 (R5),G*CTL$GL_GETMSG ; SET POINTER TO START OF VECTOR 
NXTERVEC+4 (R5) ,G*CTLS$GL_USRUNDWN_EXEC ; SET POINTER TO START OF VECT 
PHD$Q_PRIVMSK EQ 0 

G*CTL$GL_PHD, R5 ; GET SAFE POINTER TO PROCESS HEADER WINDOW 
#PQBSV_IMGDMP, POBSW_FLAGS (R6) , 10$ 

#PHDSM_IMGDMP,PHD$W_FLAGS(R5) ; IMAGE DUMP WAS REQUESTED 


we Ne Se TO Ne Me Ne Ne Ne 


ve 


; SET UP P1 SPACE LOOKASIDE LIST FOR KERNEL MODE BUFFERS 


108: 


208: 


308: 


1008: 


1108: 


1208: 


MOVAB 
MOVAB 
MOVL 
BLEQ 
INSQUE 
ADDL 
SOBGTR 


-ENABL 


MOVL 
CMPL 
BGEQU 
MOVL 
CMPL 
BLEQU 
MOVL 


G*CTL$GL_KRPFL, R2 
G*CTL$GL_KRP,R1 
S*#CTL$C_KRP_COUNT, RO 
30$ 

(R1) ,@4 (R2) 
#CTL$C_KRP_SIZE,R1 
RO, 20$ 


GET LISTHEAD ADDRESS 
GET 


ue Ye 


LSB 
; SET PROPER QUOTAS FROM PQB 
POQBSL CPULM(R6),PHDSL_CPULIM(R5) ; SET CPU TIME LIMIT 
PQBS$L ASTLM(R6),PHD$W_ASTLM(R5) ; SET AST LIMIT 
G*SGNSGL MAXWSCNT,R1 ;_ GET MAXIMUM WORKING SET LIST LENGTH 
G*SCH$GL_FREELIM, G*PFNSGL_PHYPGCNT,RO ; GET AVAILABLE PAGES 


RO,R1 MINIMIZE WITH SPECIFIED QUOTA 
100$ USE QUOTA 
R1, RO USE MAXIMUM WORKING SET COUNT 


PQBSL WSEXTENT(R6),R1 


| GET MAXIMUM PAGES FOR WORKING SET 
PQBSL_WSQUOTA (R6) , R2 


GET MAXIMUM QUOTA FOR WORKING SET 


we Te Te Re Me YO we MO Fe Ne 


#<1@16>,R7 Limit WSQUOTA to 64K pages . 

R2,R7 *k* This restriction cannot be removed 
110$ *** until the swap/page file allocation 
R7,R2 *x**k routines can handle > 64K requests 
PQBSL_WSDEFAULT (R6) ,R3 GET DESIRED DEFAULT 

R1,R2 ; EXTENT MUST BE BIGGER THAN QUOTA 

120$ ; YES, USE IT AS IS 

R2,R1 ; FORCE TO QUOTA (EXTENT MAY BE 0) 
R1,R0 ; EXTENT MUST BE LESS THAN MAX PAGES 
130$ ; BRANCH IF OK AS IS 

RO, R1 ; SET EXTENT TO MAX MEMORY 
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799 1308: CMPL 


800 


801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
"B12 
813 
14 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 





BLEQU 
MOVL 


1408: CMPL 


BLEQU 
MOVL 


150$: SUBL3 


me Se Ne 


we Ye Ve 


’ 


ao 


a 


ADDL 
MOVL 
MOVL 
ADDL 
MOVL 
MOVL 
ADDL3 


R2,R1 

140$ 

R1,R2 

R3,R2 

150$ 

R2,R3 

#1,PHD$L WSLIST(RS5) ,RO 
RO, R1 
R1,PHD$L_WSEXTENT (R5) 
R1,PHD$L_WSAUTHEXT (R5) 
RO, R2 

R2, PHD$L_WSQUOTA(R5) 
R2,PHDS$L_WSAUTH (RS) 
RO,R3,PHD$L_DFWSCNT(R5) 


sea we Se Ne Ne Ne 


se Ne 


° 
’ 
° 
a 
° 
v 
e 
s 
° 
, 
e 
¢ 


QUOTA MUST BE LESS THAN EXTENT 
BRANCH IF OK AS IS 

SET QUOTA TO EXTENT 

DEFAULT MUST BE LESS THAN QUOTA 
BRANCH IF OK AS IS 

SET DEFAULT TO QUOTA 

GET BASE OFFSET TO WORKING SET LIST 
GET EXTENT 

SET EXTENT 

SET AUTHORIZED EXTENT 

GET QUOTA 

QUOTA VALUE 

AUTHORIZED VALUE 

SAVE DEFAULT WORKING SET SIZE 


THE AUTHPRI CELL EXISTS IN TWO PLACES. THE $SETPRI SYSTEM SERVICE USES 
THE PCB CELL BUT THE PHD CELL MUST EXIST FOREVER BECAUSE THAT IS WHERE 
THE JPI ITEM CODE BELIEVES THAT AUTHPRI IS LOCATED. 


MOVB 
MOVB 
MOVOQ 
MOVQ 
MOVQ 
MOVB 
MOVOQ 
MOVO 


PCBSB_PRIB(R4),PCBS$B_AUTHPRI (R4) 
PCBSB | | PRIB(R4),PHDSB_AUTHPRI (R5) 
POQBSQ | _PRVMSK (R6), @PCBSL _ PHD (R4) 
POQBSQ | ) PRVMSK(R6) , G*CTLS$GQ_| PROCPRIV 
POBSQ | | PRVMSK (R6) , PHD$Q ) AUTHPRIV (RS) 
POBSB | _ MSGMASK (R6), G*CTLSGB | MSGMASK 
G*EXESGQ | SYSTIME, G*CTLSGQ - LOGIN 


R4,-(SP) 


SET INITIAL PROCESS PRIORITY 
.-- IN BOTH PCB AND PHD 

SET PRIVILEGES FOR PROCESS 
BOTH PERMANENT AND CURRENT 
AND AUTHORIZED MASKS 

GET DEFAULT MESSAGE FLAGS 
SAVE LOGIN TIME 

SAVE PCB AND PHD POINTERS 


™e Ne te 


we 


=e YO Ne Ye 


MOVE MINIMUM AND MAXIMUM AUTHORIZED SECURITY CLEARANCE RECORDS INTO THE PHD. 
THE FOLLOWING ASSUME STATEMENTS GUARANTEE THAT WE CAN SAFELY PERFORM THIS 
WITH A SINGLE MOVC3 INSTRUCTION. 


ASSUME PQBSS MIN CLASS EQ PHD$S_ MIN CLASS 
ASSUME POBSS | MAX | CLASS EQ PHDSS | MAX _ CLASS 
ASSUME POBSR | MAX | “CLASS EQ <POQBSR | MIN CLASS + PQBS$S_ MIN CLASS> 
ASSUME | PHDSR_1 MAX | CLASS EQ <PHDSR | MIN CLASS + PHDSS | MIN | CLASS> 


MOVC3 


#<PQB$S MIN CLASS+PQB$S_MAX CLASS>, - 


PQB$R_MIN_ CLASS (R6) , - 
PHDSR_ MIN CLASS (R5) 


INITIALIZE THE JPI CONTEXT SEGMENT QUEUE HEADER IN THE KERNEL DATA PAGE 


MOVAB 
MOVL 
MOVL 


MOVAB 
MOVL 
MOVL 


G*CTL$GQ_JPICTX, RO 
RO, (RO) 
RO, 4(RO) 


G*CTL$GQ_RMCB_QUE, RO 
RO, (RO) 
RO, 4 (RO) 


me Ne Ne 


Se Se Ne 


ADDRESS OF JPI CONTEXT QUEUE 
INITIALIZE FLINK 
-«- AND BLINK 


INITIALIZE THE DECLARED RESOURCE MANAGER LISTHEAD IN THE KERNEL DATA PAGE 


ADDRESS OF DECLARED RM LISTHEAD 
INITIALIZE THE FLINK 
-. AND THE BLINK 


INITIALIZE LISTHEADS FOR DOUBLY LINKED LISTS USED BY IMAGE ACTIVATOR 


MOVAB 
MOVL 


G*IACS$GL_IMAGE LIST, RO 
RO, (RO) 


=e Ne 


LIST OF ACTIVATED IMAGES 
INITIALIZE FLINK 
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856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 


MOVL RO, 4(RO) 3... AND BLINK 
MOVAB G*IACSGL_WORK_LIST,RO ; LIST OF WORK IN PROGRESS 
MOVL RO, (RO) ; INITIALIZE FLINK 
MOVL RO, 4(RO) 3... AND BLINK 
MOVAB G*IACSGL_ICBFL, RO } ADDRESS OF ICB LOOKASIDE LIST 
MOVL RO, (RO) ; INITIALIZE FLINK 
MOVL RO, 4(RO) ; «-. AND BLINK 
; INITIALIZE LISTHEADS FOR CWPS QUEUES 
MOVL G*CTLSGL_PCB, R4 ; GET PCB ADDRESS 
MOVAB PCBS$Q_CWPSSRV_QUEUE(R4), RO ; GET CWPS QUEUE ON PCB 
MOVL RO, (RO) ; INITIALIZE FLINK 
MOVL RO, 4(RO) ; ... AND BLINK 
MOVL G‘CTL$GL_PHD, R4 : GET PHD ADDRESS 
MOVAB  PHDS$Q_PSCANCTX_QUEUE(R4), RO : GET PSCAN QUEUE ON PHD 
MOVL RO, (RO) ; INITIALIZE FLINK 
MOVL RO, 4(RO) : .-. AND BLINK 
; CREATE THE PAGES FOR THE CCB TABLE, PROCESS ALLOCATION REGION, AND DEFAULT 
; IMAGE I/O SEGMENT 
MOVZWL G*SGNS$GW_PCHANCNT, R3 ; PICK UP SYSGEN PARAM FOR # CHANS 
INCL R3 : ALLOW FOR WASTED CCB 
MULL #CCBS$C_LENGTH, R3 ; CONVERT TO # BYTES 
MOVAB 511(R3),R3 : ROUND UP TO EVEN PAGES 
BICL #511,R3 
MOVZWL G*SGNS$GW_CTLPAGES, R4 ; GET # PAGES FOR PROCESS ALL REGION 
ASHL #9,R4,R4 ; CONVERT TO # BYTES 
ADDL R4,R3 ; GET TOTAL # BYTES NEEDED SO FAR 
MOVZWL G*SGN$GW_PIOPAGES, R7 : GET # PAGES FOR PIO SEGMENT 
ASHL #9,R7,R7 ; CONVERT TO NUMBER OF BYTES 
ADDL R7,R3 ; GET TOTAL # BYTES NEEDED 
MOVZWL G*SGNSGW_IMGIOCNT, R8 ; GET # PAGES FOR IIO SEGMENT 
ASHL #9,R8,R8 ; CONVERT TO NUMBER OF BYTES 
ADDL R8,R3 ; GET TOTAL # BYTES NEEDED 
MOVAL G‘CTLS$GL CTLBASVA, RS ; GET POINTER TO ’TOP’ OF Pl 
SUBL3 #1, (R5),—-(SP) ; ‘LAST’ PAGE IN Pl 
SUBL3 _—R3, (R5),-(SP) ; ‘TOP’ OF CREATED REGION 
MOVAQ -(SP),R2 : SPACE FOR RETADR 
PUSHL #PSL$C_KERNEL+<PRT$C_UREW@8> ; ACCESS MODE AND PROTECTION 
PUSHL R2 ; RETADR ARRAY 
PUSHAB 8(R2) ; INADR ARRAY 
CALLS  #3,G*°MMGSCRETVA ; CALL INTERNAL ENTRY POINT FOR $CRETVA 
BLBC RO, VABUG ; GET OUT ON ERROR 
CMPL (R2), 8 (R2) : DID WE GET FULL REQUEST? 
BNEQ VABUG ; NO, ERROR OUT 
CMPL 4(R2),12(R2) ; MAKE DOUBLY SURE 
BEQL DIVR ; NO, ERROR OUT 
VABUG: MOVAB G*EXES$GQ POBIQ,R1 ; ADDRESS OF PQB LIST 
SINSQTI (R6), (R1),-(SP) ; DEALLOCATE PQB TO LOOKASIDE LIST 
SETIPL #0 : ALLOW PROCESS TO BE DELETED 
BRW EXESEXIT_IMAGE ; DELETE THE PROCESS 
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913 
914 
915 
916 
917 


918 


919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
— 962 
963 
964 
965 
966 
967 
968 
969 


we Ne Ye 


NOW DIVIDE THE CREATED SPACE INTO FOUR AREAS 


DIVR: MOVL 


we Ye Ye Se Me Ye 


™e Ne Ye Ve We Yeo Xe 


eo 


MOVL 
MOVAL 
ADDL 
MOVL 
MOVL 
ADDL3 
MOVL 
CLRL 
MOVL 
MOVZWL 
ASHL 
SUBL3 


MOVZWL 


NOTE (!!!!): 


MOVL 
MOVAL 


(R2),G*PIO$GQ IIODEFAULT+4 


R8, G*PIO$GQ_IITODEFAULT 


G*PIOSGW_PIOIMPA+IMPS$L_IOSEGADDR, RO 


(R2),R8 

R8, (RO) + 

R7, (RO) 

R8,R7,RO 

RO, G*CTL$GQ_ALLOCREG 
(RO) + 

R4, (RO) 
G*SGNSGW_CTLIMGLIM, RO 
#9,RO,G*CTLSGL_PRCALLCNT 


#CCBS$C_LENGTH-1, 4 (R2) , G*CTLSGL_CCBBASE 


° 
’ 
s 
’ 
° 
’ 
° 
’ 
e 
’ 
Y 
s 
e 
, 
e 
v 
e 
‘ 
s 
‘ 
e 
c 
s 
? 
e 
ce 


DEFAULT IMAGE I/O AREA 
SIZE 

GET POINTER ADDRESS 
START OF REMAINING SPACE 
SET UP THE PIO SEG ADDR 
SET LENGTH 

GET POINTER TO FREE SPACE 
SET UP PROCESS ALLOCATION 
NULL FORWARD POINTER 

SET SIZE OF REGION 

GET IMAGE LIMIT 

CONVERT TO # BYTES 

STORE BASE OF CHANNEL TABL 


G*SGNSGW_PCHANCNT, G*CTLSGW_NMIOCH ; SET NUMBER OF CHANNELS 


THE ABOVE ASSIGNMENT MUST BE DONE AT THE VERY END OF THIS 
SECTION OF CODE, AS THE CELL NMIOCH BEING NON-ZERO IS AN 
INDICATOR TO G*IOCSFFCHAN THAT THERE IS ACTUALLY A REAL 


CHANNEL TABLE TO LOOK AT 


(R2), (R5) 
16(SP),SP 


UPDATE BASE OF VA IN CTL REGION 
POP SCRETVA ARGS 


ALLOCATE P1 SPACE FOR THE PROCESS-PRIVATE LOGICAL NAME HASH TABLE, FOR 
THE PROCESS DIRECTORY LOGICAL NAME TABLE, AND FOR ALL PROCESS-PRIVATE 
LOGICAL NAMES AND LOGICAL NAME TABLES THAT NEED TO BE SETUP AT PROCESS 
INITIALLY FORMAT THE LOGICAL NAMES AND LOGICAL NAME TABLES 
BY COPYING THEIR TEMPLATES ONTO THE Pl SPACE ALLOCATED FOR THEM, AND THEN 
FORMAT THE PROCESS-PRIVATE LOGICAL NAME HASH TABLE. 


CREATION TIME. 


MOVL 
MOVAL 
MOVL 
MOVAB 
JSB 
MOVL 


MOovc5s 
MOVAB 
MOVL 

SUBL3 


MCOML 
MOVW 


G*LNMSGL HTBLSIZP,R1 
@#LNMHSHSK BUCKET[R1],R1 
R1,R7 

Pl ALLOC_SIZE(R1),R1 
G*EXESALOP1PROC 

R2, R8 


#P1_ALLOC_SIZE,- 
PROC_DIR, #0,R1, (R2) 
Pl ALLOC_SIZE(R8),R3 


R3,G*CTL$GL LNMHASH 
#1,G*LNMSGL_HTBLSIZP,RO 
RO, LNMHSHSL_MASK (R3) 
R7, LNMHSHSW_SIZE(R3) 
#DYNS$C_RSHT, - 
LNMHSHSB_TYPE (R3) 


ve 


me Se Se Ne te 


RETRIEVE NUMBER OF HASH TABLE ENTRIES 
MULTIPLY BY 4 AND ADD OVERHEAD 

SAVE SIZE OF HASH TABLE 

ADD IN SIZE OF LOGICAL NAME BLOCKS 
ALLOCATE TOTAL AMOUNT OF SPACE NEEDED 
SAVE ADDRESS OF ALLOCATED SPACE 


COPY TEMPLATE FOR ALL LOGICAL NAMES 
AND ZERO PROCESS-PRIVATE HASH TABLE 
COMPUTE HASH TABLE ADDRESS 


STORE ADDRESS OF HASH TABLE AWAY 
CALCULATE. UPPER BOUND OF HASH INDEX 
STORE HASH INDEX MASK IN HASH TABLE 
STORE HASH TABLE SIZE IN HEADER 
STORE HASH TABLE STRUCTURE TYPE IN 
HASH TABLE HEADER 
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970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 


me Ne Me te Ne 


me Ye Ne Yeo 


ve Ye 


=e Ye Ve Se 


160$: 


MOVAB 


MOVL 
MOVL 
MOVL 
MOVL 
MOVL 


MOVAB 
MOVZBL 
JSB 


BICL2 


MOVAL 


MOVAB 
MOVAB 
MOVL 
MOVL 


MOVL 
MOVAB 


CLRL 
JSB 


MOVAB 
MOVL 
MOVAB 
CLRL 
EXTZV 


ACBB 


PROC_DIR_LNMTH (R8) ,R7 
R3, LNMTHSL_HASH (R7) 
R7, LNMBSL_TABLE (R8) 
R8, LNMTHSL ) NAME (R7) | 
R7, LNMTH$L_QTABLE (R7) 
R8,G*CTLS$GL_LNMDIRECT 


LNMBST_NAME (R8) , R1 
(R1)+,R0 
G“LNMSHASH 


LNMHSHSL MASK (R3) , RO 


LNMBSL_BLINK (R8) 


_ PROC_TABLE (R8) ,R1 


PROC_TABLE_LNMTH (R8) , R9 
R7, LNMBSL_TABLE (R1) 

R3, LNMTHS$L_HASH (R9) 

R1, LNMTHS$L_NAME (R9) 

R7, LNMTH$L_PARENT (R9) 
R7, LNMTH$L_OQTABLE (R9) 
R2 

G*LNM$ INSLOGTAB 


(SP),R4 
PROCESS (R8) , R1 
R7,LNMB$L_TABLE (R1) 
R2 

G*LNMS$ INSLOGTAB 


JOB(R8),R1 

R7, LNMB$L_TABLE (R1) 
JOB_XEND SIZE-1(R1),R3 
R2 

R2, #4,PCBSL_JIB(R4) ,RO 
CHARS [RO] , - (R3) 
#31,#4,R2,160$ 


we te Ne Me Me Ne 


me Ne Ye 


e 


_ R8, LNMHSHS$C_BUCKET (R3) [RO] 
LNMHSHSC_BUCKET(R3) [RO], - 


=e 


we Me Me Me FO Me NO te 


ee Te Te Ye Veo 


we we TO Ne 


7e Ne Ne 


FIXUP THE PROCESS DIRECTORY LOGICAL NAME TABLE, LNMSPROCESS _ DIRECTORY, AND 
LINK IT INTO THE APPROPRIATE HASH BUCKET OF THE PROCESS-PRIVATE LOGICAL NAME . 
HASH TABLE. 


COMPUTE DIRECTORY’S TABLE HEADER ADDR 
STORE HASH TABLE ADDR IN TABLE HEADER 
DIRECTORIES ALWAYS CONTAIN THEMSELVES 
STORE LNMB ADDRESS IN TABLE HEADER 
DIRECTORIES ARE QUOTA HOLDERS 

STORE ADDR OF PROCESS DIRECTORY AWAY 


RETRIEVE THE SIZE AND ADDRESS OF THE 
PROCESS DIRECTORY’S NAME 
HASH THE DIRECTORY NAME 


MODIFY THE HASH INDEX TO BE IN RANGE 
# INSERT THE PROCESS DIRECTORY TABLE 
7 INTO THE APPROPRIATE HASH BUCKET 


FIXUP THE PROCESS LOGICAL NAME TABLE, LNMSPROCESS TABLE, AND INSERT IT INTO 
THE APPROPRIATE HASH BUCKET OF THE PROCESS-PRIVATE LOGICAL NAME HASH TABLE. 


COMPUTE ADDRESS OF LNMSPROCESS TABLE 
COMPUTE AND SAVE ADDRESS OF LNMTH 
STORE CONTAINING TABLE HEADER’S ADDR 
STORE HASH TABLE ADDR IN TABLE HEADER 
STORE LNMB ADDRESS IN TABLE HEADER 
LNMSPROCESS DIRECTORY IS PARENT AND 
QUOTA HOLDER OF LNMSPROCESS TABLE 

NO SPECIAL INSERTION ATTRIBUTES 
APPROPRIATELY INS=iRT LNM$PROCESS_TABLE 


FIXUP LNMSPROCESS LNMSGROUP AND LNMSJOB AND INSERT THEM INTO THE APPROPRIATE 
HASH BUCKET OF THE PROCESS-PRIVATE LOGICAL NAME HASH TABLE. LNMS$GROUP AND 
LNMSJOB REQUIRE THAT THEIR EQUIVALENCE STRINGS BE CONSTRUCTED FROM THE UIC 
AND JIB ADDRESS OF THE NEW PROCESS RESPECTIVELY. 


RESTORE PCB ADDRESS TO R4 

COMPUTE ADDRESS OF LNMSPROCESS . 
STORE CONTAINING TABLE HEADER’S ADDR 
NO SPECIAL INSERTION ATTRIBUTES 
APPROPRIATELY INSERT LNMSPROCESS 


COMPUTE ADDRESS OF LNMSJOB 

STORE CONTAINING TABLE HEADER’S ADDR 
COMPUTE ADDRESS OF LAST LNMX 

CLEAR INDEX REGISTER 
EXTRACT OUT HEX BITS AND TRANSFORM 
THEM INTO THEIR ASCII EQUIVALENT 
CONTINUE FROM RIGHT -> LEFT UNTIL DONE 
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1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044" 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 


SAVE THE ADDRESS OF THE ASCII JIB ADDR 
NO SPECIAL INSERTION ATTRIBUTES 
APPROPRIATELY INSERT LNM$JOB 


COMPUTE ADDRESS OF LNMSGROUP 

STORE CONTAINING TABLE HEADER’S ADDR 
COMPUTE ADDRESS OF LAST LNMX 

CLEAR INDEX REGISTER 

EXTRACT OUT OCTAL BITS AND TRANSFORM 
THEM INTO THEIR ASCII EQUIVALENT 
CONTINUE FROM RIGHT -> LEFT UNTIL DONE 
ASSUME HIGH ORDER BIT IS 0 

IF SO THEN GO INSERT LNMSGROUP 
OTHERWISE INSERT A 1 

SAVE THE ADDRESS OF THE ASCII GROUP 
NO SPECIAL INSERTION ATTRIBUTES 
APPROPRIATELY INSERT LNMS$GROUP 


FIXUP AND INSERT SYSS$INPUT 


FIXUP AND INSERT SYSSOUTPUT 


FIXUP AND INSERT SYSSERROR 


FIXUP AND INSERT TT 


FIXUP AND INSERT SYSSDISK 


SUB-PROCESS THEN CREATE THE JOB AND 


MOVL R3,R10 ; 
CLRL R2 ; 
JSB G*LNMS INSLOGTAB ; 
MOVAB GROUP (R8),R1 ; 
MOVL R7, LNMB$L_TABLE (R1) ; 
MOVAB GROUP_XEND_SIZE~-1(R1),R3; 
CLRL R2 ; 
170$:  EXTZV  R2,#3,PCBSW_GRP(R4),RO ; 
MOVB CHARS [RO], - (R3) ; 
ACBB #14,#3,R2,170$ ; 
MOVB #°A/0/,-(R3) ; 
BBC #15,PCBSW_GRP(R4),180$ ; 
MOVB #*A/1/, (R3) ? 
180$: MOVL R3,R11 ; 
CLRL R2 ; 
JSB G“LNM$INSLOGTAB ; 
; FIXUP THE LOGICAL NAME BLOCKS FOR SYSSINPUT, TT, SYSSOUTPUT, SYS$ERROR, AND 
; SYS$DISK, AND INSERT THEM INTO THE APPROPRIATE HASH BUCKET OF THE 
; PROCESS-PRIVATE LOGICAL NAME HASH TABLE. 
CRELNM - ; 
PQBST_INPUT, - 
PQBSL_INPUT_ATT, - 
SYSSINPUT_LNMX, - 
SYSSINPUT 
CRELNM - ; 
PQBST_ OUTPUT, - 
PQBSL_OUTPUT_ATT, - 
SYSSOUTPUT_LNMX, - 
SYSSOUTPUT — 
CRELNM - ; 
PQBST_ ERROR, - 
PQBSL_ERROR_ATT, ~- 
SYSSERROR_LNMX, - 
SYSSERROR | 
CRELNM - ; 
POBST_INPUT, - 
PQBSL_INPUT_ATT, - 
TT_LNMX, - 
TT 
CRELNM - ; 
POQBST DISK, - 
PQBS$L_DISK_ATT, - 
SYS$DISK_LNMX, - 
SYSS$DISK 
; IF THE PROCESS BEING CREATED IS NOT A 
; GROUP LOGICAL NAME TABLES. 
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1084 
1085 
1086 
1087 


- 1088 


1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 

1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 


1139 


7 


1908: BRW VABUG 


-e Se te 


2008: MOLL3 #8, G*LNMSGL_HTBLSIZP, R1 


RETRIEVE PCB ADDRESS 

. SUB-PROCESS? 

IF YES THEN SKIP TABLE CREATION 
RETRIEVE JOB TABLE CREATION QUOTA 
CREATE JOB AND GROUP TABLES ~ 
CONTINUE IF SUCCESS 

OTHERWISE, TAKE COMMON EXIT PATH 


MOVL (SP), R4 

TSTL PCBSL_OWNER (R4) 

BNEQ 200$ 

MOVL PQBSL_JTQUOTA (R6) , R7 
BSBW EXESCRE_JGTABLE 

BLBS RO, 200$ 


we Ve Ne Ve Ye Ne Ne 


ALLOCATE P1 SPACE FOR THE PROCESS-PRIVATE LOGICAL NAME TABLE NAME CACHE 


ALLOCATE TWICE HASH TABLE SIZE 


DIVL3 #LNMCSK_LENGTH, R1, R8 COMPUTE # OF ENTRIES 


we Me Ne Me ke 


BEQL 220$ IF ANY 
JSB G*EXESALOP1PROC ALLOCATE TOTAL AMOUNT oF SPACE NEEDED 
BLBC RO, 190$ IF POSSIBLE 


210$: MOVW #LNMCSK_LENGTH, LNMCSW SIZE(R2) ; SET SIZE 
CLRL LNMCSL __ TBLADDR (R2) ? MARK EMPTY 
INSQUE (R2), G*CTLSGQ | LNMTBLCACHE ? INSERT IN QUEUE 
MOVAB LNMCSK_| LENGTH (R2) , R2 3 POINT TO NEXT 
SOBGTR R8&, 210$ + LOOP 
2208: MOVAL G“MMGSIMGHDRBUF , AP 7 IMAGE HEADER BUFFER ADDRESS 
3 THE FOLLOWING MOVC SEQUENCES DESTROY RO THROUGH R5 
IMGNAM: MOVZBL PQBST_IMAGE(R6), (AP) 7; SIZE OF IMAGE NAME STRING 
MOVAL 8(AP), 4 (AP) 3 ADDRESS OF IMAGE NAME STRING 
Movc3 (AP) , PQBST_IMAGE+1(R6),8(AP) ; MOVE THE NAME STRING 
TSTB POBST_DDSTRING (R6) 7 CHECK FOR NULL STRING 
BEQL 230$ 3 YES, DONT MOVE ANYTHING 
MOVC3 #PQBSS_ DDSTRING, - 
POQOBST | DDSTRING (R6) , G*PIOSGT_DDSTRING .; AND DEFAULT DIRECTORY 
2308: 7 CONTINUE 
# Move CLI and CLI table information to Pl space in one fell swoop: 
; POBST CLI NAME -> G*CTLSGT_CLINAME 
; PQBST_CLI_ TABLE -> G*CTLS$GT_TABLENAME 
; POBST SPAWN CLI -> G*CTLSGT_SPAWNCLI 
; PQBST_SPAWN_TABLE -> G“CTLS$GT_SPAWNTABLE 
ASSUME PQBST_CLI_TABLE EQ <PQBST_CLI_NAME + POQBS$S_ CLI NAME> 
ASSUME POBST | SPAWN | CLI EQ <POQBST | CLI TABLE + POBSS | CLI! ~ TABLE> 
ASSUME POBST | SPAWN | TABLE EQ <POQBST | SPAWN | CLI + POBSS | SPAWN | CLI> 
MOVC3 #<PQBSS CLI _NAME+- 
POBSS CLI_TABLE+- 
POBSS | SPAWN CLI+— 
POBSS_SPAWN_TABLE>, - 
PQBST_CLI_NAME (R6) , G*CTLSGT_CLINAME 
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STORE EVERYTHING ELSE OF INTEREST BEFORE WE GET RID OF THE PQB 


1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 


° 
4 


=e “ses Te “e We 


me 


=e 


=e 


me %e 


we 


~e Me Me 


“ee te Ne 


MOVL PQBSL_CREPRC_FLAGS (R6) , G*CTLS$GL_CREPRC_FLAGS 
MOVL PQBSL_UAF_ FLAGS (R6) ,G*CTLS$GL_UAF_FLAGS 


EXTZV #PQBSV_DEBUG, #2, - 
POBSW_ FLAGS (R6) , - 
G*CTLSGL_PSTFLAGS 


; Take the DEBUG flags and 
7 place them in the process 
; start flags temporarily 


HHH EKKEREKKEKEKEKEEKEKEKEHERKEKEK TEMP REE EKER EERE EKRERKKEKKEKE 


THE FOLLOWING CODE WILL BE REMOVED WHEN WE DECIDE WHAT TO DO WITH THE 


ACCOUNT AND USERNAME FIELDS IN THE Pl 


POINTER PAGE. 


assume jibSt_account eq <jib$t_username + jib$s_username> 


movl G“CTLSGL_PCB, r0 

movl peb$l1_jib(r0),r0 

move3 #<jib$s username + jib$ 
jibSt_username(r0),- 
G*CTLS$T_USERNAME 


KEREKKEKRKKKEKKERKRKKREKERKKKK END TEMP 


MOVAB G“EXESGQ_POQBIO,R1 
$INSQTI (R6), (R1) 


7 get peb address ... 
7 20 that we can get jib address 


8s account>,- 


move username and account 
in one instruction 


7 sf 


KHER KKEKEKKHKEKKEKEKEK 


3 ADDRESS OF PQB LIST 
; DEALLOCATE PQB TO LOOKASIDE LIST 
+ NOTE: RO IS DESTROYED BY $INSQTI MACRO 


RESTORE PCB AND PHD ADDRESS, SET IPL TO 0 TO ALLOW FOR PROCESS DELETION 
(IF DESIRED), RESET ADDRESS SPACE, AND SET WSLAST. 


MOVL (SP)+,R4 
MOVL (SP)+,R5 | 
JSB G“MMG$ IMGRESET 


3; PCB ADDRESS | 
3; RESTORE PHD ADDRESS 
; RESET ADDRESS SPACE AND SET WSLAST 


INITIALIZE FIXUP VECTOR LINKED LISTS TO CONTAIN A SINGLE DUMMY ENTRY 


MOVAL G“CTLS$GL_IAFPERM, G*CTLSGL_IAFLINK 
MOVAL G*CTLSGL_IAFPERM, G*CTLSGL_IAFLAST 


INITIALIZE ARRAYS THAT DETERMINE HOW PRIVILEGED VECTORS ARE RESET 


MOVAW G*IACSAW_VECRESET, RO 
MOVW #4, (RO)+ 

MOVW #4, (RO) + 

MOVW #4, (RO) + 

MOVW #4, (RO) + 

MOVW #4, (RO) +. 


MOVAW | G*IACSAW_VECSET, RO 
MOVW #4, (RO) + 
MOVW #4, (RO) + 
MOVW #4, (RO) + 
MOVW #4, (RO) + 
MOVW #4, (RO) + 


STORE RESET ARRAY ADDRESS 
KERNEL VECTOR 

EXEC VECTOR 

RUNDOWN VECTOR 

RUNDOWN VECTOR (Exec mode) 
MESSAGE VECTOR 


7a Se Ye Ye Ne Me 


STORE START ARRAY ADDRESS 
KERNEL VECTOR 

EXEC VECTOR 

RUNDOWN VECTOR 

RUNDOWN VECTOR (Exec mode) 
MESSAGE VECTOR 


=e Ne Ne Ye Se Ne 
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1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 


? MAP THE FILE SYSTEM INTO Pl SPACE 


MERGE XQP INTO PROCESS 


DON’T MERGE IF NOT INIT 
; EXIT IF MERGE FAILS 


ENTRY POINT FOR STAND-ALONE SYSGEN 


CALLS #0, W*XQPMERGE ; 
BBC S“#EXESV_INIT, G*EXESGL_FLAGS, - 
EXESPROCIMGACT : 
BLBC RO, 240$ 
UNIVERSAL SYMBOL EXESPROCIMGACT 
; EXESPROCIMGACT: : ; 
MOVL G“CTLSGL_PCB, R4 ; 


EXTZV 
ROTL #PSLSV | _PRVMOD, #<PSLSC_| EXEC@2+PSLS$C_EXEC>,-(SP) ; 
BSBB 250$ , 


GET PCB ADDRESS 


#PCBSV _HIBER, #1, PCBSL_STS(R4),R8; SAVE HIBERNATE CONTROL 


FORM EXEC PSL 
CHANGE MODE TO EXECUTIVE 


3 *kKkKKEKEK THE FOLLOWING CODE EXECUTES IN EXEC MODE ***kuakanne 


2408: 


MOVZBL (AP) ,R2 

ADDL #3, R2 

BICL #3,R2 

SUBL R2, SP 

PUSHAB (SP) 

MOVZBL (AP),-(SP) 

MOVL sP,R1 

PUSHR #*°M<R1,R2,R3,R4,R5> 

MOVC3  R2,@4(AP),@4(R1) 

POPR #°M<R1, R2,R3,R4,R5> 

$IMGACT_S - 
NAME =(AP),- 
DFLNAM=DEFDESC, - 
HDRBUF= (AP) 

ADDL #8, R2 

ADDL R2, SP 

BLBC RO, 240$ 

MOVAB G*PIOSAL_RMSEXH, RO 

MOVAB W*EXESRMSEXH, 4 (RO) 

SDCLEXH_S (RO) 

BLBC RO, 290$ 

MOVAB 

ROTL 

BSBB 250$ 


we Me Se Ne Se 


=e Ye Ne Te Ne Ye Ye Ye Ye *O Ye Ye 


~e 


we Ye 


e 
a 


B*EXESCLI_UTILSRV+2, G*CTLSAL_CLICALBK ; 
#PSLSV ' PRVMOD, #<PSLSC_| USER@2+PSLSC _USER>,-(SP) ; FORM USER PSL 


e 
v 


GET ADR OF FILENAME STRING DESC 
ROUND THE NUMBER OF BYTES IN 

THE NAME UP TO A LONGWORD BOUNDRY 
ALLOCATE SPACE FOR NAME ON STACK 
BUILD STRING DESCRIPTOR FOR 
FILENAME ON THE STACK 

GET ADR OF STRING DESCRIPTOR 

SAVE REGISTERS 

MOVE FILENAME TO STACK 

RESTORE REGISTERS 

ACTIVATE THE IMAGE 

DESCRIPTOR FOR IMAGE NAME 

DEFAULT NAME DESCRIPTOR 

ADDRESS IF IMAGE HEADER BUFFER 
CALCULATE # OF BYTES ON STACK 
AND CLEAN THEM OFF 

BRANCH IF IMGACT FAILED 

GET ADDRESS OF EXIT HANDLER CONTROL BLOCK 
SET ADDRESS OF RMS EXIT HANDLER 
DECLARE EXEC MODE EXIT HANDLER 

IF LBC ERROR 

SET CLI CALL BACK ADDRESS 


CHANGE TO USER MODE 


3 *kkRKKKKKE THE FOLLOWING CODE EXECUTES IN USER MODE ****kekkKe 


2508: 
2608: 


2708: 


CLRL FP 

CALLG (AP) ,B*260$ 

REI 

- WORD 0 

MOVAB B*EXESCATCH_ALL, (FP) 


$SETEXV_S #2,B*EXESCATCH_ALL 
$IMGFIX_S 

BLBC —_—RO, 290$ 

PUSHL 8 

MOVQ (AP), R2 


ASSUME 
ASSUME 


CLI$V_DEBUG EQ 0 
CLI$V_DBGTRU EQ 1 


we Ne Ve Se Ve Ve Ye We Vo Ve 


TERMINATE CALL FRAME CHAIN 

CREATE TOP FRAME 

CHANGE TO NEW MODE 

ENTRY MASK 

SET EXCEPTION HANDLER ADDRESS 
DECLARE LAST CHANCE HANDLER 
PERFORM ADDRESS RELOCATION 

QUIT IF ERROR OCCURS 

SAVE HIBERNATE FLAG 

GET IMAGE HEADER BLOCK DESCRIPTOR 
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1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 


2808S: 


2908: 


=e Ve Ve 


ze 


DUMMY 


Set command interpreter flags 
from $CREPRC input. 


EXTZV #CLI$V_DEBUG, #2, - 
G“CTL$GL_PSTFLAGS, - (SP) 


we 


me 


PUSH LINKER FLAGS 

THIRD AND FOURTH ARGUMENTS TO PROG 
PUSH ADDRESS OF CLI CALL BACK ROUTINE 
OFFSET TO TRANSFER VECTOR 

FORM ADDRESS OF START VECTOR 

MOVE TO ARGUMENT LIST 

BR IF NO HIBERNATE 

SET, HIBERNATE UNTIL SOME WAKE 
CALL IMAGE 

EXIT IF NOT SUCCESS 

CHECK FOR HIBERNATE AGAIN 


PUSHL IHDS$L_LNKFLAGS (R2) 
MOVQ  =—s- R2, - (SP) 
PUSHAB B“EXESCLI_UTILSRV 
MOVZWL IHDS$W_ACTIVOFF (R2),R1 
ADDL R1,R2 

PUSHAL (R2) 

BLBC 24 (SP) ,280$ 
S$HIBER_S 

CALLS #6, @(R2)+ 

BLBC RO, 290$ 

BLBS (SP) ,270$ 

BRB EXESEXIT_IMAGE 


se Se Ne 


™e Se Ye Se Ve Ve Ye Ye Ne 


COMMAND INTERPRETER CALL BACK ROUTINE 


UNIVERSAL ENTRY EXE$CLI_UTILSRV, - 
<“M<>> 

-ENTRY EXESCLI_UTILSRV, “M<> 

MOVL  § #CLI$_INVREQTYP, RO 

RET 

-DSABL LSB 


SET INVALID REQUEST TYPE STATUS 


we Ne 
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1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 


-SBTTL EXIT IMAGE AND RUN DOWN FILES 


+ 


EXESEXIT_IMAGE - EXIT IMAGE AND RUN DOWN FILES 


THIS ROUTINE IS JUMPED TO AT THE CONCLUSION OF IMAGE EXECUTION TO RUN DOWN 
RMS FILES AND TO RETURN THE FINAL IMAGE STATUS. 


INPUTS : 
RO = FINAL IMAGE STATUS. 
OUTPUTS: 


IMAGE EXIT IS EXECUTED. 


™e Ve Ye Ce Te Te Ve Ne Be Yeo Ve Ve Ye Ye “oe 


UNIVERSAL_SYMBOL EXESEXIT_IMAGE 
#BXESEXIT_IMAGE:: 3 BXIT IMAGE 
PUSHL RO + SAVE FINAL IMAGE STATUS 
PUSHL #1 ? SET NOMBER OF ARGUMENTS 
10$: CALLG (SP),G“SYSSEXIT 3 EXIT IMAGE 
BRB 10$ ? 
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1305 
1306 
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we Me Ne Ye Be Be Re Ne Yo Ye Be Ye Ne We Wo YO Ye We Be We Be Ye Yeo Ye Ve 


™e 


1008: 


1108: 


1208: 
1308: 


1408: 


-SBTTL CATCH ALL CONDITION HANDLER 


EXESCATCH_ALL - ‘CATCH ALL CONDITION HANDLER 


THIS ROUTINE IS ENTERED AS THE RESULT OF AN UNFIELDED OR IMPROPERLY HANDLED 
excer? 10" CONDITION OR SOFTWARE SIGNAL. 


INPUTS : 


CHF$L_MCHARGLST(AP) = ADDRESS OF MECHANISM ARGUMENT LIST. 
CHF$L_SIGARGLST(AP) = ADDRESS OF CONDITION ARGUMENT LIST. 


OUTPUTS: 


A MESSAGE IS ISSUED USING THE G*SYSSPUTMSG SYSTEM SERVICE AND A TEST IS 
MADE ON THE CONDITION NAME TO DETERMINE IF THE IMAGE SHOULD BE ALLOWED 


TO CONTINUE EXECUTION. THE FOLLOWING CONDITIONS CAUSE A FORCED IMAGE 


EXIT: 
1. ANY ENTRY TO THIS ROUTINE VIA THE LAST CHANCE VECTOR. 
2. THE CONDITION NAME HAS A SEVERITY OF SEVERE ERROR. 


IF A FORCED IMAGE EXIT IS PERFORMED, THEN A SUMMARY OF THE CONDITION 
ARGUMENTS AND FINAL REGISTERS ARE WRITTEN TO SYSSOUTPUT. 


UNIVERSAL ENTRY EXESCATCH ALL, - 
<*M<R2,R3, R4,R5,R6,R7,R8,R9, R10, R11>> 

-ENTRY EXESCATCH ALL, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 

PUSHL #0 SET EXCEPTION NAME FLAG FALSE 

PUSHL R2 SAVE REGISTER 

MOVL CHFS$L_SIGARGLST (AP) , R2 GET ADDRESS OF SIGNAL ARGUMENTS 

PUSHL (R2) SAVE NUMBER OF ARGUMENTS 

CMPW CHFS$L_SIG NAME(R2),#SS$ SSFAIL ; IS EXCEPTION SYS. SERV. FAIL.? 

BNEQ 100$ NO 

$SETSFM_S #0 YES, TURN OFF SYS. SERV. FAIL. EXCEP. 

TSTW | CHFS$L_ SIG NAME+2(R2) POSSIBLY SYSTEM EXCEPTION NAME? 

BNEQ 120$ IF NEQ NO 

INCL 8 (SP) SET EXCEPTION NAME FLAG TRUE 

MOVL G*EXESEXCEPTABLE, R1 GET ADDRESS OF EXCEPTION TABLE 

MOVZBL (R1)+,RO0 SET LOOP COUNT 

TSTB (R1) + SKIP NUMBER OF ARGUMENTS 

MOVZWL (R1)+,-(SP) GET NEXT HARDWARE EXCEPTION CODE 

CMPZV #STS$V_CODE, #STS$S_CODE,- ; CONDITION VALUE HARDWARE CODE? 
CHF$L_ SIG NAME(R2), (SP) + 

BEQL 130$ 

SOBGTR RO,110$ 

CLRL 8 (SP) 

SUBL #2, (R2) 

TSTB G*CTL$GB_SSFILTER 

BNEQ 140$ 


CW Me we Me Ne 


Se Me Me Ne Me Me Ne Ne Ne 


<e 


IF EQL YES 

ANY MORE TO COMPARE? 

SET EXCEPTION NAME FALG FALSE 
ADJUST LENGTH OF ARGUMENT LIST 
SYSTEM SERVICE INHIBITED NOW? 
YES, DO NOT TRY TO PRINT ANYTHING 


se Ne te Se Ne 


PUSHL #0 CLEAR ADDRESS OF FACILITY NAME DESCRIPTOR 
PUSHL #0 CLEAR ADDRESS OF ACTION ROUTINE 
PUSHAB (R2) SET ADDRESS OF MESSAGE VECTOR 


OUTPUT MESSAGE 
RESTORE ARGUMENT COUNT 
GET CONDITION NAME 


CALLS #3,G*SYS$PUTMSG 
POPL (R2) 
MOVL § CHFS$L_SIG NAME(R2), RO 


Se Ne Ne Ne Ne Se 


we 
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1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 1508: 
1371 
1372 
1373 1608: 
1374 
1375 
1376 
1377 
1378 
1379 
1380 170$: 
1381 180$: 
1382 
1363 1908: 


POPL 
MOVL 
ADDL3. 
BEQL 
BLBS 
CMP2V 


BGEQ 
MOVZWL 
RET 


PUSHL 
TSTB 
BNEQ 
BLBC 
PUSHAB 
PUSHAB 
CALLS 
BSBW 
POPL 
BBSS 
BRW 


R2 

CHF$L_MCHARGLST (AP) ,R1 
#3,CHF$L_MCH DEPTH(R1) ,- 
160$ IF EQL YES 

RO, 150$ IF LBS SUCCESS CODE 
#STS$V_SEVERITY, #STS$S_SEVERITY,- ; SEVERE ERROR OR GREATER? 
RO, #STS$K_SEVERE 
160$ 
#SS$_CONTINUE, RO 


RESTORE REGISTER 
GET ADDRESS OF MECHANISM ARRAY 
SP) ; LAST CHANCE ENTRY? 


®e Ne Mu we Te 


IF GEQ YES 
SET CONTINUATION CODE 


we Te Ne Ne 


RO 3 SAVE EXCEPTION NAME 
G*CTL$GB_SSFILTER 3 SYSTEM SERVICES INHIBITED NOW? 
180$ 3 YES, DON’T TRY TO PRINT ANYTHING 
8 (SP) ,170$ 3; IF LBC NOT EXCEPTION 

(AP) 3 SET ADDRESS OF SIGNAL ARGUMENTS 
SUFFIX ? SET ADDRESS OF MESSAGE SUFFIX 
#2, G*SYSSEXCMSG 3 OUTPUT EXCEPTION SUMMARY 
EXESIMGDMP_MERGE 7 TRY TO TAKE A DUMP 

RO 3 RESTORE EXCEPTION NAME 
#STS$V_INHIB MSG, RO,190$ : SET INHIBIT MESSAGE BIT 
EXESEXIT_ IMAGE ; . 
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-SBTTL G*EXESRMSEXH ~ EXEC Mode Exit Handler 


1385° 


1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 


+ 


me Ve Te Te “Yo Ye Te We Ye Ve Ye Ye Yo Yo Yo No Ye Ye 


=e 


108: 


208: 


INpoTs: 


NONE. 


OUTPUTS: 


NONE. 


SIDE EFFECTS: 


RMS files are run down. 


UNIVERSAL ENTRY EXESRMSEXH, <“M<>> 


- ENTRY 
MOVAB 
PUSHAB 
PUSHL 
MOVZBL 
PUSHL 
PUSHAB 
CALLS 
CMPL 
BEQL 
BLBC 
RET 


EXESRMSEXH, “M<> 
-128 (SP), SP 
(SP) 

#0 

#128, (SP) 

#1 

4(SP) 

#2, G*SYS$RMSRUNDWN 
RO, #RMS$_BUSY 
20$ 

RO, 10$ 


we Te Se Ne Te Ye Te Ve Ne Ve 


EXESRMSEXH - Executive mode exit handler 


This routine is called as the result of an attempt to exit from exec mode. 
Te" s function is to run Piotte all RMS files. 


ALLOCATE STRING BUFFER 
BUILD BUFFER DESCRIPTOR 


SET LENGTH OF STRING BUFFER 
RUN DOWN IMAGE AND ALL PPFS 
PUSH ADDRESS OF BUFFER DESCRIPTOR 
RUN DOWN THE NEXT FILE 
BUSY ERROR IMPLIES DON‘T TRY 
TO DO RUNDOWN AT ALL 
IF LBC, THEN MORE TO GO 
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1420 
1421 


1422 


1423 
1424 
1425 
1426 
1427 
1428 


1429 
1430 
1431 
1432 
1433 
1434 
1435 


. 1436 


1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 


-SBTTL XQPMERGE - Merge the XQP into Pl Space | 
s++ 
? FUNCTIONAL DESCRIPTION: | 
3 
3 This routine merges the XQP into Pl space. 
3 ar: ; 
+ The number of global sections specified by G*XQP$GL_ SECTIONS is mapped into 
? the end of Pl space. The sections have names of the form SYSXQP_nnn where 
# nnn ranges from zero to XQP$W_SECTIONS-1. The section is mapped writeable- 
: if the corresponding bit in XQP$GL_SECPROT is set. 
3 : 
? CALLING SEQUENCE: 
7 
; CALLS #0, XQPMERGE 
7 
? INPUT PARAMETERS: 
3 
; NONE 
3 
? IMPLICIT INPUT: 
; 
; none 
3 
: OUTPUT PARAMETERS: 
3 
; none 
: 
? IMPLICIT OUTPUT: 
3 
; NONE 
3 
7 COMPLETION CODES: 
; RO low bit set => XOP successfully merged 
, 
; SS$_NORMAL 
? RO low bit clear => Error occurred while merging XQP- 
; re 
? Various errors returned by $IMGACT and $MGBLSC 
3 SIDE EFFECTS: 
; 
? The permanent portion of Pl space is 
; expanded to accommodate the merged image. 
7 
XQPMERGE : 
-WORD “M<R2,R3,R4,R5,R6,R7>  ;REGISTER SAVE MASK 
TSTL G*“XQPSGL_DZRO 7IS THERE ANY DZRO 
BEQL 10$ 7NO 
SEXPREG S - 7;CREATE THE XQP OWN STORAGE 
PAGCNT = G*XQPS$GL_DZRO, - 
REGION = #1,- 
ACMODE = #PSLS$C_EXEC 
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1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 


108: 


208: 


=e 


308: 


XOP_ NAM: 


BLBC RO, 308 
SUBL S*#<XQP_NAMSIZ+3>&°C3,SP ;RESERVE SPACE FOR GSD NAME 
MOVL SP, R6 ;SAVE ADDRESS OF GSD NAME 
MOVC3 S*#XQP_NAMSIZ,B*XQP_NAM, (R6) ;PUT GSD NAME IN WRITEABLE STORAGE 
MOVL G*XQP$GL_SECTIONS, R3 ;COUNT OF SECTIONS TO MAP 
ADDB R3,B°XQP_NAMSIZ-1(R6) ;START WITH LAST GSD NAME 
PUSHL R6 ?BUILD DESCRIPTOR FOR GSD NAME 
PUSHL 8“#XOP_NAMSIZ 
MOVL SP,R2 ADDRESS OF DESCRIPTOR 
MOVL #*X7FFFFFFF , - (SP) END VA FOR BLUEPRINT PO VA RANGE 
MOVL (SP) ,-(SP) START VA FOR BLUEPRINT PO VA RANGE 
MOVL SP, R4 7;ADR OF INPUT VA RANGE 
CLRQ ~ (SP) RETURN VA RANGE 
MOVL SP,R5 . 7ADR OF RETURN VA RANGE 
DECL R3 *;MAKE COUNT ZERO-BASED 
DECB B“XQP_NAMSIZ~1 (R6) #NEXT GSD NAME 
$MGBLSC_S - 
INADR = (R4),- 
RETADR = (R5),- 
FLAGS = #<SEC$M_EXPREG!SECS$M_SYSGBL>, - 
GSDNAM = (R2),- 
ACMODE = #PSLS$C_EXEC 
BLBC RO,30$ — 
SOBGEQ R3,20$ 
MOVL (RS) ,G*CTL$GL_CTLBASVA ;SET A NEW CONTROL REGION BASE 
IMP @(R5) *XQP SELF-INITIALIZATION 
RET # AND RETURN TO CALLER 
«ASCII /SYSXQP_000/ 


XQP_NAMSIZ = .-XQP_NAM 
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ovww 


1536 
1537 
1538 
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1542 
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1544 
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1546 
1547 
1548 
1549 
1550 
1551 
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1554 
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1558 


1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 


-SBTTL IMAGE DUMP MERGE 
+ 


EXES IMGDMP_MERGE - MERGE IN THE IMAGE DUMP FACILITY AND CALL IT 


we 


THIS ROUTINE IS ENTERED AS THE RESULT OF A FATAL CONDITION WHICH WILL FORCE 
IMAGE EXIT 


me Ye Me NO Ne 


INPUTS: 


we Ve 


CHF$L_MCHARGLST(AP) = ADDRESS OF MECHANISM ARGUMENT LIST. 
CHF$L_SIGARGLST(AP) = ADDRESS OF CONDITION ARGUMENT LIST. 


=e 30 Me 


OUTPUTS: 


AFTER PRIVILEGE CHECKS, THE IMAGE DUMP FACILITY IS MERGED INTO THE 
ADDRESS SPACE AND CALLED. 


~e Ye Te Se Ve 


=e 


UNIVERSAL_SYMBOL EXES$ IMGDMP_EXEC 
;EXES$IMGDMP_EXEC:: ; EXEC MODE ENTRY POINT 

PUSHR #*M<R2,R3,R4,R5,R6,R7,R8,R9, R10, R11> 

BRB EXEC _M 

-ENABL LSB 

UNIVERSAL_SYMBOL EXE$ IMGDMP_MERGE 


;EXES$IMGDMP_MERGE: : 
PUSHR #*M<R2,R3,R4,R5,R6,R7,R8,R9, R10, R11> 
MOVPSL RO ; GET CURRENT PSL 
EXTZV #PSLS$V_CURMOD, #PSL$S_CURMOD, RO, RO 
CMPL RO, #PSL$C_USER ; IS IT USER MODE 
BNEQ 108 ; NO - DUMP NOT ALLOWED 
EXEC_M: MOVAL ~-SCRATCHSIZE (SP), SP ; RESERVE SCRATCH SPACE ON STACK 
MOVL = SP, R6 
MovcS #0, (SP), #0, #SCRATCHSIZE, (SP) ; ZERO IT 
MOVL § #<JPI$_PROCPRIV@16>+4,JPI_PROC(R6) ;INITIALIZE TO GET PROCESS PRIV 
MOVAB PROCPRIV(R6) , JPI_PROC+4 (R6) 
MOVL § #<JPIS$_IMAGPRIV@16>+4, JPI_IMAG(R6) ;INITIALIZE TO GET IMAGE PRIV 
MOVAB IMAGPRIV(R6) , JPI_IMAG+4 (R6) 
MOVL § #<JPI$_PHDFLAGS@16>+4,JPI_FLAG(R6) ;INITIALIZE TO GET PHD FLAGS 
MOVAB PHD FLAGS (R6),JPI_FLAG+4 (R6) 
MOVAB JPI_PROC(R6),RO ; ADDRESS OF ITEM LIST 
$GETJPI_S EFN = S“#EXE$C_SYSEFN, - 
ITMLST = (RO) 
BLBS _— RO, 20$ 
10$: § BRW 40$ ; ERROR - GIVE UP 
20$: BBC #PHD$V_IMGDMP, PHD FLAGS (R6),10$ ; NO DUMP REQUESTED 
BICL | PROCPRIV(R6),IMAGPRIV(R6) ; TEST THAT IMAGE PRIVILEGES AREN'T GREATE 
BICL § PROCPRIV+4 (R6) , IMAGPRIV+4 (R6) 
BISL § IMAGPRIV+4 (R6), IMAGPRIV(R6) 


BEQL 30$ 7 NO EXCESS IMAGE PRIVILEGES 

BBS #PRVS$V_CMKRNL, PROCPRIV(R6) , 30$ 
BBC #PRVSV_SETPRV, PROCPRIV(R6),40$ ; INSUFFICIENT PRIVILEGES 
30$: MOVL #IMGACTS_NARGS, (R6) 7 SET ARGUMENT COUNT FOR $IMGACT CALL 


MOVAB IMGDMPNAM, IMGACT$_NAME(R6) ; SET ADR OF INPUT FILE NAME DESC 
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1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 


40S: 
50S: 


we Ne Ye Me Te Me Me Me Ve Ne Me Ve Me Me Ne Ne Ye Ne Ve 


we Me 


me Ye te Se Me Ne Me Me Me Ne Ne Ne 


+ 
+ 


MOVAB DEFAULTNAMDSC, IMGACT$ DFLNAM(R6) ; SET ADR OF DEFAULT NAME STR 
MOVL #<IACSM_ MERGE ! IACSM_EXPREG>, IMGACT$ _IMGCTL(R6) ; SET CTL FLAGS 
MOVAB HDRBUF (R6) , IMGACT$_HDRBUF(R6) ; SET ADR OF IMAGE HEADER BUFFER 
MOVAB IMGACT_INADR(R6) , IMGACT$_INADR(R6) ; SET ADR OF INPUT VA RANGE 
MOVAB IMGACT_RETADR(R6),IMGACT$ RETADR(R6) ; SET ADR OF RETURN RANGE 
CLRL IMGACTS IDENT (R6) 7 NO MATCH IDENT SPECIFIED 

MOVZWL #*X200,IMGACT_INADR(R6) ; SET A BLUEPRINT PO ADDRESS RANGE FOR 
MOVL #1@30-1,IMGACT INADR+4(R6) ; MAPPING TO FIRST FREE VA SPACE 


SIMGACT_G (R6) 7; MAP IN THE DUMP IMAGE 

BLBC RO, 40$ ; ERROR - GIVE UP 

SIMGFIX_S 

BLBC RO, 40$ 

MOVL IMGACT_RETADR (R6) ,R1 ; START OF THE MERGED IN CODE 
ADDL3 8(R1),R1,R1 ; START ADDRESS OF THE DUMP ROUTINE 
MOVAL SCRATCHSIZE(R6), SP 7 GET RID OF SCRATCH STORAGE 
JSB (R1) 

BRB 50$ 

MOVAL SCRATCHSIZE(R6), SP ; GET RID OF SCRATCH STORAGE 
POPR #°M<R2, R3,R4,R5,R6,R7,R8,R9,R10,R11> 

RSB 

-DSABL LSB 


-SBTTL CRELNM - FIXUP AND INSERT A LOGICAL NAME BLOCK 


FUNCTIONAL DESCRIPTION: 


THE PURPOSE OF THIS ROUTINE IS TO FIXUP A LNMB FOR A LOGICAL NAME AND INSERT 
IT INTO THE APPROPRIATE HASH BUCKET OF THE PROCESS-PRIVATE LOGICAL NAME HASH 


TABLE. 


MOVED 


THE LOGICAL NAME BEING FIXED REQUIRES THAT ITS EQUIVALENCE STRING BE 
FROM THE PQB INTO THE STORAGE ALLOCATED FOR IT. IF THE LENGTH OF THE 


EQUIVALENCE STRING IS 0 THEN THE BLOCK OF STORAGE FOR THIS LOGICAL NAME IS 
DEALLOCATED AND THE ROUTINE EXITS. 


CALLING SEQUENCE: 


INPUT 


BSBW = CRELNM 

-WORD POQBST_<OFFSET> 

-WORD POQBST <OFFSET>_ATT 
.WORD <NAME>_LNMX - PROC DIR 
.WORD <NAME> - PROC_DIR 


PARAMETERS : 

R6 ~ ADDRESS OF PQB 

R7 - ADDRESS OF PROCESS DIRECTORY’S TABLE HEADER 
R8 - ADDRESS OF ALLOCATED P1 STORAGE 

R9 - ADDRESS OF PROCESS TABLE’S TABLE HEADER 


IMPLICIT INPUT: 


IT IS ASSUMED THAT THE LOGICAL NAME BEING CREATED HAS ALREADY BEEN 
FORMATTED WITH THE EXCEPTION OF: 


1. THE CONTAINING TABLE ADDRESS WITHIN ITS LNMB. 
2. THE TRANSLATION STRING AND ATTRIBUTES WITHIN ITS LNMX. 
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1625 ; OUTPUT PARAMETERS: 

1626 ; NONE 

1627 ; 

1628 ; IMPLICIT OUTPUT: 

1629 ; NONE 

1630 ; 

1631 ; COMPLETION CODES: 

1632 ; NONE 

1633 ; 

1634 ; SIDE EFFECTS: 

1635 ; 

1636 ; RO - R3, R5, AND AP ARE DESTROYED. 

1637 ;-- 

1638 

1639 CRELNM: 3 FIXUP AND INSERT THE LOGICAL NAME 
1640 MOVL (SP) ,AP 3 RETRIEVE ARGUEMENT POINTER 

1641 ADDL2 #8, (SP) 3 CORRECT RETURN PC VALUE 

1642 MOVZWL (AP)+,R1 3 RETRIEVE OFFSET TO TRANSLATION 

1643 MOVZBL (R6) [R1]},RO 3; RETRIEVE THE SIZE OF THE TRANSLATION 
1644 BNEQ 10$ 3; If ITS NOT O THEN CONTINUE 

1645 MOVZWL 4(AP),RO ¢ RETRIEVE OFFSET TO LNMB 

1646 ADDL2 R8, RO 3 COMPUTE ADDRESS OF LNMB 

1647 MOVZWL LNMBSW_SIZE(RO),R1 3 RETRIEVE SIZE OF BLOCK TO DEALLOCATE 
1648 JSB G*EXESDEAP1 ? DEALLOCATE THE LNMB 

1649 BRB 208 : GO RErreny 

1650 

1651 108: MOVZWL (AP)+,R2 3; RETRIEVE OFFSET TO TRANSLATION ATTRIBUTES 
1652 MOVZWL (AP) +,R3 3 RETRIEVE OFFSET TO LNMX 

1653 MOVB 1(R6) (R2],- 3; STORE THE TRANSLATION ATTRIBUTES FROM 
1654 LNMXS$B_FLAGS (R8) [R3] 3; THE PQB INTO THEN LNMX FLAG FIELD 
1655 INCL RO 3 MOVE COUNT ALONG WITH TRANSLATION 
1656 MOVC3 RO, (R6) [R1]),- 3 MOVE TRANSLATION COUNT AND STRING FROM 
1657 LNMXS$T_XLATION (R8)[{R3] ; THE PQB INTO TRE APPROPRIATE LNMX FIELD 
1658 MOVZWL (AP)+,R1 3 RETRIEVE OFFSET TO LNMB 

1659 ADDL2 R8,R1 3; COMPUTE ADDRESS OF LNMB 

1660 MOVL RO, LNMBSL_TABLE (R1) 3 STORE CONTAINING TABLE HEADER’S ADDR 
1661 - CLRL R2 : NO SPECIAL INSERTION ATTRIBUTES 

1662 JSB G*LNMS INSLOGTAB 3 APPROPRIATELY INSERT SYSSERROR 


1663 20S: RSB RETURN 
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1665 -SBTTL G“EXESCRE_JGTABLE - CREATE GROUP AND JOB-WIDE LOGICAL NAME TABLES 
1666 3++ 

1667 ; FUNCTIONAL DESCRIPTION: 

1668 ; 

1669 ; THE PURPOSE OF THIS ROUTINE IS TO HANDCRAFT GROUP AND JOB-WIDE LOGICAL 
1670 ; NAME TABLES AND DIRECT THEIR INSERTION INTO THE APPROPRIATE HASH BUCKET 
1671 ; OF THE SYSTEM LOGICAL NAME HASH TABLE. GROUP LOGICAL NAME TABLES ARE INSERTED 
1672 ; SUCH THAT IF THERE IS AN EXISTING GROUP TABLE FOR THAT GROUP, THE CALLER OF 
1673 ; THIS ROUTINE IS MAPPED TO IT. 

1674 ; 

1675 ; CALLING SEQUENCE: 

1676 ; 

1677 ; JSB G“EXESCRE_JGTABLE 

1678 ; 

1679 ; INPUT PARAMETERS: 

1680 ; 

1681 ; R7 - JOB TABLE QUOTA 

1682 ; R10 - ADDRESS OF ASCII EQUIVALENT OF JIB ADDRESS 

1683 ; Ril - ADDRESS OF ASCII EQUIVALENT OF GROUP NUMBER 

1684 ; 

1685 ; IMPLICIT INPUT: 

1686 ; 

1687 ; I3M_AR_ SYSTEM DIR_LNMTH ~ ADDRESS OF POINTER TO SYSTEM DIRECTORY TABLE 
1688 ; HEADER 

1689 ; 

1690 ; G*LNMSAL_HASHTBL - ADDRESS OF POINTER TO SYSTEM HASH TABLE 
1691 ; 

1692 ; OUTPUT PARAMETERS: 

1693 ; NONE 

1694 ; 

1695 ; IMPLICIT OUTPUT: 

1696 ; 

1697 ; R4 - ADDRESS OF PCB 

1698 ; ; 

1699 ; COMPLETION CODES: 

1700 ; 

1701 ; 1 - SUCCESS 

1702 ; SS$_EXLNMQUOTA - INSUFFICIENT QUOTA IN SYSTEM DIRECTORY TABLE 

1703 ; SS$_INSFMEM - INSUFFICIENT PAGED POOL TO ALLOCATE LNMBS 

1704 ; 

1705 ; SIDE EFFECTS: 

1706 ; 

1707 ; RO - R5 AND RS ARE DESTROYED. 

1708 ; 

1709 ; THE JOB-WIDE LOGICAL NAME TABLE WILL HAVE BEEN CREATED POTENTIALLY 
1710 ; RESULTING IN THE DELETION OF ANY SHAREABLE TABLE WITH THE SAME NAME. 
1711 ; 

1712 ; THE GROUP LOGICAL NAME TABLE WILL HAVE BEEN CREATED PROVIDED A GROUP 
1713 ; TABLE WITH THAT NAME DOES NOT ALRADY EXIST IN WHICH CASE NOTHING IS 
1714 ; DONE. 

-1715 ; 

1716 ;-- 

1717 

1718 -ENABL LSB 

1719 

1720 UNIVERSAL SYMBOL EXESCRE_GTABLE 


1721 ;EXE$CRE_GTABLE: : 
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1722 

1723 ; 

1724 ; THIS ROUTINE G*EXESCRE_| GTABLE IS IDENTICAL TO THE ROUTINE G*EXESCRE « JGTABLE 
1725 ; WITH EXCEPTION THAT THE JOB LOGICAL NAME TABLE IS NOT CREATED. THUS THE 

1726 ; ONLY INPUT PARAMETER IS R11, WHICH HAS THE ADDRESS OF ASCII EQUIVALENT 

1727 ; OF GROUP NUMBER. 

1728 ; 

1729 

1730 MOVZWL #GROUP _| TABLE | SIZE, R1 3; SET SIZE OF GROUP TABLE TO BE CREATED 
1731 JSB G*EXESALOPAGED 3 ALLOCATE REQUIRED AMOUNT OF PAGED POOL 
1732 BLBS RO, 1008S 3; CONTINUE IF ALLOCATION IS SUCCESSFUL 
1733 MOVZWL #SS$_INSFMEM, RO 3 OTHERWISE SETUP RO WITH ERROR CODE 
1734 BRW 170$ 3; AND EXIT 

1735 

1736 1008S: MOVL G*CTLSGL_PCB, R4 3 GET CURRENT PCB 

1737 JSB G“LNMSLOCKW 3; LOCK LOGICAL NAME MUTEX FOR WRITING 
1738 

1739 MOVL G*LNM_AR_SYSTEM_DIR_LNMTH, R8& 

1740 3; GET ADDRESS OF SYSTEM DIRECTORY TABLE 
1741 CMPL R1, LNMTHSL_BYTES (R8) 3 IS THERE ENOUGH QUOTA IN THE SYSTEM 
1742 3; DIRECTORY TABLE? 

1743 BLEQ 110$ 3; CONTINUE IF ENOUGH QUOTA 

1744 MOVL R2, RO ; SETUP TO DEALLOCATE THE PAGED POOL 
1745 JSB G“EXESDEAPGDSIZ 3; DEALLOCATE IT 

174¢é JSs G“LNPMSUNLOCK 3 UNLOCK THE LOGICAL NAME MUTEX 

1747 MOVZWL #SS$_EXLNMQUOTA, RO 3; SETUP REASON FOR PREMATURE TERMINATION 
1748 BRW 170$ ; AND GO RETURN TO CALLER 

1749 

1750 1108: MOVL R2, R8 ; SAVE ADDRESS OF STORAGE ALLOCATED 
1751 MOVC3 R1,GROUP_TABLE, (R2) ; FORMAT THE LOGICAL NAME TABLE(S) 

1752 MOVL G*CTLSGL_PCB, R4 3; GET CURRENT PCB 

1753 BRW CREATE_GTABLE 3; GO CREATE GROUP TABLE 

1754 

1755 ONIVERSAL_SYMBOL EXESCRE_: JGTABLE 

1756 #EXESCRE_JGTABLE: : 

1757 

1758 ; 

1759 ; ALLOCATE PAGED POOL FOR THE GROUP AND JOB-WIDE LOGICAL NAME TABLES. AFTER 
1760 ; ALLOCATING SUFFICIENT PAGED POOL, WRITE LOCK THE LOGICAL NAME MUTEX, AND MAKE 
1761 ; SURE THAT THE PARENT LOGICAL NAME TABLE, THE SYSTEM DIRECTORY TABLE, HAS 

1762 ; SUFFICIENT QUOTA FOR THE CREATION OF BOTH LOGICAL NAME TABLES AND FOR ANY 
1763 ; SEPARATE QUOTA THAT WILL BE RELEGATED TO THEM. IF THE SYSTEM DIRECTORY TABLE 
1764 ; DOES NOT CONTAIN SUFFICIENT QUOTA THEN EXIT IMMEDIATELY WITH THE APPROPRIATE 
1765 ; ERROR; OTHERWISE, THE BLOCK OF STORAGE THAT HAS BEEN ALLOCATED FOR THE LOGICAL 
1766 ; NAME TABLES IS FORMATED. 

1767 ; 

1768 

1769 MOVZWL #SO_ALLOC_SIZE,R1 3 ASSUME BOTH TABLES WILL BE CREATED 
1770 JSB G“EXESALOPAGED 3 ALLOCATE REQUIRED AMOUNT OF PAGED POOL 
1771 BLBS RO, 120$ 3; CONTINUE IF ALLOCATION IS SUCCESSFUL 
1772 MOVZWL #SS$_INSFMEM, RO 3; OTHERWISE SETUP RO WITH ERROR CODE 
1773 BRB 130$ ¢ AND EXIT 

1774 

1775 1208: MOVL G*CTLSGL_PCB, R4 + GET CURRENT PCB 

1776 JSB G*LNMSLOCKW 3; LOCK LOGICAL NAME MUTEX FOR WRITING 
1777 ‘ 

1778 ADDL3 R7,R1,R0O ; DETERMINE TOTAL AMOUNT OF QUOTA 
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1779 MOVL G*LNM_AR_SYSTEM_DIR_LNMTH,R8 

1780 : GET ADDRESS OF SYSTEM DIRECTORY TABLE 
1781 CMPL RO, LNMTHSL_BYTES (R8) ; IS THERE ENOUGH QUOTA IN THE SYSTEM 
1782 ; DIRECTORY TABLE? 

1783 BLEQ 140$ 3; CONTINUE IF ENOUGH QUOTA 

1784 MOVL R2,R0 ; SETUP TO DEALLOCATE THE PAGED POOL 
1785 JSB G“EXESDEAPGDSIZ 3 DEALLOCATE IT 

1786 JSB G“LNMSUNLOCK ; UNLOCK THE LOGICAL NAME MUTEX 

1787 MOVZWL #SS$_EXLNMQUOTA, RO ; SETUP REASON FOR PREMATURE TERMINATION 
1788 1308S: BRW 170$ ; AND GO RETURN TO CALLER 

1789 

1790 1408S: MOVL R2,R8 : SAVE ADDRESS OF STORAGE ALLOCATED 
1791 MOVC3 R1,GROUP_TABLE, (R2) ; FORMAT THE LOGICAL NAME TABLE (S) 

1792 MOVL G*CTLSGL_PCB, R4 ; GET CURRENT PCB 

1793 

1794 ; 

1795 ; FIXUP THE LOGICAL NAME BLOCK FOR THE JOB TABLE THAT IS BEING CREATED, AND 
1796 ; THEN INSERT IT INTO THE APPROPRIATE HASH BUCKET OF THE SHAREABLE LOGICAL NAME 
1797 ; HASH TABLE. THIS FIXING UP OF THE JOB TABLE’S LOGICAL NAME BLOCK INCLUDES 
1798 ; APPENDING TO THE LNMSJOB_ ASCII STRING ALREADY PRESENT WITHIN THE NAME FIELD 
1799 ; OF THE LNMB, THE ASCII EQUIVALENT OF THE JIB’S HEXADECIMAL ADDRESS. A POINTER 
1800 ; TO THIS ASCII EQUIVALENCE IS PASSED TO THIS ROUTINE IN R7. 

1801 ; 

1802 

1803 MOVAB JOB_ TABLE (R8),R1 ; RETRIEVE ADDRESS OF JOB TABLE’S LNMB 
1804 MOVQ (R10), LNMBST_NAME+9(R1) ; MOVE ASCII HEX JIB ADDR INTO NAME FIELD 
1805 MOVL G*LNMSAL_HASHTBL, R2 ; POINTER TO HASH TABLE 

1806 MOVL (R2),- ; MOVE THE ADDRESS OF THE SHAREABLE 
1807 JOB_TABLE LNMTH+~ ; LOGICAL NAME HASH TABLE INTO THE JOB 
1808 LNMTHSL _ HASH (R8) ; TABLE’S TABLE HEADER 

1809 MOVAB JOB _ TABLE __ORB (R8) , ~ ; MOVE THE ADDRESS OF THE JOB TABLE’S 
1810 JOB _ TABLE _LNMTH+- ; OBJECT RIGHTS BLOCK INTO THE JOB 

1811 LNMTHSL _ORB (R8) ; TABLE’S TABLE HEADER 

1812 MOVL R1,JOB_TABLE_LNMTH+- 7 MOVE THE ADDRESS OF THE JOB TABLE’S 
1813 LNMTHSL_NAME (R8) ; LNMB INTO THE JOB TABLE’S TABLE HEADER 
1814 

1815 MOVL PCBSL UIC (R4) ,- ; MOVE THE PROCESS’S UIC INTO THE 

1816 JOB __ TABLE _ORB+— ; APPROPRIATE FIELD OF THE JOB TABLE’S 
1817 ORBSL_| OWNER (R8) 3; OBJECT RIGHTS BLOCK 

1818 CLRQ JOB_TABLE ORB+- ; SET INITIAL NULL ACL 

1819 ORBSL . ACL | COUNT (R8) 

1820 

1821 TSTL R7 ; IS JOB TABLE QUOTA POOLED? 

1822 BEQL 150$ ; IF SO THEN GO INSERT LNMB 

1823 MOVAB JOB_TABLE_LNMTH(R8) , - ; OTHERWISE SET UP THE JOB TABLE’S 

1824 JOB | - TABLE |__LNMTH+— ; TABLE HEADER AS THE QUOTA HOLDER FOR 
1825 LNMTHSL_QTABLE (R8) ; THE JOB TABLE 

1826 MOVL R7,JOB TABLE LNMTH+- ; SET THE BYTE LIMIT FIELD TO THE 

1827 LNMTHSL_BYTESLM(R8) 3 INITIAL AMOUNT OF JOB TABLE QUOTA 
1828 MOVL R7, JOB | TABLE | LNMTH+- ; SET THE BYTE REMAINING FIELD TO THE 
1829 LNMTHSL | BYTES (R8) ; INITIAL AMOUNT OF JOB TABLE QUOTA 
1830 1508S: CLRL R2 ; NO SPECIAL INSERTION ATTRIBUTES 

1831 JSB G*LNMS INSLOGTAB ; APPROPRIATELY INSERT LNMSGROUP_xxxxxx 
1832 

1833 ; 

1834 ; FIXUP THE LOGICAL NAME BLOCK FOR THE GROUP TABLE THAT IS BEING CREATED, AND 
1835 : THEN INSERT IT INTO THE APPROPRIATE HASH BUCKET OF THE SHAREABLE LOGICAL NAME 
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1836 ; HASH TABLE PROVIDED A TABLE FOR THAT GROUP DOES NOT ALREADY EXIST. THIS 

1837 ; FIXING UP OF THE GROUP TABLE’S LOGICAL NAME BLOCK INCLUDES APPENDING TO THE 
1838 ; LNMSGROUP _ ASCII STRING ALREADY PRESENT WITHIN THE NAME FIELD OF THE LNMB, 
1839 ; THE ASCII EQUIVALENT OF THE OCTAL GROUP THE PROCESS BELONGS TO. A POINTER 
1840 ; TO THIS ASCII EQUIVALENCE IS PASSED TO THIS ROUTINE IN R8. 

1841 ; 

1842 

1843 CREATE _GTABLE: 7 

1844 MOVL R8,R1 : ; SETUP TO INSERT THE GROUP TABLE’S LNMB 
1845 MOVIL (R11), LNMBST_NAME+11(R1); APPEND THE ASCII OCTAL GROUP TO THE 
1846 MOVW 4(R11), LNMBST_NAME+15 (R1) ; LNM$GROUP _ ALREADY IN THE NAME FIELD 
1847 MOVL G*LNMSAL_HASHTBL, R2 3 ADDRESS OF HASH TABLE 

1848 MOVL (R2),- 3; MOVE THE ADDRESS OF THE SHAREABLE 
1849 GROUP_TABLE_LNMTH+- ; LOGICAL NAME HASH TABLE INTO THE GROUP 
1850 LNMTHSL_HASH (R8) 3 LOGICAL NAME TABLE’S YABLE HEADER 
1851 MOVAB GROUP_TABLE_ ORB (R8) , - 3 MOVE THE ADDRESS OF THE GROUP TABLE’ S 
1852 GROUP _TABLE_LNMTH+- 3; OBJECT RIGHTS BLOCK INTO THE GROUP 
1853 LNMTHSL_ORB (R8) ; TABLE’S TABLE HEADER 

1854 MOVL R1,GROUP_TABLE_LNMTH+- ; MOVE THE ADDRESS OF THE LNMB INTO THE 
1855 LNMTHSL_NAME (R8) 3 GROUP TABLE’S TABLE HEADER 

1856 

1857 MOVW PCBSW_GRP (R4) , - 3; MOVE THE PROCESS’S GROUP NUMBER 

1858 GROUP_TABLE_ORB+~ ; INTO THE APPROPRIATE FIELD OF THE 
1859 ORBSL OWNER+2 (R8) : GROUP TABLE’S OBJECT RIGHTS BLOCK 
1860 CLRQ GROUP TABLE ORB+- : SET INITIATY NULE ACL 

1861 ORB$L_ACL_COUNT (R8) 

1862 

1863 MOVL _ #LNMSM_CREATE_IF, R2 + GROUP TABLES ARE INSERTED CREATE_IF 
1864 JSB G“LNMS INSLOGTAB ; APPROPRIATELY INSERT LNMSGROUP _xxxxxx 
1865 : 

1866 CMPW #SS$_NORMAL, RO ; DID THE GROUP TABLE ALREADY EXIST? 
1867 BNEQ 160S: 3; GO UNLOCK THE MUTEX IF IT DIDN’T 

1868 MOVL R8, RO ; DELETE THE LNMB FOR WHAT WOULD HAVE 
1869 JSB G“EXESDEAPAGED : BECOME A GROUP LOGICAL NAME TABLE 
1870 ; 

1871 ; UNLOCK THE LOGICAL NAME MUTEX AND RETURN STATUS. 

1872 ; 

1873 

1874 1608: JSB G*LNMSUNLOCK ; UNLOCK THE LOGICAL NAME MUTEX 

1875 MOVZBL #1,R0 3; SUCCESS 

1876 1708: RSB ¢ RETURN 

1877 

1878 -DSABL LSB 

1879 a 

1880 END 
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DECLARATIONS 

EXESDELPRC ~- DELETE PROCESS SYSTEM SERVICE 

DELETE ~ PERFORM DELETE ACTIONS IN CONTEXT OF PROCESS 
DELPAGE - DELETE PAGE 

TERMMBX - SEND MESSAGE TO TERMINATION MAILBOX 

Return Unused CPU Time Limit to Parent 
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1 -TITLE SYSDELPRC - DELETE PROCESS SYSTEM SERVICE 
2 .IDENT ’X-33' . 
3 - 
4; . 
5 ZR RHR RK II KKK IKK I KERRI IKKE KIRK IR HK RIKKI KK KEK KKK IKKE KEK KKHKEKKKEKEKKEK KEK 
6 ;* * 
7 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984, 1988 BY * 
8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
9 ;* ALL RIGHTS RESERVED. * 
10 ;* * 
11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
12 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH. THE * 
13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
16 ;* TRANSFERRED. * 
17 ;* * 
18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
20 ;* CORPORATION. * 
21 =;* *® 
22 3% DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITs * 
23 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. i 
4 3* * 
26 PIII IKK III II IK HEH HK HR HRHIK KEKE IKK KHER EKER ERKEKEKIKKREKREKKEREKRKEREKEKEEREKKKEK 
27 
28 ;++ 
29 ; FACILITY: EXECUTIVE, SYSTEM SERVICES 
30 ; 
31 ; ABSTRACT: SYSDELPRC IMPLEMENTS THE DELETE PROCESS SYSTEM SERVICE 
32 ; WHICH CAUSES A PROCESS TO BE DELETED FROM THE SYSTEM AFTER 
33 ; RELEASING ALL OF ITS RESOURCES. 
34 ; 
35 ; ENVIRONMENT: 
36 ; . MODE=KERNEL 
37 ; 
38 ; AUTHOR: R. I. HUSTVEDT, CREATION DATE: 30-DEC-76 
39.; 
40 ; MODIFIED BY: 
41; 
42 ; X-33 CWH5133 CW Hobbs 11-Dec-1988 
43 ; Rearrange SDELPRC code so that we do not call 
44; EXESNAMPID at IPL$_ASTDEL. This means a minor 
45 ; shuffle to allocate the ACB on the NAMPID 
46 ; success path only. 
47; 
48 ; X-32 CWH5132 CW Hobbs 11-Nov-1988 
49 ; Deallocate ACB if remote process. 
50 ; | 
51 ; X-31 CWH5131 CW Hobbs 28-Oct-1988 
52 ? Use final names for CWPS queues. 
53 ; 
54; X-30 WMC0030 Wayne Cardoza 02-Sep-1988 
55 3 Add CPBDEF 
56 ; 
57 3 X-29 wMc0028 Wayne Cardoza 22-Aug-1988 
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58 ; New affinity checking. 

59 : 

60 ; X~28 DOSs2001 Dan O’ Shaughnessy 8-MAY-1988 

61 ; CWH5128 CW Hobbs 29-Aug-1988 
62 ; Add support for cluster-wide process services. 

63 ; 

64 ; X-27 SSA0006 Stan Amway 19-May-1988 
65.7 Check for INPROG flag while scanning PSTs. If a PST 
66 >. has this flag set, then the section was being created 
67 }: at the time the delete process AST was delivered. 

68 ; In this case, the REFCNT is biased by 1, which if 

69 ; not handled correctly will cause a FILCNTINONZ bugcheck. 
10 ; 

71 3 X-26 JWT0306 Jim Teague 12-Mar-1988 
72 3 Now that DIOCNT bug has been found, make the bugcheck 
73 3 added by X-25 a nonfatal bugcheck. 

74 3 

75 3 X-25 JWT0303 Jim Teague 18-Dec-1987 
76 3; Permanent check for DIOCNT > DIOLM. 

17 3 

78 ; X-24 SUF Stu Farnham 10-Nov-1987 
79 ; Clear all affinities on process deletion. 

80 ; 

81 ; X-23 WMC0023 Wayne Cardoza 55-Nov-1987 

82 ; Reverse order of P1 deletion. 

83 ; 

84 ; X-22 MSH0326 Michael S. Harvey 21-Oct-1987 
85 ; Use interrupt stack only version of FIND CPU_DATA 

86 ; where it’s appropriate. 

87 ; ' 

88 ; X-21 SSA0005 Stan Amway 9-Sep-1987 
89 ; , Call EXESRESETVEC1 instead of EXESRESETVEC. 

90 ; (Done on behalf of and at the request of Jon Callas.) 
91 ; 

92 ; X-20 JWT0297 "Jim Teague 20-Aug-1987 
93 ; Use ADAWI for manipulating JIBSW_PRCCNT. 

94 ; 

95 ; X-19 SSA0004 Stan Amway 10-Aug-1987 
96 ; Swap file allocation changes - don’t deallocate space here. 
97 ; 

98 ; x-18 WMC0018 Wayne Cardoza 30-Jul-1987 
99 ; Honor NO DELETE bit in PCB. 

100 ; 

101 ; X-17 SFO0017 Stephen Fiorelli 27-Jul-1987 
102 ; Large working set support. 

103 ; 

104 ; X-16 WMC0016 Wayne Cardoza 22-May-1987 
105 ; Fix assumption that all permanently locked in working set 
106 ; pages are at high end of address space. 

107 ; 

108 ; X-15 SSA0003 Stan Amway 13-Apr-1987 
109 ; Call a new routine, MMGSDEALLOCSWPAREA, to return 


= 
ry 
°o 
we 


swap file space. 


112 X-14 WMC0014 Wayne Cardoza 30-Mar-1987 


Make sure we zero skipped PTEs in DEL_PAGES. 


e 
-_ 
wW 

™e Ye Ne Ne 


-114 
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X~-13 wMco013 Wayne Cardoza 30-Mar~1987 


115 ; 

116 ; In DEL PAGES, must make sure the PTE pointer is incremented 
117 ; after scanning null entries. 

118 ; . 

119 ; X-12 SF00003 Stephen Fiorelli 13-Mar-1987 
120 ; Happy Friday the 13th. Store address of nullpcb 
121 ; in unused vector. 

122 ; 

123 ; X-11 wmMcooli Wayne Cardoza 05-Mar-1987 
124 ; Fix a broken branch. 

125 ; 

126 ; X-10 wacoo010 Wayne Cardoza 11-Feb-1987 
127 ; Release page table pages at process deletion instead of 
128 ; in swapper. 

129 ; Change NULLPCB to pointer. 

130 ; 

131 ; X-7 SSA0002 Stan Amway 23-Oct-1986 
132 ; Protect exec mode rundown against re-entrancy and 
133 ; exceptions, bug checks, etc. . 

134 ; 

135 ; X-6 RNGOOO06 Rod Gamache (21-Oct-1986 
136 ; Use SMP Poor Man’s Lockdown macros. 

137 ; . 

138 ; xX-5 SSA0001 Stan Amway . 2-Oct-1986 
139 ; Add support for exec mode rundown handlers. 

140 ; . 

141 ; X-4 HHO218 Hai Huang : 08-Sep-1986 
142 ; Transfer device ownership from subprocess to job master 
143 ; for private voluems. 

144 ; 

145 ; X-1D2 SF04002 Stephen Fiorelli 12-Mar-1986 
146 ; Take G* out of LNM_SYSTEM DIRECTORY DESC. 

147 ; 

148 ; V04-001 SF04001 Stephen Fiorelli 23-Oct-1985 
149 ; System_service macro used to declare entry point 
150 ; and build system service descriptor block. 

151 ; Added $SYSVECTORDEF. 

152 ; 

153 ; v04-001 TCMO001 Trudy C. Matthews 23-Aug-1985 
154 ; Put .ASCID directives into a read/write psect. 

155 ; 

156 ;-- 
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158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 


-SBTTL DECLARATIONS 


INCLUDE FILES: 


me Se Ye 


SACBDEF 
SACCDEF 
SACMDEF 
SARBDEF 
SCCBDEF 
SCPBDEF 
S$CPUDEF 
SCWP SDEF 
SDEVDEF 
SDYNDEF 
SIODEF 
SIPLDEF 
SJIBDEF 
SMSGDEF 
SMTLDEF 
SOPDEF 
SPCBDEF 
SPFNDEF 
SPHDDEF 
SPRDEF 
SPRIDEF 
SPTEDEF 
SPSLDEF 
SRSNDEF 
$SECDEF 
$SSDEF 
SSYSVECTORDEF 
SUCBDEF 
SVCBDEF 


MACROS: 


~e Ne Ne 


EQUATED SYMBOLS: 


me Ye Ne 


ACB_L CPULIM = ACBSL_KAST + 4 
ACB_L CPUTIM = ACB_L CPULIM + 4 
JOB STRING LEN = 16 


OWN STORAGE: 


Re Ve Ve 


DECLARE_PSECT 


LNM_SYSTEM_ DIRECTORY DESC: 


-ASCID /LNMS$SYSTEM DIRECTORY/ 


EXECSPAGED DATA 


we Te Ne Ne Ye Ne Me Me Me Ye Ne Me Ne Ye Ne Ne Se Ye Ne Ye Ne Ye Ye Te Be We Ye Ye Ye 


e 
’ 


DEFINE AST CONTROL BLOCK OFFSETS 


DEFINE 
DEF INE 
DEFINE 
DEF INE 


TERMINATION MESSAGE OFFSETS 
ACCOUNTING MESSAGE OFFSETS 
ACCESS RIGHTS BLOCK 
CHANNEL CONTROL BLOCK 


CAPABILITIES 


DEF INE 
DEF INE 
DEFINE 


PER-CPU DATA BLOCK OFFSETS 
CLUSTER-WIDE SERVICE DEFINITIONS 
DEVICE CHARACTERISTIC DEFINITIONS 


Dynamic structure definitions 


DEFINE 
DEFINE 
DEFINE 
DEF INE 
DEF INE 
Define 
DEFINE 
DEFINE 
DEF INE 
DEF INE 
DEF INE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEF INE 
DEFINE 


I/O FUNCTION CODES 

INTERRUPT PRIORITY LEVELS 

JOB INFORMATION BLOCK OFFSETS 
SYSTEM MESSAGE TYPE CODES 
MOUNT LIST ENTRY OFFSETS 
opcode symbolic constants 

PCB OFFSETS 

PFN CONSTANTS 

PROCESS HEADER OFFSETS 
PROCESSOR REGISTER NAMES 
PRIORITY INCREMENTS 

PTE FIELDS 

PSL FIELDS AND VALUES 
RESOURCE NUMBERS 

SECTION TABLE ENTRY 

SYSTEM SERVICE STATUS CODES 
SYSTEM SERVICE VECTOR OFFSETS 
UNIT CONTROL BLOCK OFFSETS 
VOLUME CONTROL BLOCK OFFSETS 


Descriptor of System Directory Table 
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213 ; 

214 JOB_FAO: # $FAO control string descriptor for 
215 -ASCID /LNMSJOB_!XL/ ? construction of job-wide table name 
216 

217 DECLARE_PSECT EXECSNONPAGED_CODE 
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219 -SBTTL EXESDELPRC - DELETE PROCESS SYSTEM SERVICE 

220 ;++ 

221 ; FUNCTIONAL DESCRIPTION: 

222 ; EXESDELPRC IMPLEMENTS THE DELETE PROCESS SYSTEM SERVICE WHICH CAUSES 
223 ; A PROCESS TO BE DELETED FROM THE SYSTEM. IF THE SPECIFIED 

224 ; PROCESS EXISTS, A KERNEL AST IS QUEUED FOR IT TO 

225 ; PERFORM THE DELETION PROCESSING IN THE CONTEXT OF THE TARGET 

226 ; PROCESS. A PROCESS THEREFORE DELETES ITSELF. 

227 ; 

228 ; CALLING SEQUENCE: 

229 ; CALLG ARGLIST, G*EXESDELPRC 

230 ; 

231 ; INPUT PARAMETERS: 

232 ; PIDADR(AP) - ADDRESS OF THE PROCESS IDENTIFICATION OF THE 

233 ; PROCESS TO BE DELETED. 

234 ; PRCNAM(AP) ~- ADDRESS OF STRING DESCRIPTOR FOR PROCESS LOGICAL NAME 
235 ; STRING. 

236 ; R4 - PCB ADDRESS OF CURRENT PROCESS 

237 ; 

238 ; IMPLICIT INPUTS: 

239 ; CURRENT PROCESS PCB AND PHD 

240 ; PCB OF TARGET PROCESS 

241 ; 

242 ; OUTPUT PARAMETERS: 

243 ; RO - COMPLETION STATUS CODE 

244 ; @PIDADR(AP) - PROCESS IDENTIFICATION OF DELETED PROCESS 

245 ; 

246 ; IMPLICIT OUTPUTS: 

247 ; NONE 

248 ; 

249 ; COMPLETION CODES: 

250 ; SS$_ NORMAL = SUCCESSFUL COMPLETION 

251 ; SS$_NONEXPR - NONEXISTENT PROCESS 

252 ; SS$ NOPRIV = NO PRIVILEGE, TARGET PROCESS IS NOT A SUBPROCESS 
253 ; “ AND ISSUING PROCESS DOES NOT HAVE PROCESS CONTROL 
254 ; PRIVILEGE FOR GROUP OR WORLD. 

255 ; SS$_INSFMEM - INSUFFICIENT DYNAMIC MEMORY AVAILABLE FOR SERVICE 
256 ; AND RESOURCE WAIT MODE DISABLED. 

257 ; 

258.; SIDE EFFECTS: 

259 ; A KERNEL AST WILL BE ENQUEUED FOR THE PROCESS TO BE 

260 ; DELETED WHICH MAY CAUSE RESCHEDULING TO OCCUR. 

261 ; 

262 ;-- 

263 

264 SYSTEM SERVICE DELPRC, - 

265 <R2,R3,R4,R5,R6,R7>, - 

266 MODE=KERNEL, - 

267 NARG=2 

268 

269 CLRL R5 ; Clear pointer to ACB 

270 MOVL R4,R6 3; Save current process’ PCB address 
‘271 BSBW EXESNAMP ID ; Convert name/PID to PCB address 
272 BLBC RO, 1308S 3; Exit if error 

273 

274 R4 -> PCB of target process 


275 ; R5 = 0O 
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276 ; R6 -> PCB of current process 

277 ; IPL = SYNCH 

278 

279 BBS #PCBSV_NODELET, - 3; See if process can be deleted 
280 PCBSL_STS (R4) ,150$ 

281 

282 ; Allocate an AST control block to send to the process 

283 

284 MOVZBL #ACBS$K_LENGTH, R1 + Get an ACB to send away 

285 JSB G“EXESALONONPAGED 7 Allocate AST control block 

286 BLBC RO, 110$ 7 Return error if none 

287 ASSUME ACBS$B_RMOD EQ ACBSB_TYPE+1 _ 

288 MOVZBW #DYNSC_ACB, - 7 Set type, zero RMOD field 

289 ACBSB_TYPE (R2) 

290 MOVW R1, ACBSW_SIZE (R2) ¢ Set actual size allocated 

291 MOVL R2,R5 3 Set address for SCHSQAST 

292 

293 ; R4 -> PCB of target process 

294 ; RS -> ACB to deliver to target 

295 ; R6 -> PCB of current process 

296 ; IPL = SYNCH 

297 

298 BBSS #PCBSV_DELPEN, ~ 7; BR if target process is already 
299 PCBSL_STS (R4) ,140$ : marked for deletion . 
300 

301 ; The following three instructions are the guts of the S$RESUME system service. 
302 ; That same functionality must be reproduced here while remaining at IPL 
303 ; SYNCH so the system service cannot be used. 

304 

305 ASSUME PCBSV_RESPEN LE 7 

306 

307 1008: BISB #<1@PCBSV_RESPEN>,PCBS$L_STS(R4) ; Set resume pending bit 
308 MOV2ZBL #PRI$_RESAVL,R2 7 Set priority increment class 
309 RPTEVT RESUME ? Report RESUME event to scheduler 
310 

311 MOVAB W*DELETE,ACBSL_AST(R5) ; Set address for delete action 
312 CLRB ACBSB_RMOD (R5) 3; Mark as normal kernel mode AST 
313 MOVL PCBSL_PID(R4) ,ACBS$L_PID(R5) ? Set PID of target 

314 

315 ; R2 has already been loaded with the correct priority increment class 
316 ; and R2 is preserved by G“SCHSRSE (called from within the RPTEVT macro) 
317 ; so that a 

318 ; 

319 ; MOVZBL #PRI$_RESAVL, R2 ; Set priority increment 

320 ; 

321 ; is not necessary here. 

322 

323 JSB G“SCHSQAST 7 And queue ast for process 

324 MOVZWL #SS$_NORMAL, RO 7 Set normal status 

325 

326 1108: UNLOCK LOCKNAME=SCHED, - 3 Unlock SCHED database 

327 PRESERVE=YES ; Don’t preserve RO 

328 7 SCHED was locked by EXESNAMPID 
329 

330 1208: SETIPL #0 ; Drop IPL lower 

331 RET 7 «+e. and return 

332 
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333 ; Errer from EXESNAMPID. Check to see if it is a remote call. If not, 
;? 


334 lower IPL and return with the error in RO. 

335 

336 1308: CMPW #SS$ REMOTE PROC, RO ; Is it a call to a remote process? 
337 BNEQ 120$ , 3; Not remote, continue with error 
338 ; 

339 ASSUME DYNS$C_CWPS DELPRC EQ CWPSSRVSK_DELPRC 

340 MOVZBL #DYNSC_CWPS DELPRC,R3 3; Load subtype code for CWPS 

341 BRW CWP S$SPCNTRL * _? Branch to the cluster code 

342 : het ent 

343 ; The target process is already marked for deletion. 

344 ; ~ 

345 ; If the target process is not the current process, the system service 

346 ; simply returns a success code to the caller after deallocating the ACB. 
347 ; Note that SS$ NORMAL was loaded into RO by the success path of EXESNAMPID. 
348 ; 

349 ; If, however, the target process is the current process, and exec mode 

350 ; rundown is active, allow deletion to continue. This is done to guarantee 
351 ; that a process that issues a S$EXIT or S$DELPRC call during exec mode rundown 
352 ; processing will still be deleted. 

353 ; 

354 ; Note that the ERDACT bit remains set in the PCB status longword. This prevents 
355 ; another inititation of exec mode rundown processing. 

356 

357 1408: CMPL R4,R6 7; Current process being deleted ? 
358 BNEQ 1608S 3; No, deallocate ACB 

359 BBC #PCBS$V_ERDACT, - +; BR if exec mode rundown not active 
360 PCBSL_STS(R4) ,160$ 

361 BRB 1008S 3; Otherwise, continue with deletion 
362 


363 ; The following error paths must deallocate the unused ACB before returning. 
364 ; 

365 1508: MOVZWL #SS$_NODELETE, RO 
366 1608: PUSHL RO , 


Process cannot be deleted 
Save status across next two calls 


se 8 Ne 


367 ' UNLOCK LOCKNAME=SCHED,- Unlock SCHED database 

368 NEWIPL=#IPL$ ASTDEL,- ; Drop IPL, but not below ASTDEL 

369 PRESERVE=NO 7 SCHED was locked by EXESNAMPID 
370 

371 MOVL R5,RO_ + Get address of ACB 

372 BEQL 170$ 7 Not yet allocated, don’t delete 
373 JSB § G*EXESDEANONPAGED ? Deallocate packet back to pool 

374 1708: POPL RO 7 Restore status 

375 BRB 1208S 3 Join common exit 

376 
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378 ; The rest of the code in this module can exist in a pageable part of the exec 


379 

380 DECLARE PSECT EXECSPAGED_ CODE 

381 -SBTTL DELETE - PERFORM DELETE ACTIONS IN CONTEXT OF PROCESS 

382 ;++ 

383 ; FUNCTIONAL DESCRIPTION: DELETE EXECUTES AS THE RESULT OF A KERNEL 

384 ; AST INITIATED BY THE DELETE PROCESS SYSTEM SERVICE. IT PERFORMS 
385 ; THE ACTIONS NECESSARY TO DELETE A PROCESS AND RETURN ITS RESOURCES. 
386 ; TERMINATION MESSAGES ARE SENT TO THE TERMINATION MAILBOX UNIT 

387 ; SPECIFIED WHEN THE PROCESS WAS CREATED AND TO THE SYMBIONT 

388 ; MANAGER IF ACCOUNTING IS NOT DISABLED FOR THIS PROCESS. 

389 ; 

390 ; CALLING SEQUENCE: 

391 ; (SAME EFFECT AS) DCLAST ASTADR=DELETE MODE=KERNEL 

392 ; 

393 ; INPUT PARAMETERS: 

394 ; NONE 

395 ; 

396 ; OUTPUT PARAMETERS: 

397 ; NONE 

398 ; 

399 ; IMPLICIT INPUTS: 7 

400 ; PCB OF CURRENT PROCESS (LOCATED VIA CTLS$GL_PCB) 

401 ; PHD OF CURRENT PROCESS 

402 ; 

403 ; IMPLICIT OUTPUTS: 

404 ; NONE 

405 ; 

406 ; SIDE EFFECTS: 

407 ; NONE 

408 ;-- 

409 

410 ; Note: No registers need to be saved, nor does the exec stack need to be 
411 ; cleaned, since control will never return to the interrupted thread 
412 ; of execution. 

413 

414 EXEC RUNDOWN AST: 7 Call exec mode rundown handlers 
415 WORD 

416 MOVL G*CTLS$GL_PCB, R4 7; Get PCB address 

417 CALLS #0,G*SYSSCLRAST ? Return to exec mode, non-AST level 
418 ADDL2 S*#<EXES$C_CMSTKSZ+<6*4>>,SP ; Cleanup AST delivery stack 
419 MOVL #PSL$C_EXEC,R7 3; Exec mode rundown 

420 PUSHL AP 7; Save current AP 

421 PUSHL #PSL$C_EXEC ; Another exec mode access parameter 
422 PUSHL #1 

423 MOVL SP, AP 

424 MOVL G*CTLS$GL_USRUNDWN_EXEC,RS5 ; Fetch address of (first) per-process han 
425 BEQL 100$ 7 BR if none 

426 JSB (R5) ¢ Call thru the vector (s) 

427 1008: MOVL G“EXESGL_USRUNDWN_EXEC,R5 ; Fetch address of (first) system-wide han 
428 BEQL 110$ 7 BR if none 

429 JSB (R5) ; Call thru the vector (s) 

430 1108: ADDL #8, SP 3 Remove stack parameters 

431 MOVL (SP)+,AP 3 and restore AP 

432 $CMKRNL_S ROUTIN=B*DELETE_ CONTINUE 

433 1208: BRB 120$ 

434 ; BUG CHECK xxxx, FATAL : Should not return here !!! 
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435 

436 DELETE CONTINUE: ; Proceed with process deletion 

437 - WORD ; (R4 contains PCB from CHMK dispatcher) 
438 ADDL2 S* #<EXESC_ CMSTKSZ+EXESC | CMSTKSZ+<2*4>>, SP; Cleanup kernel stack 
439 BRB DELETE 2 ; Join main-line delete process code 
440 ; Note: PCBS$V_ERDACT remains set to 

441 : insure that exec mode rundown 
442 ; will not be re-initiated because 
443 ; of an exception or bugcheck, or 
444 ; due to calls to SEXIT or S$DELPRC 
445 EXEC _ RUNDOWN : 

446 SETIPL #IPL$_ASTDEL ; Protect against kernel mode ASTs 

447 MOVQ R2,-(SP) ; Save working registers 

448 MOVL #ACBSC_LENGTH, R1 7; Allocate ACB 

449 JSB  —--« G* EXESALLOCBUF ; Should return only upon success 

450 BLBC — RO, 10$ 

451 ; Fill in ACB 

452 MOVB #DYNSC_ACB,ACBSB TYPE(R2); Dynamic structure type 

453 MOVB #PSLSC | EXEC, ACBSB __RMOD (R2) ; Bxec mode, QUOTA/NODELETE bits clear 
454 MOVL PCBSL | PID(R4), ACBSL _ PID(R2); PID of target process 

455 MOVAB W*EXEC __RUNDOWN_AST, ACBSL _ AST (R2) ; Address of AST routine 

456 ASSUME ACB$L_KAST EQ ‘ACB$L_ASTPRM+4 

457 CLRQ ACBSL_ASTPRM(R2) ; No AST param or special KAST routine 
458 MOVL R2,R5 ; ACB address must be R5 

459 MOVZBL #PRIS$_RESAVL,R2 ; Priority increment class 

460 JSB - G*SCHSQAST . 7 Queue the AST 

461 MOVQ (SP)+,R2 ; Restore working registers 

462 SETIPL #0 + Drop IPL and 

463 RET ; dismiss process deletion AST (for now) 
464 

465 ;108: BUG CHECK xxxx, FATAL ; ALLOCBUF returned with failure !!! 

466 105: MOVQ (SP)+,R2 3; ALLOCBUF returned with failure !!! 

467 SETIPL #0 

468 BRB DELETE 1 

469 fe 

470 ALIGN LONG 

471 DELETE: ; PERFORM DELETE OPERATIONS 

472 .WORD “M<R4, R5> ; ENTRY MASK 

473 MOVL G“CTLSGL_ PCB, R4 ; GET PCB ADDRESS 

474 BBCC #PCBSV_SSRWAIT, PCBSL_STS(R4),100$ ; ENABLE RESOURCE WAIT 


475 1008S: MOVL G“CTLSGL_USRUNDWN_EXEC,R5; Per-process exec mode rundown handlers de 


476 BEQL 110$ ; BR if no 

477 CMPB #OP$_RSB, (R5) ; If JSB target a 'RSB’ instruction ? 
478 BNEQ 120$ ; BR if no 

479 1108: MOVL G*EXE$GL_USRUNDWN_EXEC,R5; System-wide exec mode rundown handlers de 
480 BEQL 130$ ; BR if no 

481 CMPB #OP$_RSB, (R5) ; If JSB target a 'RSB’ instruction ? 
482 BEQL 130$ ; BR if yes 

483 

484 1208S: BBCS #PCBSV_ERDACT, - ; BR if exec mode rundown is not active 
485 PCBSL | STS(R4), EXEC RUNDOWN 

486 

487 1308S: 

488 DELETE 1: 

489 BICB2 #1, PCBSB_ASTACT(R4) ; CLEAR KERNEL AST ACTIVE 

490 JSB G*SCHSNEWLVL 7; COMPUTE NEW AST LEVEL 


491 DELETE 2: 
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492 
493 
494 
495 
496 
497 
498 
499 
500 
. §01 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 


BSBW DELETE WAIT 


. SAVE_PSECT 
DECLARE_PSECT 


DELETE WAIT: 


° 
, 


WAIT FOR DPC 


EXECSNONPAGED CODE 


LOCK SCHED DATABASE 

OK to destroy RO 

IS DPC NON-ZERO? 

EQL THEN DELETION IS ALLOWED 
KERNEL MODE, IPL O PSL FOR RWAIT 
NOTE AST RESOURCE 

WAIT FOR AST 

MAKE THE TEST AGAIN 

UNLOCK SCHED DATABASE 

DROP IPL 

OK to destroy RO 


The user service is invoked in KERNEL mode with a JSB and must 


The above parameters are the same as in the call from SYSRUNDWN. 


KERNEL MODE RUNDOWN 


ANOTHER KERNEL MODE ACCESS PARAMETER 


GET PER-PROCESS USER RUNDOWN VECTOR 
NOT PRESENT, SKIP ON 

CALL THRU THE VECTOR (S) 

GET SYSTEM-WIDE USER RUNDOWN VECTOR 
NOT PRESENT, SKIP ON. 

CALL THRU THE VECTOR (S) 

CLEAN UP 


RESET THE PRIVILEGED LIBRARY VECTORS 


LOCK LOCKNAME=SCHED, - : 
PRESERVE=NO ; 
TSTB PCBSB_DPC (R4) ? 
BEQL 100$ ; 
PUSHL #0 ; 
MOVL #RSN$_ASTWAIT, RO ; 
JSB G*SCHSRWAIT 2 
BRB DELETE WAIT ? 
1008: UNLOCK LOCKNAME=SCHED, - ; 
NEWIPL=£0, - : 
PRESERVE=NO 3 
RSB 
-RESTORE PSECT 
f ew re wn ee ee een en en nn nn oe ee ne ee en ee eee oe 
‘o 
2 INVOKE THE USER RUNDOWN SERVICE (S) 
? exit with a RSB. 
? R4 - Pointer to current PCB 
; R7 - Acess mode of call to rundown routine (always 0) 
; ACMODE (AP) - always 0 
? 
? 
CLRL R7 ; 
PUSHL AP 
CLRL ~ (SP) ; 
PUSHL #1 
MOVL SP, AP 
MOVL G“CTLSGL_USRUNDWN, R5 . 
BEQL 110$ ; 
JSB (R5) ; 
1108: MOVL G*EXESGL_USRUNDWN, R5 ; 
BEQL 120$ ; 
JSB (R5) ; 
1208: ADDL #8,SP ; 
MOVL (SP)+,AP 
JSB G*EXESRESETVEC1 ; 
; RMS RUNDOWN 
MOVAB -136(SP),SP : 


ALLOCATE STRING BUFFER 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SYSDELPRC - DELETE PROCESS SYSTEM SERVICE 10-MAY-1989 16:40:14 VAX MACRO V5.0-6 Page 12 
X-33 DELETE - PERFORM DELETE ACTIONS IN CONTE 20-DEC-1988 12:53:50 [SYS.SRC]SYSDELPRC.MAR;1 


549 1309:  MOVEBL #128, (SP) SET COUNT FOR STRING BUFFER 


v 
550 MOVAL 8(SP),4(SP) 7 FORM ADDRESS PART OF DESCRIPTOR 
§51 PUSHL #2 ? LAST CHANCE RMS CLEANUP 
552 PUSHAB 4(SP) ? SET ADDRESS OF STRING BUFFER 
553 CALLS #2, G*SYSSRMSRUNDWN + DEFAULT CLOSE OF OPEN RMS FILES 
554 BLBC RO, 130$ 7 REPEAT IF MORE TO CLOSE 
555 
B86 fp ces r ce ee ce meee en mete ce mee mn eee Re wm ee en am a me ee am ae mee me 
557 ; 
558 ; FIND AND DELETE ALL SUB~PROCESSES 
559 ; 
a aa a da la aa a aha a tar acre od 
561 -ENABLE LOCAL BLOCK 
562 SUBDELETE : # DELETE SUB-PROCESSES 
563 TSTW PCBSW_PRCCNT (R4) 7 ANY SUB-PROCESSES? 
564 BEQL 50$ 7 NO, CONTINUE 
565 MOVZWL G“SCHS$GL_MAXPIX, R6 ; INITIALIZE INDEX FOR PROCESS SCAN 
566 108: MOVL @W*SCHSGL_PCBVEC(R6],R3 ; GET A PCB ADDRESS 
567 CMPL PCBSL_PID(R4) , PCBSL_OWNER (R3) 7 DO WE OWN IT 
568 BNEQ 20$ # NO, TRY ANOTHER 
569 SDELPRC_S PCBSL_EPID(R3) ; MARK IT FOR DELETE USING THE EXTENDED PID 
570 208: SOBGTR R6,10$ 3; CONTINUE 
571 BSBW WAIT_FOR_SUBPRC ; Wait for sub-processes 
572 
573 -SAVE_PSECT 
574 DECLARE PSECT EXECSNONPAGED_CODE | 
575 
576 WAIT FOR SUBPRC: 
577 SAVIPL R6 7 SAVE IPL 
578 30$: MOVPSL -(SP) 7 SAVE PSL 
579 LOCK LOCKNAME=SCHED, - ; LOCK SCHED DATABASE 
580 PRESERVE=NO ? DON’T PRESERVE RO 
581 TSTwW PCBSW_PRCCNT (R4) 3; CHECK COUNT OF SUB-PROCESSES STILL RUNNING 
582 BEQL 40$ 7 DONE 
583 MOVZWL #RSNS$_ASTWAIT, RO 7 SET RESOURCE NUMBER 
584 JSB G*SCHSRWAIT 7; AND WAIT FOR AN AST 
585 BRB 30$ 3 CHECK AGAIN WHEN AWAKENED 
586 40S: UNLOCK LOCKNAME=SCHED, - 7; UNLOCK SCHED DATABASE 
587 NEWIPL=R6, - 7 RESTORE PREVIOUS IPL 
588 PRESERVE=NO 7 DON’T PRESERVE RO 
589 TSTL (SP) + 3: Clean off stack 
590 RSB 
591 
§92 -RESTORE PSECT 
593 508: 7 DONE, ALL SUB-PROCESSES DELETED 
594 
595 -DISABLE LOCAL BLOCK 
596 
SOT fe rr re re en rt tt en nn er rt er ee er errr ra sensa 
598 ; 
599 ; RUNDOWN PROCESS ACTIVITY 
600 ; 
COL fmm rn rn rr rr ree errr sscec= 
602 
603 RUNDWN: 7; RUNDOWN PROCESS ACTIVITY 
604 PUSHL #0 ; SET MODE FOR RUNDOWN 
605 CALLS #1, G“*SYSSRINDWN 7 RUNDOWN AT KERNEL MODE 
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606 MOVL G“CTLS$GL_PHD, R5 ; GET PROCESS HEADER ADDRESS 

607 _ ADDL3 PHDSL_PSTBASOFF (R5),R5,R2 ; GET ADDRESS OF SECTION TABLE 

608 CLRL - (SP) 3; ASSUME NO PAGES WILL BE DELETED 

609 SUBL #16,SP ; SAVE ROOM FOR INRANGE AND RETRANGE 
610 MOVL SP,R3 ; REMEMBER SCRATCH AREA ADDRESS 

611 CVTWL PHDSW_PSTLAST(R5) , R6 ; GET INDEX TO LAST SEC TBL ENTRY USED 
612 BRB 140S 3; JOIN COMMON LOOP 

613 1005S: TSTL SECSL_REFCNT (R2) [R6] 3 ANY PAGES MAPPED? 

614 BLSS 130$ ; BR IF NOTHING MAPPED TO THIS SECTION 
615 MOVAL (R2) (R6),R7 3 ADDRESS OF SECTION TABLE ENTRY 

616 BBCC #SECSV_INPROG, SECSW_FLAGS(R7),110$ ; BR if section creation not in p 
617 MOVL R6,R1 ; R1l = PSTX 

618 PUSHL R2 ; Preserve volatile register 

619 JSB G*MMGSDECSECREFL 3; Remove bias from reference count 

620 POPL R2 3 Restore PST base address 

621 TSTL SECSL_REFCNT (R7) # Did ref count just go to zero ? 

622 BNEQ 110$ ?: BR if no 

623 MOVL #1, 16 (R3) 7 Indicate second rundown required (to deass 
624 ; 

625 ; DO A SDELTVA FOR THIS SECTION. 

626 ; 

627 1108: EXTZV #SECSV_ VPX, #SECSS | VPX, SECSL _ VPXPFC (R7) , 4 (R3) 3; GET START VPN 
628 CMP ZV #PHDSV_ POLR, #PHDSS | POLR, PHDSL | POLRASTL (R5),4(R3) ; IS VA IN PO? 
629 BGTRU 120$ ; BR IF IT IS IN PO SPACE 

630 ROTL #7,G*SGNS$GL_PTPAGCNT,RO ; GET LONGWD OFFSET FROM BEGIN OF PAGTBL 
631 SUBL RO, 4 (R3) 3; GET VPN IN Pl SPACE 

632 EXTZV #SECSV_VPX, #SECS$S_VPX, 4(R3),4(R3) ; MASK OFF SIGN BITS 

633 1205S: ASHL #9,4(R3),4(R3) ; GET VA OF FIRST PAGE MAPPED 

634 ASHL #9,SECS$L_PAGCNT(R7),(R3) ; GET # OF BYTES IN SECTION 

635 ADDL2 4(R3), (R3) GET VA OF LAST PAGE MAPPED 

636 DECL (R3) GET ADR OF LAST BYTE MAPPED 

637 SDELTVA_S (R3) ,8 (R3) DELETE PAGES FOR THIS SECTION 

638 CMPL #-1,8(R3) WERE ANY PAGES DELETED? 

639 BEQL 130$ BR IF NONE DELETED 

640 MOVL #1,16(R3) INDICATE SECOND RUNDWN REQUIRED 


641 1308: ADDL2 #SECS$C_LENGTH@-2, R6 
642 1408: BLSS 100$ 


GET OFFSET TO NEXT SECTION TABLE ENTRY 
GO CHECK NEXT SECTION 


™e Te Ve Ne Re Ve Ye Ve Ve Ve Veo 


643 ADDL #16,SP CLEAN INRANGE AND RETRANGE OFF STACK 
644 TSTL (SP) + WERE ANY PAGES DELETED? 

645 BEQL 180$ NO, THEN DON’T BOTHER WITH 2ND RUNDWN 
646 SETIPL #IPLS_ASTDEL 

647 JSB G*MMGSDALCSTXSCN + Deallocate any unreferenced PSTs 

648 SETIPL #0 

649 PUSHL #0 ; SET MODE FOR RUNDOWN 

650 CALLS #1,G*SYSSRUNDWN 3 RUNDOWN AT KERNEL MODE 

651 

652 RIA III II IOI III IIT ITT TIAA IOI TAIT AT IIIA AAI IAAI IAA 

653 ; 

654 ; SCAN THE CHANNEL TABLE AND LOOK FOR ASSIGNED 

655 ; CHANNELS. THERE SHOULD BE NONE. 

656 ; 

657 PIII IIR RII RII IK KIKI HIKE IK EE KKK AE HERREEREKERERER KERR HR KHER ERK 

658 

659 1508S: MOVZWL G*CTLSGW_CHINDX, RS ; GET MAXIMUM INDEX + 16 

660 BEQL 180$ 7 NO CHANNEL TABLE 

661 MNEGL R5,R5 3 CONVERT TO NEGATIVE OFFSET 

662 ADDL3 #CCBS$B_AMOD, - 
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663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
- 676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
106 
107 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 


G“CTLSGL_CCBBASE, R3 3 COMPUTE ADDRESS OF HIGHEST CHANNEL 
1608: TSTB (R3) ([R5] , 3 IS THIS CHANNEL STILL ASSIGNED? 
BLEQ 170$ ? BRANCH IF NOT. 
3 A NEGATIVE ACCESS MODE IN THE CCB IS USED TO RESERVE THE CHANNEL 
7 FOR USE BY THE F11BXQP TO PERFORM LOGICAL I/O ON BEHALF OF VIRTUAL 
3 1/0 FUNCTIONS THAT IT PROCESSES (THE XQP MODIFIES THE CCBS$L_UCB AND 
? CCBS$B_AMOD FIELDS PRIOR TO ACTUALLY USING IT). THE CHANNEL DOES NOT 
3: HAVE TO BE DEASSIGNED BECAUSE NO DEVICE REFERENCE COUNTS REFLECT ITS 
3 EXISTENCE. 
BUG CHECK FILCNTNONZ, FATAL 3 IT REALLY SHOULD HAVE WORKED 
1708: ADDL2 #CCB$C_LENGTH, R5 3; NEXT CHANNEL 
BLSS 160$ 3; LOOP THRU 
1808: 
OIC IIISIII I UIOIIUIOI IU OIOII IOI TTT TI TAA TAA AIAN SAS ISA AAA 
; END OF BUG TRAP 
DO III III III IO OU IOI IIIT AT IIT II IAA ASIANA AN 
Hi DISMOUNT ALL MOUNTED VOLUMES 
MOVL PCBSL_JIB(R4) ,R3 3; GET JIB ADDRESS 
BNEQ 190S$ ; IF NEQ, GOT A JIB 
BRW 270$ 3 ELSE, CONTINUE 
1908: TSTL PCBSL_OWNER (R4) ? IS THIS A SUBPROCESS ? 
BNEQ 2008 3; IF NEQ YES 
; MAIN PROCESS - DISMOUNT VOLUME 
JSB G*SCHS IOLOCKW 3 LOCK I/O DATABASE 
REMQUE @JIBSL_MTLFL (R3) , R6 ; GET A VOLUME TO BE DISMOUNTED 
BVS 260$ 3; NONE, FINISHED WITH DISMOUNT LIST 
JSB G*“SCHS IOUNLOCK ; UNLOCK I/O DATABASE 
SETIPL #0 3 DROP IPL 
CLRL R3 3 UNLOAD UPON DISMOUNT 
JSB G*IOCSDISMOUNT : DISMOUNT IT 
BRW 150$ 3 AND TRY FOR ANOTHER 
? SUBPROCESS - MAKE JOB MASTER THE DEVICE OWNER IF DEVICE IS STILL 
; ALLOCATED TO THIS SUBPROCESS. SET THE DEADMO BIT SUCH 
: THAT THE DEVICE WILL BE DEALLOCATED ON DISMOUNT (SINCE 
; THE ORIGINAL ALLOCATOR HAS BEEN DELETED). 
2008: JSB G*SCHS$ IOLOCKW 3 LOCK I/O DATABASE 
MOVL JIBSL_MTLFL (R3) , R6 3 GET ADDRESS OF FIRST MTL 
2108: CMPL R3, R6 3 END OF MTL LIST ? 
BEQL 260$ 3; IF EQL YES 
MOVL MTLSL_UCB(R6) ,R5 3; GET UCB ADDRESS 
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720 CMPL UCBSL_PID(R5),PCBSL_PID(R4) ; DEVICE ALLOCATED TO THIS SUBPROCESS? 
721 BNEQ 220$ 3; IF NE NO, SKIP OWNERSHIP TRANSFER 

722 MOVL JIBSL_MPID(R3),UCB$L_PID(R5) ; MAKE JOB MASTER THE DEVICE OWNER 
723 BISW #UCBSM | DEADMO, UCBSW | STS (RS) 7 DEALLOCATE DEVICE ON DISMOUNT 
724 

725 2208: BBS #DEVSV_SQD, UCB$L_DEVCHAR (R5) , - 

726 240$ ? SKIP IF SEQUENTIAL DEVICE 

727 BBC #DEVS$V_MSCP, UCB$L_DEVCHAR2 (R5) , - 

728 240$ + SKIP IF NON-MSCP 

729 TSTW UCBSW_MSCPUNIT (R5) ? IS THIS A SHADOW SET VIRTUAL UNIT ? 
730 BGEQ 240$ 7 IF GEQ NO, SKIP SHADOW MEMBER PROCESSING 
731 

732 ASSUME <VCBSB_STATUS-VCBSL_MEMOFL> EQ <VCBSB_SHAD_STS-VCB$L_MEMHDFL> 
733 ASSUME VCBS$V_SHADMAST EQ 0 

734 

735 MOVL UCBSL_VCB(R5) , RO 3 GET VIRTUAL UNIT VCB ADDRESS 

736 MOVAB <VCBSL_MEMHDFL - 7 INITIALIZE MEMBERS QUEUE 

737 ~VCBSL_MEMOFL> (RO), RO ; ADDRESS 

738 2308: MOVL VCBSL_MEMOFL (RO) , RO 3; GET NEXT MEMBER VCB 

7139 BLBS VCBSB_STATUS (RO) , 240$ ; IF LBS, END OF MEMBER VCB LIST 

740 MOVL VCBSL_| MEM _UCB (RO) ,RS ; GET MEMBER UCB ADDRESS 

741 CMPL UCBSL | _ PID(RS), PCBSL_PID(R4) ; DEVICE ALLOCATED TO THIS SUBPROCESS? 
742 BNEQ 230$ 7; IF NE NO, SKIP OWNERSHIP TRANSFER 

743 MOVL JIBSL_MPID(R3),UCB$L_PID(RS) ; MAKE JOB MASTER THE DEVICE OWNER 
744 BISW #0CBSM | DEADMO, UCBSW | STS (R5) # DEALLOCATE DEVICE ON DISMOUNT 
745 BRB 230$ 3 GO PROCESS NEXT SHADOW SET MEMBER 

746 

747 2408: MOVL MTLSL_MTLFL (R6) ,R6 7 GET NEXT MTL ENTRY 

748 BRW 210$ 7 AND TRY FOR ANOTHER 

749 

750 2508: BUG CHECK INCONSTATE 7 DIOCNT should not be > DIOLM 

751 BRB 280$ 7 Continue after writing error log 

752 

753 2608: JSB G*SCHS$IOUNLOCK ; UNLOCK I/O DATABASE 

754 SETIPL #0 ? DROP IPL 

755 

756 2708S: $DALLOC_S ACMODE=#0 7 DEALLOCATE ALL 

757 

758 CMPW PCBSW_DIOCNT(R4),PCB$W_DIOLM(R4) ; WAIT FOR DIRECT I/O COMPLETION 
759 BLSS 270$ 7 IF < OK 

760 BGTR 250$ ; IF > CRASH 

761 280S: CMPW PCBSW_BIOCNT(R4),PCBSW_BIOLM(R4) ; AND BUFFERED I/O 

762 BNEQ 280$ ; 

763 

764 ; 

765 ; 

766 ; DECREMENT INTERACTIVE AND BATCH JOB COUNT WHEN APPROPRIATE 

767 ; 

168 fr tr nn rr rn re et tre ee nn ee Seen eee e me eee se mw en ame 

769 

770 TSTL PCBSL_OWNER (R4) 

771 BNEQ RELQUOTA 7 WE DON’T DO IT FOR A SUBPROCESS 

772 BBC #PCBSV_INTER, PCBSL_STS(R4),290$ ; NOT INTERACTIVE 

773 DECW G*SYS$GW_ IJOBCNT ; ONE LESS INTERACTIVE JOB 

774 BRB DELETE_JT 

775 2908: BBC #PCBSV_BATCH, - 7 NOT BATCH JOB 

776 PCBSL_STS (R4) ,DELETE_JT 
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777  DECW G*SYS$GW_BJOBCNT ; ONE LESS BATCH JOB 

778 . 

TT9 fmm men nnn en rn nnn rn nn nn te re nr tn ee en ene ee nn nee 

780 ; 

781 ; DELETE THE JOB-WIDE LOGICAL NAME TABLE IF THE PROCESS 

782 ; IS NOT A SUB-PROCESS 

783 ; . 

VY tn a en nn nn en nn ee ee oe 

785 

786 DELETE JT: _ 3 DELETE THE JOB-WIDE LOGICAL NAME TABLE 
787 MOVAB ~-JOB STRING LEN(SP),SP ; MAKE ROOM ON STACK FOR TABLE NAME 
788 PUSHAB (SP) 3; CONSTRUCT A DESCRIPTOR OF THE BUFFER 
789 PUSHL #JOB_STRING | LEN ; WHICH IS TO CONTAIN THE TABLE NAME 
790 MOVL SP, R3 ; SAVE THE ADDRESS OF THE DESCRIPTOR 
791 

792 “$FAO_S - ; CONSTRUCT THE JOB-WIDE TABLE NAME 
793 CTRSTR = JOB FAO, - 

794 OUTBUF = (R3), - 

795 Pl = PCBSL_JIB(R4) 

796 . 
797 SDELLNM_S - 3; DELETE THE JOB-WIDE LOGICAL NAME TABLE 
798 LOGNAM = (R3), - | . 

799 TABNAM = LNM SYSTEM DIRECTORY _DESC 

800 ' ADDL2 #JOB_STRING LEN+8, SP ; RESTORE THE STACK 

801 ey 

B02 frm tn nt nnn nnn ne eee eee 

803 ; : 

804 ; SEND REMAINING QUOTAS TO OWNER IF SUB-PROCESS 

805 ; ; 

806 soeene----=- sere wenn nnn --- one no nn nnn eo oo ee 

807 RELQUOTA: ; RELEASE QUOTAS 

608 CLRB PCBST_LNAME (R4) 3; REMOVE PROCESS NAME 

809 MOVL PCBSL_OWNER (R4) , R6 ; GET PID OF OWNER 

810 BEQOL MESSAGES ; IF EQL, NOT A SUBPROCESS 

811 PUSHL R4 ; SAVE PCB ADDRESS 

812 MOVZWL R6,R6 ; EXTRACT PIX FROM OWNER PID 

813 MOVL @W*SCHSGL_PCBVEC[R6],R4 ; AND GET PCB 

814 JSB G*EXESALLOCIRP 3; ALLOCATE AST CONTROL BLOCK 

815 BLBC RO, 20$ ; SKIP QUOTA -RETURN IF ERROR 

816 MOVL R2,R5 ; SET ADDRESS OF QUOTA AST BLOCK 

817 MOVAB W*“RETQUOTA,ACBSL_KAST (RS) ; SET AST ADDRESS FOR SPECIAL 
818 ; KERNEL AST TO RETURN QUOTAS 

819 MOVB #<1@ACBS$V_KAST>,ACBS$B_RMOD(R5) ; FLAG AS SPECIAL KERNEL AST 
820 MOVL PCBSL_PID(R4),ACB$L_PID(R5) ; SET TARGET PID FOR AST 

821 MOVL (SP), R2 ; GET PCB ADDRESS FOR PROCESS BEING DELETED 
822 MOVL G*CTLS$GL_PHD, R1 3; GET PROCESS HEADER ADDRESS 

823 SUBL3 PHDS$L_EXTRACPU(R1),PHDS$L_CPULIM(R1),ACB_L CPULIM(RS) 

824 ; SAVE CPULIMIT LESS BONUS 

825 MOVL PEDSL , CPUTIM(R1),ACB_L CPUTIM(RS) 

826 3; AND ACCUMULATED CPU TIME 

827 MOVZWL #PRIS$_RESAVL,R2 ; SET PRIORITY INCREMENT CLASS 

828 JSB G*SCHSQAST ; QUEUE AST FOR CREATOR 

829 208: POPR #°M<R4> ; RESTORE PCB ADDRESS 

830 _ SETIPL #0 ; DROP IPL TO ISSUE SYSTEM SERVICE REQUESTS 
831 

B32 prem rt nn en nn nn ee nnn nnn 

833 ; 
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834 ; TERMINATION MESSAGES 

635 ; 

SIG. fess c Heer eee eS ire oe ae SSeS Sea Se Ss Se Sess so ankSSeee SHS SS sssS= 
837 MESSAGES: ; SEND TERMINATION MESSAGES 

838 TSTW PCBSW_TMBU(R4) ; TERMINATION MAILBOX SPECIFIED ? 
839 BEQL 10$ ; IF EQL, NO 

840 BSBW TERMMSG ; SEND MESSAGE TO TERMINATION MAILBOX 
841 108: 7 SEND MESSAGE TO JOB CONTROLLER 
842 BBC #PCBSV_BATCH, PCBSL STS (RA), 20$ ; IF BC, NOT A BATCH JOB 
843 BBCC #PCBSV__ SSRWAIT, PCBSL , STS(R4),20$; ENABLE RESOURCE WAIT MODE 
844 208: 

645 CLRL R5 ; NOT A SPECIAL KERNEL AST ROUTINE 
846 JSB G“EXESPRCDELMSG * SEND PROCESS DELETE MESSAGE 

847 

O46: 7 SSeS SS StS see Sa Se Se eS SS Se Sr hens S Se sr Sees ses ee aaaeeeea = 
849 ; 

850 ; DESTROY PROCESS 

851 ; 

Oe. pare = See a ara eee Hr ee Se eae ees a ene ae re Ter eS SSeS =e 
853 

854 

855 DESTROY: F 

856 SETIPL #IPL$_ASTDEL 7 NO MORE ASTS AFTER THIS POINT 
857 SUBL #16,SP 7 4 LONGWORDS OF STORAGE 

858 MOVL SP, R2 3; SAVE BASE 

859 MOVL #<<1@31>-1>, (R2) 3; SET STARTVA 

860 MOVL #<1@30>, 4 (R2) 3; END AT VECTOR PAGE 

861 ; DELTVA GOES IN REVERSE ORDER 
862 ; WE CAN’T USE THE MACRO SINCE THE Pl VECTORS WILL DISAPPEAR 

863 ; SDELTVA_S (R2) , 8 (R2) + DELETE FROM KERNEL STACK TO VECTORS 
864 PUSHL #0 

865 PUSHAQ 8(R2) 

866 PUSHAQ (R2) 

867 MOVAB G*P1SYSVECTORS, RO 

868 MNEGL RO, RO 

869 MOVAB G*SYSSDELTVA, R1 

870 CALLS #3, ~“X80000000 (R1) [RO] 7 DELETE KSTK TO VECTORS 

871 BRW DEL _ PAGES ; DELETE THE PAGES 

872 ; ENTER & EXIT DELTVA AT IPL(ASTDEL) 
873 . SAVE_PSECT 

874 DECLARE_PSECT EXECSNONPAGED_ CODE 

875 

876 DEL_PAGES: 

877 LOCK LOCKNAME=MMG 3 Lock MMG database 

878 LOCK LOCKNAME=SCHED 3 Lock SCHED database 

879 MOVL PCBSL_PHD (R4) ,R5 3 Get process header address 

880 MOVZWL PHDS$W_PHVINDEX(R5),R10 ; Get balance slot index 

681 ASSUME PHD$S_PRCPGFL EQ 4 

882 PUSHL PHDSB_PRCPGFL(RS5) 3 Save page file mapping 

883 ; 

884 ; Release all page table pages at this time 

885 ; 

886 BISW #PHDSM_NO_WS_CHNG, - ? Tell the swapper - hands off 
887 PHDSW | FLAGS (RS) 

888 BICL3 #*x80000000, - 

889 PHDSL_POBR(R5) , R6 3 Start at base of PO table 

890 ASHL #-7,R6,R6 3 Offset in SPT 
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X-33 DELETE - PERFORM DELETE ACTIONS IN CONTE 


G*MMGS$GL_SPTBASE, R6 
G*SGNS$GL_PHDPAGCT, - 
G*SWPSGL_BSLOTSZ,R7 
PHDS$L_FREPTECNT (R5) ,R9 


891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 


108: 


308: 
40S: 


50S: 


90S: 


1008S; 


1308: 


1508S; 


ADDL 
SUBL3 


MOVL 
ASHL 
SUBL3 
MOVL 
EXT2ZV 


BEQL 
INCL 
BEQL 
MOVL 
BLSS 
BBS 
EXTZV 


ASSUME 


ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
CASE 


JSB 
JSB 
CLRW 
CLRL 
JSB 


EXTZV 


BEQL 
EXTZV 


MOVZBL 
JSB 
CLRL 
SOBGTR 
ADDL 
BRW 


CLRL 
BRB 


BRB 


#-7,R9,R9 
R9,R7,R9 
#-101,R8 


#PTESV_PFN, #PTESS PFN, - 


(R6), RO 

130$° 

R8 

200$ 

(R6)+,R1 

150$ 
#PTESV_TYP1,R1,5 


PFNSC__ FREPAGLST 
PFNSC_MFYPAGLST 
PFNSC_BADPAGLST 
PFNSC_RELPEND 
PFNSC_RDERR 
PFNSC_WRTINPROG 
PFNSC_RDINPROG 
PFNSC_ACTIVE 
R2,<-~— 

30S8,- 

308,- 

308,- 

400$,- 

400$,- 

3008S, 7 

400S,- 

250$> 


G*MMGSREMPFN 
G*MMGSDELCONPFN 


0$ 


EQ 
EQ 
EQ 
EQ 
EQ 
EQ 
EQ 
EQ 


~ #PFNSV_LOC, #PFNSS_LOC, - 
@W*PFNSAB STATE [RO], R2 


@W*PFNSAW REFCNT [RO] 


R2 

G*MMGS$ INSPFNH 
-4(R6),R1 

#PTESV PGFLVBN, - 


#PTES$S PGFLVBN,R1,RO 


90$ 


#PTESV PRCPGFLX, - 


#PTESS PRCPGFLX,R1,R3 


(SP) [R3],R3 


G*MMGSDALCPAGFIL 


-4(R6) 
R7,10$ 

#4, SP 
DELETE PERM 


(R6)+ 


100$ 


250$ 


SoU WNe OO? 


=e Ye Ye we Ve Ve 


se Ne Te Se Me Me Ne 


se 


we Se Ye Ye Ye Se Ye Se Ye Ye Ne Yeo Ye Ve 


7.2 Ye Ne 


Be Se Ve Me Ne Ne NO 


%e we 


we Ve Ne Ve Ve 


Get count of page table pages 
pages in the balance slot 

Free PTEs 

Number of SPT entries for free PTEs 

Number of SPT entries not free 

Max to clean up with locks held 


Get the PFN 

Empty 

Count one - we are going to do work 
Go release locks temporarily 

Get the PTE 

Valid 

Backing store 

Get the page location 


Dispatch on page location 

=> FREE PAGE LIST 

=> MODIFIED PAGE LIST . 

=> BAD PAGE LIST, PAGE READ/WRITE ERR 
=> RELEASE PENDING 

=> PAGE READ ERROR 

=> WRITE IN PROGRESS 

=> READ IN PROGRESS 

=> ACTIVE 


NAM &WNF O 


Remove it from the appropriate list 
Get rid of all traces of its contents 
Ref count is now zero 

Indicate free list 

Put it on the list 

Get the PTE again 

Get page file VBN 


None 
Get process specific page file index 


System wide page file index 
Release it 

Clean up the PTE 

Go do the next one 

Clean up the stack 
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948 

949 2008: UNLOCK LOCKNAME=MMG 3 Unlock MMG database 

950 UNLOCK LOCKNAME=SCHED 3 Unlock SCHED database 

951 SETIPL #IPL$ ASTDEL 

952 MOVL #-101,R8 3 Reset counter 

953 BRB 350$ 

954 ; 

955 ; Here we are taking care of valid page table pages. 

956 ; If they are not guaranteed to be totally free, we must be careful 
957 ; not to free any with pages locked permanently in the working set 
958 ; since those pages still exist. The only ones we can be sure of 
959 ; are ones with an outstanding modified page write. 

960 ; 

961 2508: CMPW @W*PFNSAW_REFCNT[RO], #1 ; Are there any extra references 
962 BNEQ 300$ 3 Assume modified page write 

963 CMPL R9,R7 7; Are we still in the free page tables 
964 BGEQ 100$ 7 No - leave valid pages alone 
965 BICB #<<PTESM VALID! PTESM_MODIFY>@-24>, - 

966 -1(R6) 3 Make it a transition PTE 

967 INCW @PHVSGL_REFCBAS [R10] 3 Must up ref count before deleting 
968 BRW 40$ 

969 

970 

971 ; 

972 ; We need to wait for the modified page writer to complete 

973 ; 

974 3008: SUBL #4,R6 ? Start again with the same PTE 
975 MOVL #RSN$_MPWBUSY, R1 ; Resource 

976 JSB G“MMGSRESRCWAIT 7 Get us on the right queue 

977 MOVPSL -~-(SP) 3; Use this PSL for wait 

978 JSB G“MMGS SVPCTX 3 Go wait 

979 3508: LOCK LOCKNAME=MMG 7 Lock MMG database 

980 LOCK LOCKNAME=SCHED ; Lock SCHED database 

981 BRW 10$ ? Try again 

982 

983 

984 400$S: BUG CHECK ICPAGELOC, FATAL 3 INCONSISTENT PAGE LOCATION 

985 

986 

987 DELETE PERM: 

988 -ENABLE LSB 

989 

990 SVPCTX 3 SAVE PROCESS CONTEXT 

991 3 AND GO TO INTERRUPT STACK 

992 find_cpu_data R3,ISTACK=YES 

993 

a aaa cme a 

995 ; 

996 ; RESET PROCESS AFFINITY CHARACTERISTICS 

997 ; 

998 frm rrr tr rn rrr ren rer rn rete re nn ne renner erese= 

999 
1000 BBC #CPBSV_EXPLICIT AFFINITY, - 
1001 PCBSL_CAPABILITY(R4),100$; check for explicit affinity set 
1002 DECW CPUSW_HARDAFF (R3) 7; decrement hard affinity count 
1003 1008S: CLRL PCBSL_CAPABILITY (R4) ; zap required capabilities, 
1004 
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1065 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1081 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 


1308: MOVL (R8)+,R2 


140$:  REMQUE @PCB$L_ASTOFL(R4) ,.RO 


MOVL G*SCHSAR_NULLPCB, CPU$L_CURPCB(R3) ; SET NULL AS CURRENT PCB. 
MOVZWL @W*PHVSGL , PIXBAS [R10], Rl ; GET PROCESS INDEX 

MOVL G*SCHSAR . NULLPCB, @W*SCHSGL_| PCBVEC([R1] ; RELEASE PROCESS INDEX SLOT 
MOVL PHDSL _ WSLOCK (RS) , R9 POINT TO FIRST NON PERM PAGE 

CLRL (RS) [R9] MARK WITH A ZERO ~ 
MOVL . PHDSL_WSLIST(R5) , R8 LONGWORD INDEX TO START OF WORKING SET LIS 
MOVAL (R5) [R8),R8 FORM BYTE ADDRESS OF START OF WSLIST 

GET VA OF PERM PAGE 

DONE, NONE LEFT 

IGNORE IF NOT VALID 

OR IF HEADER PAGES (SYSTEM ADDRESS) 
DELETE PAGE 

CONTINUE 


BEQL . 140$__ 
BLBC R2,130$ 
BLSS 130$ 
BSBW DELPAGE 
BRB 130$ 


me Ne Ne Ne Ye Ve Te Ye Ye Ve 


REMOVE PENDING AST CONTROL BLOCKS 


BVS 150$ 7 NONE LEFT 
BBS #ACBS$V_NODELETE, - ; BR. IF NODELETE BIT IS SET. THIS 
ACBSB_RMOD (RO), 140$ 7 SHOULD NOT HAPPEN BUT IF IT DOES MAY 
7; RESULT IN LOSING POOL (WHICH IS 
7 PREFERABLE OVER A DOUBLE DEALLOCATE) . 
BSBB DEANONPAGED 7 DEALLOCATE SPACE FOR ACB 
BRB 140$ 7 AND CONTINUE 
DEANONPAGED : ; 
JMP G*“EXESDEANONPAGED 7 JUMP TO REACH REAL DEANONPAGED 
3 The CWPSSRVS structures for any ongoing CWPS operations will be queued to the 
7; PCB. Since these structures will be referenced by the fork thread which will 
7 resume when the response from the remote system arrives, it would be bad form 
3 to deallocate the CWPSSRVS structures now. When the response arrives, the 
7; fork thread will realize that the requestor process (that’s us) is gone, and 
7 it will deallocate the structure. 
? 
3 So, if we find any of these we will simply remove them from our PCB and hang 
? them from the SWAPPER’S PCB. The SWAPPER won’t notice them, and that both gives 
7 us a way to locate any LOST CWPSSRVS structures, and means that we don’t have 
7 to special case the REMQUE in the deallocate routine (the CWPSSRV$ will always 
¢ be part of a valid queue). 
’ 
? The CWPS fork thread will acquire the SCHED lock to synchronize with this 
7 activity (we have it now). 
150$: REMQUE @PCBSQ_CWPSSRV_ QUEUE (R4),RO ; REMOVE PENDING CWPSSRVS$ BLOCKS 
BVS . 160$ 7; NONE LEFT 
MOVL G“SCHSAR_SWPPCB, R1 7 GET ADDRESS OF SWAPPER PCB 
INSQUE (RO) ,@PCBSQ_ CWPSSRV_QUEUE (R1) ; HANG FROM THE SWAPPER 
BRB 150$ 7 AND TRY NEXT 
1608: MOVL PCBSQ PRIV+ARBSL_RIGHTSLIST+8 (R4),RO ; GET EXTENDED RIGHTS LIST 
BEQL 170$ 7 BRANCH IF NONE 
BSBB DEANONP AGED ; DEALLOCATE IT 
170$: MOVL PCBSL_JIB(R4),RO 7; GET ADDRESS OF JIB FOR RELEASE 
BEQL 180$ 7 BR IF NONE 
ADAWI #-1, JIBSW_PRCCNT (RO) 7; ONE LESS PROCESS IN THIS TREE 
CMPL PCBSL_PID(R4),JIBSL_MPID(RO) ; IS THIS THE MASTER PROCESS? 
BNEQ 180$ ; BR IF NOT 
BSBB DEANONPAGED ; DEALLOCATE JIB 
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1062 1808: MOVZWL PCBSL_OWNER (R4) , RO GET PIX FROM OWNER UIC 


=e Ne 


1063 BEQL 190$ BR IF NOT A SUB-PROCESS 
1064 MOVL @W*SCHS$GL_PCBVEC[RO],RO ; GET ADDRESS OF OWNER PCB 

1065 DECW PCBSW_PRCCNT (RO) 7 DECREMENT COUNT OF SUB-PROCESSES 

1066 MOVL #RSN$_ASTWAIT, RO ? NOTIFY PARENT PROCESS THAT ITS 

1067 JSB G*SCHSRAVAIL 7 SUBPROCESS COUNT HAS BEEN DECREMENTED 

1068 1908S: MOVL R4,R0 7 SET ADDRESS OF PCB FOR RELEASE 

1069 BSBB DEANONPAGED # AND DELETE IT 

1070 DECW G*SWP SGW_BALCNT 3 DECREASE COUNT IN BALANCE SET 

1071 JSB G*SCHS$ SWP WAKE 3 WAKE SWAPPER 

1072 . MCOMW #0,@W*PHVSGL_PIXBAS[R10] ; INDICATE PROCESS HEADER TO BE DELETED 
- 1073 INCW G* SCHSGW_DELPHDCT 7 FLAG SWAPPER’S ATTENTION 

1074 DECW G*SCHSGW_PROCCNT 7 ONE LESS PROCESS NOW 

1075 UNLOCK LOCKNAME=MMG 3 UNLOCK MMG DATABASE 

1076 JMP G*SCHSSCHED ? AND SCHEDULE FOR ANOTHER PROCESS 

1077 

1078 -DISABLE LSB 
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1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 


++ 


INPUT 


me Ve Te Ye Vo Ye Ye Ye Ve Ve We 


=e Se Se Ne NS 


~™e Se Ve Ne 


DELPAGE: 


108: 


208: 


508: 


.SBTTL DELPAGE - DELETE PAGE 


FUNCTIONAL DESCRIPTION: 


DELPAGE DELETES THE CONTENTS OF THE SPECIFIED PAGE AND PLACES 


THE PFN ON THE FREE PAGE LIST. 


CALLING SEQUENCE: 


BSBx DELPAGE 


PARAMETERS : 


R2 - VIRTUAL ADDRESS OF PAGE TO RELEASE 
R4 - PCB ADDRESS OF PROCESS OWNING PAGE 
RS - PROCESS HEADER ADDRESS OF PROCESS OWNING PAGE 


OUTPUT PARAMETERS: 


NONE » 


ENVIRONMENT: 


IPL = SYNCH, with MMG spinlock acquired. 


JSB G*MMGSSVAPTECHK 

BBCC #PTESV_VALID, (R3) , 50S 
BBCC #PTESV_MODIFY, (R3),10$ 
EXTZV #0,#PTESS_PFN, (R3) ,RO 
DECREF ,,,L*,,JSB 

BGTR 50$ 7 
BICB #PFNSM_MODIFY, @W*PFNSAB 
JSB G*MMGSDELCONPFN 

ASSUME PFNS$C_FREPAGLST EQ 0 
CLRL ‘R2 

JSB G“MMGS INSPFNH 

RSB ee 


-RESTORE PSECT 


TD ve Ve we Me Ye Ne Ne 


we Ne Me Me Ne 


DELETE PAGE 

GET SVA OF PTE FOR PAGE 

EXIT IF NOT VALID 

CLEAR MODIFY INDICATOR 

GET PFN FROM PTE 

DROP REFERENCE COUNT ON PAGE 

BR IF CANT RELEASE YET 

TATE[RO] ; MAKE SURE NO MODIFY BIT 
DELETE CONTENT OF PFN 


INDICATE FREE LIST 
INSERT AT HEAD OF FREE LIST 
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1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 

1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 


1169 108: EDIV #10,R0,RO,R2 


1170 
1171 
1172 
1173 
1174 


468 


-SBTTL . TERMMBX - SEND MESSAGE TO TERMINATION MAILBOX 


BUILD PROCESS TERMINATION MESSAGE AND SEND TO TERMINATION 
MAILBOX UNIT. 


SEND TERMINATION MESSAGES 
MOVL SP, R10 SAVE STACK STATE 
PUSHL PCBSL _ EOWNER (R4) 
MOVL G*CTLSGL_PHD, R5 GET PROCESS HEADER ADDRESS 
MOVO G“CTL$GQ_LOGIN, - (SP) LOGIN TIME 

ASSUME ACCSL_| OWNER EQ ACCSQ_LOGIN+8 


™e Ye Re Ne Re 


PUSHL G*CTLSGL_VOLUMES + COUNT OF MOUNTED VOLUMES 
ASSUME ACCS$Q_ LOGIN EQ ACCS$L_VOLUMES+4 | 

PUSHL PHDS$L_DIOCNT (R5) ; DIRECT I/O COUNT 

ASSUME ACCS$L_VOLUMES EQ ACCSL_DIOCNT+4 

PUSHL PHDSL_BIOCNT(RS) | + BUFFERED I/O COUNT 
ASSUME ACCSL_DIOCNT EQ ACCSL_BIOCNT+4 

PUSHL G*CTLSGL_WSPEAK ; PEAK WORKING SET SIZE 
ASSUME ACCS$L_BIOCNT EQ ACCSL_WSPEAK+4 

PUSHL #0 ? PEAK PAGING FILE USAGE 
ASSUME ACCSL_WSPEAK EQ ACCSL_PGFLPEAK+4 

PUSHL PHDSL_ PAGEFLTS (R5) # TOTAL PROCESS PAGE FAULTS 


ASSUME ACC$L_PGFLPEAK EQ ACCS$L_PAGEFLTS+4 


PUSHL PHDSL | _ CPUTIM(RS) . 3 SAVE ACCUMULATED CPU TIME FOR PROCESS 


ASSUME ACCSL_! PAGEFLTS EQ ACCSL_CPUTIM+4 

MOVAB - G*CTLST_| USERNAME+12, RO # GET BASE ADDRESS 

MOVOQ ~ (RO), ~ (SP) 7 LAST HALF OF USER NAME 
PUSHL ~- (RO) + FIRST LONGWORD OF USER NAME 


MOVAB W*<CTLS$T_ACCOUNT-CTLST_USERNAME>(RO),RO ; POINT PAST ACCOUNT 


ASSUME ACCSL_| CPUTIM EQ ACCST_| USERNAME +12 

MOVO (RO), -(SP) _ ¢ SET ACCOUNT INTO RECORD 
ASSUME ACCS$T_USERNAME EQ ACCS$T_ACCOUNT+8 

MOVO G*EXESGQ SYSTIME,-(SP) ; LOGOUT TIME 

ASSUME ACCST_ACCOUNT EQ ACCSQ_TERMTIME+8 


PUSHL #0 7 JOBID 

ASSUME ACC$Q_TERMTIME EQ ACCS$L_JOBID+4 

PUSHL PCBSL | EPID (R4) 3 EXTENDED PROCESS ID 
ASSUME ACC$L_JOBID EQ ACCSL_PID+4 

PUSHL G*CTLS$GL_FINALSTS ; FINAL STATUS OF PROCESS 
ASSUME ACCSL_| PID EQ ACCS$L_FINALSTS+4 

PUSHL #MSGS | DELPROC + MESSAGE TYPE 


ASSUME ACC$L_FINALSTS EQ ACCSW_MSGTYP+4 

MOVIL SP,R7 MESSAGE ADDRESS 

MOVZWL PCBSW_TMBU (R4) , RO TERMINATION MAILBOX UNIT 
MOVOQ #*°A/MB00000:/,-(SP) SKELETON FOR DEVICE STRING 
CLRL R1 INIT FOR EDIV 

MOVAB 7(SP),R3 POINTER TO LSD OF DEVICE NAME 
CONVERT A DECIMAL DIGIT | 
ADDB R2, -(R3) 


“Se “Se Se Se Ve Ye Se Yo Ye Ve Re 


TSTL RO CHECK FOR END 

BNEQ 10$ NOT YET, CONVERT ANOTHER DIGIT 
PUSHL SP BUILD STRING DESCRIPTOR FOR 
PUSHL #8 MAILBOX NAME 


SEND EXTENDED PID OF SUBPROCESS OWNER (0 = 


SET DIGIT INTO NAME STRING IN ASCII 
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1175 MOVL SP, R8& ? AND SAVE POINTER TO NAME DESCRIPTOR 
1176 MOVAL -(SP),R9 # RESERVE SPACE FOR CHANNEL 

1177 

1178 CHECK FOR PRESENCE OF CHANNEL TABLE, IF NON-EXISTENT (I.E. PROCESS DELETED 


we Ye Se te 


1179 ; BEFORE THE CREATION OF IT) USE A PAGE OF SUPERVISOR STACK FOR IT. 
1180 * 

1181 _TSTW G*CTL$GW_NMIOCH ; IS THERE A VALID CHANNEL TABLE? 
1182 BNEQ 20$ ? YES, SKIP TO ASSIGN 

1183 PUSHL R4 ? SAVE PCB ADDRESS 

1184 MOVL G*CTLS$AL_STACK+<4*PSL$C_SUPER>, R3 7 PICK UP SUPER SP 
1185 MOVAB -CCBSC_LENGTH(R3),- 

1186 G“CTL$GL_CCBBASE # MAKE IT TABLE BASE 

1187 movcS #0, (SP), #0, #512, -512(R3); CLEAR IT OUT 

1188 POPL R4 7 RESTORE PCB ADDRESS 

1189 MOVZWL #<512/CCBS$C_LENGTH>-1,- ; SET NUMBER OF CHANNELS 

1190 ' G*CTLSGW_NMIOCH 

1191 ; 

1192 ; ASSIGN CHANNEL TO MAILBOX AND WRITE THE MESSAGE 

1193 ; 

1194 208: 

1195 SASSIGN_S DEVNAM=(R8),- +; ATTEMPT TO ASSIGN CHANNEL TO 
1196 CHAN=(RQ) . # MAILBOX 

1197 BLBC RO, 30$ | ; UNABLE TO ASSIGN, IGNORE 
1198 $qIo_s CHAN=(R9) , - ? SEND TERMINATION MESSAGE 
1199 FUNC=#<I0O$ WRITEVBLK! IOS$M_NOW>, - 

1200 Pl=(R7),~- # MESSAGE ADDRESS 

1201 P2=#ACCS$C_TERMLEN; MESSAGE SIZE 

1202 308: . 

1203 $DASSGN_S CHAN= (R9) ? DEASSIGN CHANNEL 

1204 MOVL R10, SP 7 RESTORE STACK STATE 

1205 RSB 

1206 . 
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1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 


me Ve Ve Be Yeo Be Ve 


me Ne Me Me Me Me Me Me Ye Ye Be Be Ve Be Ye Be Ye Ye Se Ye Ye 


we Ye Ve Ve Ye Yeo Ve Ve Ye Te Wo Ye Ye Ne Ye Yo 


ee Se 


ze 


+ 


. SUBTITLE Return Unused CPU Time Limit to Parent 


Functional Description: 


Input 


RETQUOTA is entered via a special kernel AST directed to the 
creator of a subprocess. The AST control block contains the 
unused CPU time limit to be returned to the creator. 


The CPU limit of the parent has any unused CPU time from the 
subprocess added to it. 


Parameters: 


R4 PCB Address of Current (Parent) Process 
R5 Pointer to AST Control Block 


ACB_L_ CPULIM(R5) ‘Original CPU Limit of Subprocess 
ACB_L_ CPUTIM(RS5) CPU Time Used by Subprocess 


Output Parameter: 


PHD$L_CPULIM(R1) The CPU limit of the parent is adjusted 
according to the following rules. 


If the subprocess has unused CPU time limit (a credit) , 
that credit is added to the parent’s CPU limit.. 


If the subprocess exceeded its CPU time allotment, an attempt 
is made to pass the deficit to the parent. 


If the deficit is smaller than the parent’s CPU limit, the 
deficit is simply subtracted from CPU limit. 


If the deficit is larger than the parent’s CPU limit, the 
parent is forced into the CPU time expiration path by 

loading its CPUTIM into its CPULIM field, indicating 

that its CPU time limit has expired. (Note that loading CPULIM 
into CPUTIM has the same effect but causes double accounting 
for the CPU time already charged to the subprocess.) 


Side Effects: 


The AST control block is released to nonpaged pool. 


Environment: 


IPL$_ASTDEL while carrying pointer to AST control block. 


RETQUOTA: 


MOVL G*CTLSGL_PHD, R1 
TSTL PHDSL_CPULIM(R1) Check for no quota 

BEQL 208 Skip return if no quota 

SUBL3 ACB L CPUTIM(R5) ,ACB_L_ CPULIM(R5), RO 3; Get difference 

BGEQU 10$ 3; Excess or deficit (Branch if excess) 
MNEGL RO, - (SP) ; Handle deficit very carefully 


Get safe pointer to process header 


me Ne Yo 
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1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 


108: 
208: 


CMPL 
BLSSU 
MOVL 


ADDL2 
MOVL 


_.END 


(SP)+,PHDS$L_CPULIM(R1) ; Can creator accommodate deficit? 

10$ ? Branch if yes 

ape _ CPUTIM(R1),PHD$L_CPULIM(R1) ; Otherwise, force CPU time 
3? expiration by setting limit to time 

208 + Deallocate AST control block 


RO, PHDSL_CPULIM(R1) Give back excess 


R5, RO 3; Get address for release 
G“EXESDEANONPAGED 3 Return via EXESDEANONPAGED 


471 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


16 SWAPPER.LIS. 


SWAPPER WORKING SET SWAPPER 10-MAY-1989 17:00:40 VAX MACRO V5.0-8 Page 0 


472 
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1797 
1852 
1932 
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2640 
2664 
2699 


DECLARATIONS ; 
EXESSWAPINIT - INITIALIZATION AND STARTUP FOR SWAPPER 
SWAPPER - MAIN LOOP 

BALANCE FREE PAGE COUNT 

SCHEDULE SWAP 

OUTSWAP 

RELPHD - RELEASE PROCESS HEADER 

DELPHD - DELETE PROCESS HEADER FOR DELETED PROCESS 
GBLTRANS/GBLVALID/GBLWRTVALID - HANDLE GLOBAL PAGES 
PROCTRANS - PROCESS PAGE IN TRANSITION 

PAGE TABLE WORKING SET LIST ENTRIES 

INSWAP 

FILLPHD - FILL SPT ENTRIES TO MAP PHD 

RELINIT - INITIALIZE REGISTERS FOR PAGE RELEASE LOOP 
OSINIT - OUTSWAP SCAN REGISTER INITIALIZATION 
RELPAGE - RELEASE DUPLICATE PAGE 

SWPREAD/SWPWRITE - SWAPPER I/O ROUTINES 
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3 


-TITLE SWAPPER WORKING SET SWAPPER 
-IDENT ‘'X-3503' 


PRERREREHERHEERERREKHEEKHKRRREKERERERKKERHERREKERKRERKKRRRHEEK REE HERE ERERRERREREKE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 


+ © © oe £ $+ ye e+ HF ee He He He FH He HE OF 


FERRER ARIK KHER AREER KERR EREKERKEKEKREKEREREKEEREERRKEKREK KR KKREKKEKERKEKEREKK 


se Ne Se Ne Ne Se Se Se Se Me Se Ne Ne Ye Ye Ne Se Ne Te Se Se Ye Me Ne te Se Te Me Ye Ne te 


+ 
+ 


FACILITY: EXECUTIVE, SWAPPER 


ABSTRACT: THE SWAPPER SCHEDULES AND EXECUTES SWAPPING OF PROCESS 


WORKING SETS BETWEEN SWAP STORAGE AND MAIN MEMORY. 


ENVIRONMENT : 


MODE = KERNEL , RESIDENT 


AUTHOR: .R. HUSTVEDT CREATION DATE: 30-NOV-76 


MODIFIED BY: 


X-3503 SSA0010 Stan Amway 20-Mar-1989 
Properly dispose of page file space in DELPHD. 
The code to do so was (correctly) removed in X-25. 
However, it should have been reinstated (probably 
around X-27) to track a subsequent change in SYSDELPRC. 


X-35U2 SSA0009_ Stan Amway 10-Aug-1988 
Avoid flushing MPL to low limit when possible. 


X~3501 SSA0008 Stan Amway 15-Jul-1988 


Use alternate PQL list if booting a stand-alone application. 


X-35 ~ SSA0007 Stan Amway 12-Apr-1988 
Selectively flush modified page list. 


X-34 SSA0006 Stan Amway 28-Oct-1987 
Specify PQL list when creating SYSINIT. 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 


me Ve Ve Te Ve Te We Ve Yo Ve Ve Vo Yo Ye Ve Ve ™e Ne Ye Se Ve Ve Ve Ye Ve oe ™e Te Ne Ne Te Xe Ye VO Ve Ve Yo Veo 


me Ye Ye MO Me Ye Me Ne Me Ne Ne Se Ye Ye Se Ve 


=e Ne 


=e 


X-33 
X-32 

~31 
X-30 


X-29 


X-28 


X-27 


X-26 
X-25 
X-24 


X-23 


X-22 


X-21 
X-20 


X-19 


X-18 
X-17 


X-16 


SF00033 Stephen Fiorelli 26-Aug-1987 
Final large working set support. | 


SSA0005 Stan Amway 44-Aug-1987 
Swap file allocation changes. 


SJF Stu Farnham 30-Jul-1987 
INVALID becomes INVALIDATE_TB. Make TBIS track SRM 
rev H. 


SF00028 Stephen Fiorelli 27-Jul-1987 
Initial large working set support. 


$SA0004 Stan Amway 22-Apr-1987 
Fix BAK setup in PHD inswap. 
(Bug incorrectly fixed in X-24.) 


WMC0027 Wayne Cardoza 30-Mar-1987 
Scan more of balance slot for now. Calculation was 
incorrect. It will be fixed in the future. 


SF04007 Stephen Fiorelli 09-Mar-1987 
Use vms standard name for system_primitives_data. 


WwMco0025 Wayne Cardoza 05-Mar-1987 
Don’t scan most of balance slot in DELPHD. 


WMC0024 Wayne Cardoza 05-Mar-1987 
Fix BAK setup in PHD inswap. 


SSA0003 Stan Amway 27-Feb-1987 
Add bugcheck in DELPHD processing to catch bad 
process to system page file mapping. 


WCT0032 Ward C. Travis 19-Feb-1987 
Update remaining old lookaside listhead references 
to reflect that they are now interlocked queues. 


wMco021 Wayne Cardoza 16-Feb-1987 
Free page cleanup now done in DELPRC. 


SFO 4006 Stephen Fiorelli 05-Feb-1987 
MMGSAL_SYSPCB becomes MMGSAR_SYSPCB. 


MSH0293 Michael S. Harvey 28-Jan-1987 
Correct mechanism that triggers powerfail AST declaration 
so that it works under SMP. 


SSA0002 Stan Amway 4-Oct-1986 
Add support for multiple pagefiles per process. 


RNGOO17 Rod Gamache 29-Oct-1986 
Fix branch error. 


RNGOO16 Rod Gamache 8-Oct-1986 
Acquire SCHED lock after call to MMGSUNLOCK. 
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115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 


137. 


138 
L139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 


me Te Ve Ye Ye Ve Yeo Ys Ve Ye Ye Ye Ye Yo 


Ne Ve Ve Ve BWe Ve Ve Ye Ye Ye 


we Ne 


=e Ne 


we 


Re Ne Ne Ne te te Ne Ye Ne te Se Se Se Se Me Ne Se Me Se Me Te Ye Se Se Ye Ye Ye Se 


X-15 


X-14 


X-13 


X-12- 


‘X-10 


X~4E5 


X-3D5 


X-3D4 


X-3D3 


X~-3D2 


SSA0001 Stan Amway 11-Sep-1986 
Allow swap I/O greater than 127 pages for devices 
that support it. 


Account for modified pages in transit when checking 
free page count. This finesse is important now that 
modified page writing is multi-threaded. 


Don’t start modified page writing to balance free page 
deficit unless the number of modified pages exceeds 
the SYSGEN threshold value, MPW_THRESH. 


Avoid saving RO on most calls to SMPLOCK and SMPUNLOCK. 


Move reset of swap failure counter from SWAPSCHED to 
INSWAP. This insures that the reset is only done when 
an inswap is actually successful. 


SF04005 Stephen Fiorelli 11-Aug-1986 
Eliminate use of swp$gl_shelio. Use swp$c_shellsiz 
instead. 


wMco00s5s Wayne Cardoza 03-Sep-1986 
Use LDRSINIT ALL. 

WMC0004 Wayne Cardoza 25-Jul-1986 
Temporary fix to call initialization in correct order. 
SUF Stu Farnham 8-Jul-1986 
Fix merge error 

wMc0003 Wayne Cardoza 12-May-1986 


Make process context initialization code paged. 


HHO182 Hai Huang 24-Apr-1986 
Correctly set up PQLSGL_SYSPQLLEN. 


SF04004 Stephen Fiorelli 02-Apr-1986 
Resolve conflicts from merge of exec_reorg V4.4 into 
mainline. 


ACGO0505 Andrew C. Goldstein, 6-Nov-1985 18:24 
Deny control access to group and world in log name protection 


HHO158 Hai Huang 13-Mar-1986 
Add support for shadowed system disk. 


SF04003 Stephen Fiorelli 03-Feb-1986 
Change EXESK_ references to BASESEXESK_. 


SF04002 Stephen Fiorelli 30-Jan-1986 
Make a reference to SGN$GL_PHDPAGCT general addressing. 


TCMO008 Trudy C. Matthews 30-Jan-1986 


Change SYS$K_CREPRC and SYS$K_CRELNM symbols to EXESK_CREPRC 
and EXESK_CRELNM. 
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172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 


e Se Ne Ne Se Ye Be Ve Ye Be Yo Te Ye VO Ye Ve Yo Ye Vo 


Se Se Te Ne Ne Ye Me Se Se Te Ne Te Te Ne Ye Te Ye Ye Ye Ye Ye Ye Ye Ne Ye Ye Ne Vo Ye Ye Ye Ye Be. & 


X-3D1 


X-1C11 


X-1C10 


X-1C9 


X-1C8 


X-1C6 


X-1C5 


X-1C4 


X-3 
V04-002 


v04-001 


SF04001 Stephen Fiorelli 10-Dec-1985 
Resolve conflicts from initial merge of exec reorg 
thread and mainline (4.4 BL7). 


TCMO007 Trudy C. Matthews 19-Nov-1985 

Make PQLSGL_SYSPQLLEN a longword that contains the length 
of PQLSAB_SYSPQL, and lives in the base image. 
PQLSC_SYSPQLLEN will continue to be available as a local 
constant to the SWAPPER. 


TCM0006 Trudy C. Matthews 18-Nov-1985 

Change names of pointers to structures that live in the 
SWAPPER, so other modules know that these structures are now 
accessed indirectly through a pointer: 


LNMSSYSTEM_DIRECTORY’s pointer: LNMSAL_ SYSTEM DIRECTORY 
LNM__ SYSTEM | DIR_LNMTH’s pointer: LNM | AL | _ SYSTEM | DIR_LNMTH 


POLSAB _ SYSPQL’s pointer: POQLSAR_| SYSPOL 
POLSC_SYSPQLLEN’ s pointer: PQLSAR_SYSPQLLEN 
TCMOO0OS5S Trudy C. Matthews 11-Nov-1985 


Remove G* from LNMS$SYSTEM_ DIRECTORY ASCII string. 

Also, fix up LNMSAL_| DIRTBL’ s pointer to LNMSSYSTEM_ DIRECTORY. 
(Make the pointer point to the directory table, not its 
pointer in SYSTEM_DATA_CELLS) . 


TCMO0004 Trudy C. Matthews 5-Nov~-1985 
Add ALIGNMENT=PAGE parameter to EXECSNONPAGED_ DATA psect. 


TCMOO0O3 Trudy C. Matthews 14-Oct-1985 

Call all loaded system image’s initialization routines again 
from the SWAPPER. This is so any .ADDRESS fixups in pagable 
code can be done at this time. 


TCMO002 Trudy C. Matthews 3-Oct-1985 
Changed reference to PFNSAL_TAIL to G%. 


TCMOO001 Trudy C. Matthews 23-Aug-1985 
Move all .ADDRESS and .ASCID directives to read/write 
psects. 


wMco002 Wayne Cardoza 02-Aug-1985 
Get empty page count correct if process header being expanded. 


wmcoo0o1 Wayne Cardoza 12-Mar-1985 
Scan page list backwards to reduce average time. 


WMCO00O1 Wayne Cardoza 28-Feb-1985 
Don’t continue scanning page lists after PHD ref count 
goes to zero. 
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226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 


=e Ye Xe 


we Se Ne 


-SBTTL 


INCLUDE FILES: 


SACBDEF 


DECLARATIONS 


S$BOOSTATEDEF 


SCPUDEF 


SCREPRCDEF 


SDYNDEF 
SIPLDEF 
SIRPDEF 


SLDRIMGDEF 


SLNMDEF 


SLNMSTRDEF 


SMPWDEF 
SOPDEF 

SORBDEF 
SPCBDEF 
SPFLDEF 


SPFLMAPDEF 


SPFNDEF 
SPHDDEF 
SPQLDEF 
SPRDEF 

SPRCDEF 
SP SLDEF 
SPTEDEF 
SRPBDEF 


$SYSVECTORDEF 
S$SYSTEM PRIM DATADEF 


SUCBDEF 
SVADEF 
SWSLDEF 


AST CONTROL BLOCK OFFSETS 
BOOTSTRAP STATE FLAGS 

PER-CPU DATA BLOCK OFFSETS 
argument list for $CREPRC 
STRUCTURE TYPE CODES 
INTERRUPT PRIORITY LEVELS 

I/O REQUEST PACKET OFFSETS 
LOADED SYSTEM IMAGE STRUCTURE 
LOGICAL NAME OFFSETS 

LOGICAL NAME STRUCTURE OFFSETS 
MPW structures and constants 


DEFINE 
DEFINE 
DEF INE 
Define 
DEFINE 
DEF INE 
DEFINE 
DEFINE 
DEF INE 
DEFINE 
Define 


me Se Se Se Se Ve Se Se Ve Se Ne Ve Ve We We Ne Ve 


DEFINE OPCODE EQUIVALENT VALUES 
DEFINE OBJECT RIGHTS BLOCK OFFSETS 
DEFINE PCB OFFSETS 
DEFINE SWAP FILE TABLE OFFSETS 
Define page/swap file map offsets 
DEFINE PFN VALUES 

7 DEFINE PHD OFFSETS 

? DEFINE QUOTA SYMBOLS 

7; DEFINE PROCESSOR REGISTERS 


CREATE 
DEFINE 
DEFINE 
DEF INE 
DEF INE 
DEFINE 
DEFINE 
DEFINE 
DEFINE 


PROCESS FLAGS 

PSL VALUES 

PAGE TABLE ENTRY 

REBOOT PARAMETER BLOCK OFFSETS 
SYSTEM SERVICE OFFSETS 

SYSTEM PRIMITIVES PRIVATE DATA 
UCB OFFSETS 

VIRTUAL ADDRESS FIELDS 

WORKING SET LIST BITS 


“ee Me Ne Ne Me fe 


=e Se Me 


ASSUMPTIONS ABOUT THE STRUCTURE OF LOGICAL NAME AND OBJECT RIGHTS BLOCKS: 


ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 


ASSUME 
ASSUME 
ASSUME 
ASSUME 


ASSUME 
ASSUME 
ASSUME 
ASSUME 


LNMBSL_FLINK, 
LNMBSL_FLINK+4, 
LNMBSL_BLINK+4, 
LNMBSW_SIZE+2, 
LNMBSB_TYPE+1, 
LNMB$B_ACMODE+1, 
LNMBSL_TABLE+4, 
LNMBSB_FLAGS+1, 


LNMX$B_FLAGS, 
LNMX$B_FLAGS+1, 
LNMX$B_INDEX+1, 
LNMX$W_HASH+2, 


LNMTHS$B_FLAGS, 
LNMTHSB_FLAGS+1, 
LNMTHSL HASH+4, 
LNMTHSL ORB+4, 


EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 


EQ, 
EQ, 
EQ, 
EQ, 


EQ, 
EQ, 
EQ, 
EQ, 


0 
LNMB$L_BLINK 
LNMBSW_SIZE 
LNMBSB_TYPE 
LNMB$B_ACMODE 
LNMB$L_TABLE 
LNMB$B_FLAGS 
LNMBST NAME 


0 

LNMX$B_INDEX 
LNMXSW_HASH 
LNMX$T_XLATION 


) 
LNMTHSL_HASH 
LNMTHSL_ ORB 

LNMTHSL_NAME 
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283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 


ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 


ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 


ASSUME. 


ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 
ASSUME 


ASSUME 


LNMTHSL_NAME+4, 


LNMTH$L_PARENT+4, 


LNMTHSL_ CHILD+4, 


LNMTH$L_SIBLING+4, 
LNMTHS$L_QTABLE+4, 
LNMTH$L_BYTESLM+4, 


ORB$L_OWNER, 
ORBSL_OWNER+4, 


ORBSL __ ACL_MUTEX+4, 


ORB$W_SIZE+2, 
ORB$B_TYPE+1, 
ORB$B_FLAGS+3, 
ORB$W_REFCOUNT+2, 


ORBSQ | MODE _PROT+8, 


ORBSL_SYS_PROT+4, 
ORBSL_OWN_PROT+4, 


ORB$L_GRP_PROT+4, 


ORBSL_WOR_PROT+4, 


ORBSL _. ACL | , COUNT+4, 
ORBSL__ ACL , DESC+4, 


EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 


EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 
EQ, 


LNMTHSL_PARENT 
LNMTHS$L_CHILD 
LNMTHS$L_ SIBLING 
LNMTHSL_QTABLE 
LNMTH$L_BYTESLM 
LNMTHSL_ BYTES 


0 
ORBSL_ACL_MUTEX 
ORBSW_SIZE 
ORBSB_TYPE 
ORBS$B_FLAGS 
ORBSW_REFCOUNT 
ORBSQ | MODE_PROT 
ORBSL_ sys PROT 
ORBSL | OWN | _PROT 
ORBSL_ GRP PROT 
ORBSL_| WOR | PROT 
ORBSL_| ACL . COUNT 
ORBSL ACL | DESC 
ORBSR | MIN | | CLASS 


ORBSR | MIN | CLASS+ORBSS_| MIN |_ CLASS, ~ 


EQ, 


ORBSR | MAX_CLASS 


ORB$R_MAX_CLASS+ORBSS_ MAX __ CLASS, ~ 


EQ, 


ORBSK | LENGTH 
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309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 


349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 


=e 


3 OWN STORAGE: 


=e 


DECLARE_PSECT 


IOROUTINE: 

- LONG 
IOEA: - LONG 
TPGCNT: .LONG 
PFLMAP: .LONG 
RWSSWP: .LONG 
RSVAPTE: . LONG 
RPGCNT: .LONG 
OSWPPGS: . LONG 
OSWPPCB: .LONG 


ooo oo 0000 


UNIVERSAL SYMBOL - 


SWPS$GL_MAP 
. LONG 


we Se te 


UNIVERSAL SYMBOL 


0 


LNMSSYSTEM DIRECTORY: 


- LONG 
- LONG 
-WORD 
-BYTE 
- BYTE 


0 
0 
LNM_SYS_DIR_SIZ 
DYNSC_LNM 
PSL$C_KERNEL 


-ADDRESS LNM_ SYSTEM DIR_LNMTH 


- BYTE 


-ASCIC 


-BYTE 
-BYTE 
-WORD 
-BYTE 


UNIVERSAL SYMBOL 


LNMBSM_NO_ALIAS!- 
LNMB$M_TABLE! - 
LNMB$M_NODELETE: 
LNM$SYSTEM DIRECTORY ; 


LNMX$M_TERMINAL 
LNMX$C_ TABLE 

0 
LNMTHS$K_LENGTH 


LNM_ SYSTEM DIR_LNMTH: 


- BYTE 


- LONG 


LNMTHSM_ SHAREABLE! - 
LNMTHSM_DIRECTORY 
0 


.ADDRESS LNM_SYSTEM DIR_ORB 


se 8 


Se Ne Ne 


we Se Ne Ne Ne 


=e 


‘we Ne Se 


se te Ne 


we Ne Se Ye Ne 


YT i ee Td 


EXECSNONPAGED DATA, ALIGNMENT=PAGE 


SWAPPER/SCHEDULER WRITABLE DATA 
ADDRESS OF PROPER BUILD PACKET ROUTINE 


I/O END ACTION RETURN 

Remaining page count (entire xfer) 
Address of current mapping pointer 
REMAINING WS SWP ADDRESS 

REMAINING SVA OF PTE 

REMAINING PAGE COUNT (current pointer) 
OUTSWAP PAGE COUNT 

PCB ADDRESS OF OUTSWAP PROCESS 
DEFINE SWPSGL_MAP AS UNIVERSAL SO 
IT MAY BE REFERENCED OUTSIDE THIS 
IMAGE 


LNM$SYSTEM DIRECTORY - THE SYSTEM DIRECTORY LOGICAL NAME TABLE. 


LNMSAR_SYSTEM DIRECTORY 


This is the name of the pointer 
used by external modules 

This is the name used by SWAPPER 
FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

KERNEL ACCESS MODE 

DIRECTORY TABLE HEADER ADDRESS 
DIRECTORY TABLES CAN NOT BE ALIASED 
DIRECTORIES ARE TABLES 
DIRECTORIES CAN NOT BE DELETED 


NAME OF DIRECTORY TABLE 


Be Ne Ne Ne 


=e 


we Se 


Se Ne NE Me 


FLAGS BYTE. NO MORE TRANSLATIONS 
TRANSLATION INDEX ( SPECIAL TABLE ) 
TRANSLATION HASH CODE 

SIZE OF TABLE HEADER BLOCK 


LNM_AR_ SYSTEM DIR_LNMTH 


This is the name of the pointer 
used by other modules 
This is the name used by SWAPPER 


DIRECTORY IS A SHAREABLE TABLE 
TABLE IS A DIRECTORY TABLE 
ADDRESS OF HASH TABLE 

ADDRESS OF OBJECT RIGHTS BLOCK 
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364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 


389 


390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 


409 
410 
411 
412 
413 
414 
415 
416 


«ADDRESS LNMSSYSTEM DIRECTORY 


-LONG 0 
-LONG 0 
-LONG 0 
-ADDRESS LNM_ SYSTEM DIR_LNMTH 
-LONG “*X7FFFFFFF 
-LONG “X7FFFFFFF 
-BYTE LNMX$M_XEND 
-ALIGN QUAD 
LNM_SYSTEM_DIR_ORB: 
-LONG %*X00010004 
-WORD -1,0 
-WORD LNM_SYS_DIR_ORB S12 
-BYTE DYNSC_ORB 
-BYTE 0 
-LONG 0 
-QUAD 0 
-LONG “*X00000008 
-LONG *x00000008 
-LONG “*XO00O00001E 
-LONG “*XOOOOOOL1E 
-LONG 0,0 
-BYTE O[ORBS$S_MIN CLASS] 
-BYTE 0[ORB$S_MAX_CLASS] 
-ALIGN 5 


se Ne Ne we 


se Se Ns 


ADDRESS OF CONTAINING LNMB BLOCK 
ADDRESS OF PARENT TABLE 

ADDRESS OF CHILD TABLE 

ADDRESS OF SIBLING TABLE 

ADDRESS OF TABLE HOLDING QUOTA 
INITIAL QUOTA ( POSITIVE INFINITY ) 
REMAINING QUOTA ( POSITIVE INFINITY ) 


; FLAGS BYTE. NO MORE TRANSLATIONS 


-e Se Ne 


-e Ne Ye Ne 


we Te Se Ve Ve Xe 


=e 


SYSTEM DIRECTORY OWNER IS [1,4] 
INITIALIZE ACL MUTEX 

SIZE OF OBJECT RIGHTS BLOCK 
BLOCK TYPE 

NO ACL AS YET 

ZERO RESERVED WORD & REF COUNT 
OBJECT DOES NOT HAVE AN ACCESS MODE 
SYSTEM PROTECTION IS RWE 

OWNER PROTECTION IS RWE 

GROUP PROTECTION IS R 

WORLD PROTECTION IS R 

NULL INITIAL ACL 

MINIMUM CLASSIFICATION MASK 


MAXIMUM CLASSIFICATION MASK 


LNM_SYS_DIR_ORB SIZ = . - LNM_SYSTEM_DIR_ORB 
LNM SYS _DIR_SIZ = . - LNM$SYSTEM DIRECTORY 


Se Se Ve 


SYSTEM TABLE: 
LONG 
. LONG 
-WORD 
.BYTE 
-BYTE 


- ADDRESS LNM_SYSTEM DIR _LNMTH 


-BYTE 


-ASCIC 


- BYTE 
- BYTE 
- WORD 
- BYTE 


0 

0 

SYSTEM TABLE SIZE 
DYN$C_INM 
PSL$C_KERNEL 


LNMBSM_NO_ALIAS!- 
LNMB$M_TABLE 
LNMS$SYSTEM_TABLE 


LNMX$M_TERMINAL 
LNMX$C_TABLE 

0 
LNMTHS$K_LENGTH 


SYSTEM TABLE LNMTH: 


- BYTE 


LNMTHS$M_SHAREABLE! ~ 


Ne Se Ne Ne 


me Ye we TO 


LNMS$SYSTEM_TABLE - THE SYSTEM LOGICAL NAME TABLE. 


FORWARD LINK 

BACK LINK 

SIZE OF STRUCTURE 

TYPE OF STRUCTURE 

KERNEL ACCESS MODE 

DIRECTORY TABLE HEADER ADDRESS 
TABLE CAN NOT BE ALIASED 

TABLE 


e 
5 
z 
a 


=e Me Me Ye 


se 


FLAGS BYTE. NO MORE TRANSLATIONS 
TRANSLATION INDEX ( SPECIAL TABLE ) 
TRANSLATION HASH CODE 

SIZE OF TABLE HEADER BLOCK 


TABLE IS SHAREABLE 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SWAPPER WORKING SET SWAPPER 10-MAY~1989 17:00:40 VAX. MACRO V5.0-8 Page 9 
X-3503 DECLARATIONS 21-MAR-1989 08: 44:02. (sys. SRC] SWAPPER.MAR;1 (4) 


417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 


436 


437 
438 
439 
440 
441 
442 
443 
444 


445 


446 
447 
448 
449 


LWMTHSM | SYSTEM 
- LONG 0 
-ADDRESS SYSTEM TABLE_ORB 


«ADDRESS SYSTEM TABLE 
-ADDRESS LNM_ SYSTEM DIR_LNMTH 
-LONG 0 
-LONG 0 
“ADDRESS LWM_SYSTEM DIR_LNMTH 
«~ LONG 0 | 

- <LONG 0 

-BYTE LNMXS$M_XEND 


-ALIGN QUAD 
SYSTEM TABLE ORB: 

.LONG “*x00010004 

-WORD -1,0 

-WORD SYSTEM TABLE ORB SIZ 

-BYTE DYNSC_ORB 

-BYTE 0 

-LONG 0 

.QUAD 0 

-LONG *X00000008 

-LONG *X00000008 

.LONG *X0000001E 

.LONG %*X0000001E 

-LONG 0,0 

-BYTE O[ORB$S_MIN CLASS] 

-BYTE 0[ORB$S MAX CLASS] 

-ALIGN 5 


SYSTEM TABLE ORB SIZ = . 


SYSTEM | | TABLE _ SIZE = . - SYSTEM | TABLE 


"ee te Ne Ne 


™e Ve we Te Ne we 


ze 


™e Ye Ne Ne Ne Ne Te Ye Ye Se Ye Ne Vo 


we 


THIS IS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 


INITIAL 


THE SYSTEM LOGICAL NAME TABLE 
OF HASH TABLE 

OF OBJECT RIGHTS BLOCK 

OF CONTAINING LNMB BLOCK 

OF PARENT TABLE 

OF CHILD TABLE 

OF SIBLING TABLE 

OF TABLE HOLDING QUOTA 

QUOTA ( POOLED ) 


REMAINING QUOTA ( POOLED ) 


FLAGS BYTE. NO MORE TRANSLATIONS 


SYSTEM TABLE OWNER IS [1,4] 
INITIALIZE ACL MUTEX 


SIZE OF 


OBJECT RIGHTS aoe 


BLOCK TYPE 

NO ACL AS YET 

ZERO RESERVED WORD & REF COUNT 
OBJECT DOES NOT HAVE AN ACCESS MODE 
SYSTEM PROTECTION IS RWE 

OWNER PROTECTION IS RWE 

GROUP PROTECTION IS R 

WORLD PROTECTION IS R 

NULL INITIAL ACL < 

MINIMUM CLASSIFICATION MASK 


MAXIMUM CLASSIFICATION MASK 


- SYSTEM TABLE ORB 
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451 

452 DECLARE PSECT EXECSPAGED DATA 
453 

454 IMGDESC:.ASCID /SYSINIT.EXE/ ; SYSTEM INITIALIZATION PROCESS 
455 TTODESC:.ASCID /OPAO:/ 

456 

457 ; 

458 ; DESCRIPTORS AND CHARACTER STRING BUFFERS FOR THE LOGICAL NAME TABLE NAMES, 
459 ; LOGICAL NAMES, AND LOGICAL NAME EQUIVALENCE STRINGS THAT ARE CREATED AT 
460 ; SYSTEM INITIALIZATION TIME. 

461 ; 

462 

463 LNM DIRECTORIES DESC: 

464 -ASCID /LNMSDIRECTORIES/ 

465 

466 LNM FILE DEV_ DESC: 

467 -ASCID /LNMSFILE_DEV/ 

468 

469 LNM PERMANENT MAILBOX DESC: 

470 .ASCID /LNMSPERMANENT 1} MAILBOX/ 
471 

472 LNM_SYSTEM DESC: 

473 -LONG LNM SYSTEM LENGTH 

474 . ADDRESS LNM | SYSTEM 

475 

476 LNM SYSTEM DIRECTORY_DESC: 

477 -LONG LNM SYSTEM DIRECTORY _LENGTH 
478 - ADDRESS LNM | SYSTEM | DIRECTORY 
479 

480 LNM TEMPORARY MAILBOX DESC: 

481 -ASCID /LNMSTEMPORARY 1 MAILBOX/ 
482 

483 LOG G DESC: 

484 -LONG LOG _GROUP_LENGTH 

485 -ADDRESS LOG GROUP 

486 

487 LOG P DESC: 

488 -LONG LOG PROCESS LENGTH 

489 -ADDRESS LOG PROCESS 

490 

491 LOG S DESC: 

492 -LONG LOG SYSTEM LENGTH 

493 -ADDRESS LOG SYSTEM 

494 

495 SYS_DISK_DESC: 

496 -ASCID /SYS$DISK/ 

497 

498 SYS _SYSDEVICE_DESC: 

499 -ASCID /SYS$SYSDEVICE/ 


482 
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500 
501 
502 


503 
504 
505 


506 
507 


508 


509 
510 
511 


512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 


527 
528 
529 
530 
531 
532 
533 
534 


535 
536 
537 
538 


539 
540 
541 
542 
543 
544 


TRNLOG GS _ DESC: 
-ASCID /TRNLOG$_GROUP_SYSTEM/ 


TRNLOG PG DESC: 
-ASCID /TRNLOG$_PROCESS_GROUP/ 


TRNLOG PS_DESC: 
-ASCID /TRNLOG$_PROCESS_SYSTEM/ 


TRNLOG PGS DESC: 
-ASCID -/TRNLOG$ PROCESS GROUP_SYSTEM/ 


LNM GROUP: . 
-ASCII /LNMSGROUP/ 
LNM_GROUP_LENGTH = . - LNM_ GROUP 


LNM_JOB: 
-ASCII /LNMSJOB/ 
LNM JOB LENGTH = . - LNM.JOB 


LNM_PROCESS: 
-ASCII /LNMSPROCESS/ 
LNM_PROCESS LENGTH = . - LNM PROCESS 


LNM_PROCESS_DIRECTORY: 
-ASCII /LNMSPROCESS_DIRECTORY/ 


LNM_ PROCESS DIRECTORY_LENGTH = . - LNM PROCESS DIRECTORY 


LNM SYSTEM: > 
-ASCII - /LNMSSYSTEM/ 
LNM SYSTEM LENGTH = . - LNM SYSTEM 


LNM_SYSTEM DIRECTORY: 
-ASCII /LNM$SYSTEM_DIRECTORY/ 


LNM_ SYSTEM DIRECTORY LENGTH = , ~ LNM SYSTEM DIRECTORY 
LNM_SYSTEM_ TABLE: 
-ASCII /LNM$SYSTEM_TABLE/ 
LNM SYSTEM TABLE LENGTH = . - LNM_SYSTEM TABLE 
LOG GROUP: 


«ASCII /LOG$GROUP/ 
LOG_GROUP_LENGTH = . - LOG GROUP 
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LOG PROCESS: 


545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 

558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 


-ASCII /LOGSPROCESS/ 


LOG PROCESS LENGTH = . - LOG PROCESS 


LOG SYSTEM: 


-ASCII /LOGSSYSTEM/ 


LOG SYSTEM LENGTH = . - LOG SYSTEM 


we Ne Vo 


EXEC_MODE: 
KERNEL MODE: 
SUPER_MODE: 
LNM_NO ALIAS: 


TERMINAL BUFFER: 


we Ye Ne Vo 


DIRECTORIES LIST: 


ATTRIBUTE, ACCESS MODE AND ITEM BUFFERS WHICH ARE PASSED BY REFERENCE. 


EXECUTIVE ACCESS MODE BUFFER 


ve 


-LONG PSLS$C_EXEC 


we. 


KERNEL ACCESS MODE BUFFER 
-LONG PSL$C_KERNEL 


SUPERVISOR ACCESS MODE BUFFER 


7e 


-LONG PSLSC_SUPER 


NO_ALIAS ATTRIBUTE BUFFER 


me 


-LONG LNMSM_NO ALIAS 


TERMINAL ATTRIBUTES ITEM BUFFER 


=e 


-LONG LNMS$M_TERMINAL 


ITEM LISTS FOR THE CREATION OF THE LOGICAL NAMES SETUP AT SYSTEM 
INITIALIZATION TIME. 


ITEM LIST FOR LNMSDIRECTORIES 
TERMINAL ATTRIBUTES ITEM 


me Ye 


-WORD 4 

-WORD LNM$ ATTRIBUTES 
-ADDRESS TERMINAL_BUFFER 
-LONG 0 


-WORD LNM PROCESS DIRECTORY_LENGTH ; LNM$PROCESS DIRECTORY STRING ITEM 
-WORD LNM$_ STRING 

-ADDRESS LNM_PROCESS_DIRECTORY 

-LONG 0 | 


-WORD LNM SYSTEM DIRECTORY_LENGTH ; LNMSSYSTEM DIRECTORY STRING ITEM 


-WORD LNMS$_STRING 
-ADDRESS LNM SYSTEM DIRECTORY ° 
-LONG 0 | 
-LONG 0 ; END OF ITEM LIST 
FILE_DEV_SUPER_LIST: ; ITEM LIST FOR SUPERVISOR LNMSFILE_DEV 
-WORD LNM PROCESS LENGTH 7 LNMSPROCESS STRING ITEM 


-WORD LNMS$ STRING _ 
-ADDRESS LNM_ PROCESS 
-LONG 0 


- WORD LNM_JOB_ LENGTH LNMSJOB STRING ITEM 


we 
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602 
603 
604 
605 


606 > 


607 
608 
609 
610 
611 
612 
' 613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 


-WORD LNM$_ STRING 
.ADDRESS LNM_JOB 
-LONG 0 


-WORD LNM_GROUP_LENGTH 
-WORD LNMS STRING 
-ADDRESS LNM_ GROUP 

.LONG 0 


-WORD LNM SYSTEM LENGTH 
-WORD LNM$ STRING 
-ADDRESS LNM_SYSTEM 

-LONG 0 


- LONG 0 


FILE DEV_EXEC_LIST: 
PERMANENT MAILBOX_LIST: 


-WORD LNM SYSTEM LENGTH 
-WORD LNMS STRING 
-ADDRESS LNM SYSTEM 

-LONG 0 


- LONG 0 


LOG _G LIST: 


-WORD LNM_GROUP_LENGTH 
-WORD LNMS_ STRING 
.ADDRESS LNM_GROUP 

-LONG 0 


- LONG 9) 


LOG_P_LIST: 


-WORD LNM PROCESS LENGTH 
-WORD LNMS_ STRING 
-ADDRESS LNM PROCESS 

-LONG 0 


-WORD LNM_JOB_ LENGTH 
-WORD LNMS$ STRING 
.ADDRESS LNM_JOB 

-LONG 0 


- LONG 0 


LOG_S_LIST: 


- WORD LNM_SYSTEM_LENGTH 
«WORD LNM$_STRING 
-ADDRESS LNM_SYSTEM 

- LONG 0 


- LONG 0 


SYSTEM_LIST: 


-» WORD 4 
.WORD LNMS$_ATTRIBUTES 


<0 we 


=e 


™e Se Ye 


me Se 


~e Ye 


we 


=e 8 


=e Ne 


LNMSGROUP STRING ITEM 


LNMSSYSTEM STRING ITEM 


END OF ITEM LIST 
ITEM LIST FOR EXECUTIVE LNMSFILE DEV 


ITEM LIST FOR LNM$PERMANENT_MAILBOX 
LNMSSYSTEM STRING ITEM 


END OF ITEM LIST 


ITEM LIST FOR LOGSGROUP 
LNMSGROUP STRING ITEM 


END OF ITEM LIST 


ITEM LIST FOR LOGSPROCESS 
LNMSPROCESS STRING ITEM 


LNMSJOB STRING ITEM 


END OF ITEM LIST 


ITEM LIST FOR LOG$SYSTEM 
LNMSSYSTEM STRING ITEM 


END OF ITEM LIST 


ITEM LIST FOR LNMSSYSTEM 
TERMINAL ATTRIBUTES ITEM 


485 
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659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
7102 
703 
704 
705 
706 
107 
708 
709 
710 
711 
712 
713 
714 
715 


-ADDRESS TERMINAL BUFFER 
- LONG 0 


- WORD LNM_SYSTEM_TABLE_LENGTH 


-WORD LNMS STRING 
-ADDRESS LNM_SYSTEM_TABLE 
.LONG 0 


- LONG 0 


TEMPORARY MAILBOX_LIST: 


-WORD LNM_JOB_ LENGTH 
»WORD LNM$_STRING 
.ADDRESS LNM_JOB 

-LONG 0 


- LONG 0 


TRNLOG GS_LIST: 


-WORD LOG GROUP_LENGTH 
-WORD LNMS$_ STRING 
.ADDRESS LOG GROUP 

-LONG 0 


-WORD LOG SYSTEM LENGTH 
-WORD LNM$_STRING 
-ADDRESS LOG SYSTEM 

-LONG 0 


- LONG 0 


TRNLOG PG LIST: 


-WORD LOG PROCESS_LENGTH 
-WORD LNMS$ STRING 
-ADDRESS LOG PROCESS 

-LONG 0 


-WORD LOG GROUP_LENGTH 
.WORD LNMS$ STRING 
-ADDRESS LOG GROUP 

.LONG 0 


- LONG 0 


TRNLOG PS LIST: 


.WORD LOG PROCESS LENGTH 
-WORD LNMS STRING 
-ADDRESS LOG PROCESS 

-LONG 0 


»- WORD LOG SYSTEM_LENGTH 
- WORD LNMS$_ STRING 
-ADDRESS LOG SYSTEM 

» LONG 0 


- LONG 0 


ce 


=e Se 


we 


=e Ye 


me 


we Ye 


we 


=e 


ee fe 


we 


we 


LNMSSYSTEM TABLE STRING ITEM 


END OF ITEM LIST 


ITEM LIST FOR LNMSTEMPORARY_MAILBOX 
LNMSJOB STRING ITEM 


END OF ITEM LIST 


ITEM LIST FOR TRNLOGS$ _GROUP_SYSTEM 
LOGSGROUP STRING ITEM 


LOGSSYSTEM STRING ITEM 


END OF ITEM LIST 


ITEM LIST FOR TRNLOG$ PROCESS GROUP 
LOGSPROCESS STRING ITEM 


LOGSGROUP STRING ITEM 


END OF ITEM LIST 


ITEM LIST FOR TRNLOG$ PROCESS SYSTEM 
LOGSPROCESS STRING ITEM 


LOGSSYSTEM STRING ITEM 


END OF ITEM LIST 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SWAPPER WORKING SET SWAPPER 10-MAY-1989 17:00:40 VAX MACRO V5.0-8 Page 15 
X-35U03 DECLARATIONS 21-MAR-1989 08:44:02 [SYS.SRC]SWAPPER.MAR;1 (6) 


716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
7129 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 


TRNLOG PGS _LIST: 
. WORD 
WORD 


LOG PROCESS LENGTH - 
LNMS _ STRING 


ITEM LIST FOR TRNLOG$ PROCESS GROUP_SYSTEM 
LOG$PROCESS STRING ITEM 


=e 


- ADDRESS LOG PROCESS 


- LONG 0 


- WORD 


LOG _GROUP_LENGTH 


LOGSGROUP STRING ITEM 


ve 


-WORD  LNMS_STRING 

-ADDRESS LOG _GROUP 

- LONG 0 

«WORD LOG_SYSTEM_LENGTH + LOGSSYSTEM STRING ITEM 
- WORD LNMS _ STRING 

- ADDRESS LOG SYSTEM 

- LONG 0 

- LONG 0 7 END OF ITEM LIST 


se Me Se Se Se Ne 


DIRECTORIES ARG: 
SCRELNM - 
ACMODE 
ATTR 
ITMLST 
LOGNAM 
TABNAM 


FILE DEV_EXEC_ARG: 
$CRELNM - 

ACMODE 

ITMLST 

LOGNAM 

TABNAM 


FILE DEV_SUPER_ARG: 
SCRELNM - 
ACMODE 
ITMLST 
LOGNAM 
TABNAM 


LOG _G_ARG: 
$CRELNM - 
ACMODE 
ITMLST 
LOGNAM 
TABNAM 


LOG P_ ARG: 
$CRELNM 


ACMODE 


ARGUMENT LISTS FOR THE SCRELNMS. THIS SYSTEM SERVICES CAN NOT BE DIRECTLY 

ISSUED AT SYSTEM INITIALIZATION BECAUSE THE SWAPPER DOES NOT HAVE A Pl SPACE 
WITH SYSTEM SERVICE VECTORS; 
ARGUMENT LIST FOR EACH AND EVERY DIRECT CALL. 


HOWEVER, IT MAYBE CALLED DIRECTLY. SETUP AN 


; ARGUMENT LIST FOR LNMSDIRECTORIES 


KERNEL MODE, - 

LNM_NO ALIAS, - 
DIRECTORIES LIST, - 

LNM DIRECTORIES DESC, - 
LNM_ SYSTEM DIRECTORY _DESC 


3; ARGUMENT LIST FOR EXECUTIVE LNMSFILE DEV 


EXEC MODE, - 

FILE _DEV_EXEC_LIST, - 

LNM | FILE _DEV_| DESC, - 

LNM _ SYSTEM | DIRECTORY _| DESC 


: ARGUMENT LIST FOR SUPERVISOR LNMSFILE_DEV 
SUPER_MODE, - 
FILE _DEV_SUPER LIST, - 
LNM FILE DEV_DESC, - 
LNM_SYSTEM DIRECTORY _DESC 
: ARGUMENT LIST FOR LOG$GROUP 
KERNEL MODE, - 
LOG G LIST, - 
LOG G DESC, - 
LNM_ SYSTEM DIRECTORY DESC 
; ARGUMENT LIST FOR LOG$PROCESS 


KERNEL MODE, - 
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773 
774 
775 
776 
777 
778 
1719 
780 
781 
782 
783 
784 
785 | 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
7197 
7198 
“799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 


ITMLST 
LOGNAM 
TABNAM 


LOG_S ARG: 
$CRELNM 


ACMODE 
ITMLST 
LOGNAM 
TABNAM 


PERMANENT MAILBOX ARG: 
$CRELNM - 

ACMODE 

ITMLST 

LOGNAM 

TABNAM 


SYSTEM ARG: 
SCRELNM - 
ACMODE 
ATTR 
ITMLST 
LOGNAM 
TABNAM 


‘TEMPORARY _MAILBOX_ARG: 


SCRELNM - 
ACMODE 
ITMLST 
LOGNAM 
TABNAM 


TRNLOG _GS_ ARG: 
S$CRELNM - 
ACMODE 
ITMLST 
LOGNAM 
TABNAM 


TRNLOG PG ARG: 
$CRELNM 


ACMODE 
ITMLST 
LOGNAM 
TABNAM 


TRNLOG PS ARG: 
$CRELNM - 

ACMODE 

ITMLST 

LOGNAM 

TABNAM 


TRNLOG PGS ARG: 
SCRELNM - 
ACMODE 
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LOG P LIST, - 
LOG P DESC, - 
LNM_SYSTEM DIRECTORY _DESC 


7 ARGUMENT LIST FOR LOGSSYSTEM 


KERNEL MODE, - 
LOG S$ LIST, - 
LOG_S DESC, - 
LNM_SYSTEM DIRECTORY _DESC 


; ARGUMENT LIST FOR LNMSPERMANENT MAILBOX 


KERNEL _MODE, - 

PERMANENT | MAILBOX_LIST, - 
LNM_| PERMANENT | MAILBOX DESC, - 
LNM | SYSTEM | DIRECTORY _| DESC 


; ARGUMENT LIST FOR LNMSSYSTEM 


KERNEL MODE, - 

LNM_NO ALIAS, - 

SYSTEM LIST, - 
LNM_SYSTEM DESC, - 
LNM_SYSTEM DIRECTORY _DESC 


: ARGUMENT LIST FOR LNMSTEMPORARY_MAILBOX 


KERNEL MODE, - 

TEMPORARY _MAILBOX_LIST, - 
LNM_TEMPORARY MAILBOX DESC, - 
LNM_ SYSTEM DIRECTORY_DESC 


; ARGUMENT LIST FOR TRNLOGS$_GROUP_SYSTEM 


KERNEL MODE, - 

TRNLOG GS_LIST, - 
TRNLOG GS DESC, - 
LNM_SYSTEM_DIRECTORY_DESC 


; ARGUMENT LIST FOR TRNLOG$ PROCESS GROUP 
KERNEL MODE, - 
TRNLOG PG LIST, - 
TRNLOG PG DESC, - 
LNM_SYSTEM DIRECTORY DESC 
; ARGUMENT LIST FOR TRNLOG$ PROCESS_SYSTEM 
KERNEL MODE, - | 
TRNLOG PS LIST, - 
TRNLOG PS DESC, - 
LNM_ SYSTEM DIRECTORY_DESC 
; ARGUMENT LIST FOR TRNLOG$ PROCESS GROUP_SY 


KERNEL MODE, - 
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930 
831 
832 
833 
$34 
835 
836 
837 
838 
839 
840 
841 
642 
843 
844 
645 
846 
847 
848 


ITMLST 
LOGNAM 
TABNAM 


= TRNLOG PGS LIST, - 
= TRNLOG PGS DESC, - 
= LNM_SYSTEM DIRECTORY _DESC 


DECLARE_PSECT EXECSNONPAGED_DATA, ALIGNMENT=PAGE 


SYS_DISK_ARG: 
SCRELNM - 

ACMODE 

LOGNAM 

TABNAM 


SYS$_SYSDEVICE_ARG: 
S$CRELNM - 
ACMODE 
LOGNAM 
TABNAM 


3 WRITABLE PSECT 
+ ITMLST MUST BE FOLLOWING TWO CRELNM 


; ARGUMENT LIST FOR SYSS$DISK 
= EXEC_MODE, - 
= SYS _DISK_DESC, - 
= LNM_ SYSTEM DESC 


; ARGUMENT LIST FOR SYSS$SYSDEVICE 


EXEC_MODE, - 
SYS _SYSDEVICE_DESC, - 
LNM_SYSTEM_DESC 
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850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 


490 


DECLARE PSECT EXECSPAGED_DATA 


=e Me 


IS MENTIONED EXPLICITLY. 


TO THE END OF THE LIST. 


we Ne Se Ne Ne Ne 


=e 


INCLUDE THE LIST TERMINATOR. 


me Ve 


UNIVERSAL_SYMBOL 


PQLSAB_SYSPQL: 


-BYTE PQLS$ ASTLM 

-LONG 10 
-BYTE PQLS$_BIOLM 
-LONG 10 
-BYTE PQLS$ BYTLM 
-LONG 32768 
-BYTE PQLS CPULM 
-LONG 0 
-BYTE PQLS_DIOLM 
-LONG 10 
-BYTE PQLS FILLM 
-LONG 60 
-BYTE PQLS$ PGFLQUOTA 
-LONG 20000 
-BYTE PQL$_PRCLM 
-LONG 8 
-BYTE PQLS$_TQELM 
-LONG 8 
-BYTE PQLS$ WSDEFAULT 
-LONG 100 
-BYTE POQLS WSQUOTA 
-LONG 200 
-BYTE PQLS$ WSEXTENT 
-LONG 1000 
-BYTE PQLS$ ENQLIM 
-LONG 100 
-BYTE PQLS$ JTQUOTA 
-LONG 1024 

10S: -BYTE POQLS$_LISTEND 

PQLSC_SYSPQLLEN == 


LIKE 


PQLSAR_SYS 


me Ye Ye TO % 


ve 


we 


we Ne Ne 


me =e xe we =e we we ™e 


we 


10$ - PQLSAB_SYSPQL ; 


DEFINE A QUOTA LIST TO BE USED BY VARIOUS PIECES OF THE SYSTEM WHEN 
CREATING A SPECIAL. SYSTEM PROCESS, 


A FILES-11 ACP. -EVERY QUOTA 


NOTE THAT THIS LIST CAN BE TAILORED BY 
COPYING IT TO SOME TEMPORARY LOCATION AND APPENDING NEW QUOTA ITEMS 
THE $CREPRC SYSTEM SERVICE USES THE LAST 
VALUE OF A SPECIFIED QUOTA IN THE LIST WHEN IT CREATES A PROCESS. 

NOTE THAT THE END OF THE LIST MUST BE TERMINATED BY A ZERO BYTE, 

AND THAT THE LENGTH OF THE LIST, AS GIVEN BY PQLSC_SYSPQLLEN, DOES NOT 


POL 

This is the name of the pointer 
used by other modules 

This is the name used by SWAPPER 
SYSTEM PROCESS QUOTA LIST 
PROCESS AST LIMIT 


PROCESS BUFFERED I/O LIMIT 
PROCESS BUFFERED I/O BYTE LIMIT 
PROCESS CPU TIME LIMIT 

ZERO IMPLIES NO LIMIT 

PROCESS DIRECT I/O LIMIT 
PROCESS OPEN FILE LIMIT 
PROCESS PAGE FILE QUOTA 
PROCESS SUBPROCESS CREATION LIMIT 
PROCESS TIMER QUEUE ENTRY LIMIT 
PROCESS DEFAULT WORKING SET SIZE 
PROCESS WORKING SET QUOTA 
PROCESS WORKING SET EXTENT LIMIT 
PROCESS LOCK LIMIT 

JOB-WIDE LOGICAL NAME TABLE QUOTA 


END OF PROCESS QUOTA LIST 


The length of the SYSPQL list (given by the constant PQLSC_SYSPOQLLEN) 
will be stuffed into the PQL$GL_SYSPQLLEN cell, which resides in the base 
image, by the swapper’s initialization routine. 


LENGTH OF LIST (MINUS TERMINATOR) 
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907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 


POQL$AB_SYSPQL_ ALT: 


- LONG 
-BYTE 
«LONG 
-BYTE 
- LONG 
- BYTE 
- LONG 
- BYTE 
- LONG 
- BYTE 
- LONG 
. «BYTE 
- LONG 
-BYTE 
- LONG 
-BYTE 
- LONG 


ASSUME 
-BYTE 
. LONG 
-BYTE 


. LONG 


-BYTE 
- LONG 
-BYTE 
- LONG 
- BYTE 
- LONG 
-BYTE 


PQLS$_ASTLM 
<<1@15>-1> 
POLS _BIOLM 
<<1@15>-1> 
PQL$_BYTLM 
<<1@15>-1> 
PQLS_CPULM 
0 

PQL$ DIOLM 
<<1@15>-1> 


POLS FILLM 


<<1@15>-1> 


PQLS PGFLQUOTA 
<<<1@31>-1>/512> 


PQL$_PRCLM 
<<1@15>-1> 
PQL$_TOELM 
<<1@15>-1> 


PTESS PFN GE 16 
PQLS$ WSDEFAULT 


<<1@16>~1> 


PQL$ WSQUOTA 
~<€<1@16>-1> 


POQL$ _WSEXTENT 

<<1@PTE$S_PFN>-1> 
POQLS_ENQLM 
<<1@15>-1> 
PQL$_JTQUOTA 


<<1@15>-1> 


PQL$_LISTEND 


-e Ne Ne 


se Ye Ye ve 


we ze 


me 


—e 


we 


we =e LT) 


xe 


POL list used to run stand-alone 
application (typically, SA BACKUP) 
PROCESS AST LIMIT 


PROCESS 


PROCESS 


PROCESS 


BUFFERED I/O LIMIT 
BUFFERED I/O BYTE LIMIT 


CPU TIME LIMIT 


ZERO IMPLIES NO LIMIT 


PROCESS 
PROCESS 
PROCESS 
PROCESS 


PROCESS 


PROCESS 


‘PROCESS 


PROCESS 


PROCESS 


DIRECT I/O LIMIT 
OPEN FILE LIMIT 
PAGE FILE QUOTA 
SUBPROCESS CREATION LIMIT 


TIMER QUEUE ENTRY LIMIT 
DEFAULT WORKING SET SIZE 
WORKING SET QUOTA 


WORKING SET EXTENT LIMIT 


LOCK LIMIT 


JOB-WIDE LOGICAL NAME TABLE QUOTA 


END OF PROCESS QUOTA LIST 
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945 -SBTTL EXESSWAPINIT - INITIALIZATION AND STARTUP FOR SWAPPER 
946 
947 3++ 
948 ; FUNCTIONAL DESCRIPTION: 
949 ; EXESSWAPINIT IS ENTERED WHEN THE SWAPPER PROCESS IS FIRST 
950 ; SCHEDULED AFTER A SYSTEM BOOT/STARTUP. THIS TRANSFER OCCURS 
951 ; VIA THE INITIAL PC VALUE BUILT INTO THE HARDWARE PCB FOR THE 
952 ; SWAPPER PROCESS. R4 CONTAINS THE ADDRESS OF THE SWAPPER PCB. 
953 ; 
954 ;-- 
955 DECLARE_PSECT EXECSPAGED_CODE 
956 io 
957 UNIVERSAL_SYMBOL EXESSWAP INIT 
958 ;EXESSWAPINIT:: 3; SWAPPER INITIALIZATION 
959 BBSS #BOOSTATESV_SWAPPER, - 7 INDICATE THAT WE’RE IN THE SWAPPER™ 
960 G“EXESGL §TATE, 1$ 
961 18: CLRL PCBSL_WSSWP (R4) 3 Initialize mapping window for 
962 MOVL #<<1@31>!SWP$C_SHELLSIZ>,- ; SHELL read I/O 
963 PCBSL_SWAPSIZE (R4) 7 (Bit 31 is END OF WINDOW flag) 
964 ; ; 
965 ; INITIALIZE PAGED POOL. 
966 ; 
967 MOVL G*EXESGL_PAGED, R11 ? POINT TO START OF PAGED POOL 
968 CLRL (Ril) + ? ZAP FORWARD LINK 
969 MOVL G“SGNSGL_PAGEDYN, (R11) 3; AND SET SIZE 
970 
971 ; 
972 ; IF THE SYSTEM DISK IS A SHADOW SET, WAIT FOR THE DISK CLASS DRIVER TO 
973 ; CREATE THE SHADOW SET BEFORE INITIALIZING LOGICAL NAME DATA STRUCTURES. 
974 ; . 
975 28: MOVL G“*EXESGL_RPB, RO 3; Get RPB address. 
976 MOVW RPBSL_BOOTR3+2 (RO) , R3 3; Get high word of boot R3. 
977 BGEQ 4$ 7 If GEQ, not shadowed system disk. 
978 MOVL G“EXESGL_SYSUCB,R1 ; Get system disk’s UCB address. 
979 CMPW UCBSW_MSCPUNIT (R1) , R3 ? Is the system disk a shadow set ? 
980 BNEQ 2s ? If NEQ, busy loop. 
981 48: 
982 
983 ; 
984 ; CALL ALL LOADED SYSTEM IMAGE’S INITIALIZATION ROUTINES AGAIN. THIS IS 
985 ; SO THAT ANY .ADDRESS FIXUPS IN PAGED CODE CAN BE DONE AT THIS TIME. 
986 ; 
987 CALLS #0,G“LDRSINIT_ALL 
988 
989 ; 
990 ; ALLOCATE LOGICAL NAME HASH TABLE. THE NUMBER OF ENTRIES IN THE HASH TABLE 
991 ; MUST BE A POWER OF TWO. SO THE ALLOCATED SIZE IS THE SMALLEST POWER OF 
992 ; TWO LARGER THAN THE SYSGEN PARAMETER. 
993 ; 
994 “MOVL G“LNMSAL_HASHTBL, R8 ; GET POINTER TO HASH TABLE 
995 PUSHL (R8) 7; SAVE ADDR OF CRELNM ITMLST BLOCKS FOR 
996 + SYSSDISK AND SYSSSYSDEVICE 
997 MOVL #1, R8 3 DO THIS TWICE 
998 40S: SUBL3 #1,G*LNMSGL HTBLSIZS[R8],R7 ; PICK UP ONE LESS THAN SYSGEN PARM 
999 CVTLF R7,R7 7 CONVERT TO FLOATING 
1000 EXTZV #7,4#7,R7,R7 3 PICK UP EXPONENT-NOW THE POWER OF 2 
1001 CLRL R1 7; CLEAR A REGISTER 


492 
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1002 
1003 
16004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 


$0: MOVL 


=e Ye %e 


Se Ne 


ee Ve 


we 


-e Ne Ye 


SOBGEQ 


R7,R1,50$ ? THE SIZE OF THE TABLE ROUNDED UP 
Rl, G*LNMSGL _ HTBLSIZS(R8); WRITE BACK THE CORRECT VALUE 
R8,40$ # LOOP TWO TIMES 


INITIALIZE THE SYSTEM SPACE HASH TABLE. 


MOVL 
MOVAL 
J3B 
PUSHR 
mMovcs 
POPR 


SUBL3 
MCOML 
MOVW 
MOVB 


MOVL 
MOVAB 


SIZE OF TABLE IN ENTRIES 
MULT BY 4 AND ADD OVERHEAD 


G“LNMSGL_HTBLSIZS, R1 
@#LNMHSHSK BUCKET[R1],R1 


G*EXESALOPAGED ALLOCATE MEMORY 

#°M<R1,R2> SAVE REGISTERS DESTORYED BY MOVC5 
#0, #0, #0,R1, (R2) ZERO HASH TABLE 

#°M<R1,R4> RESTORE REGISTERS DESTORYED BY MOVC5S 


we Ye Ye Me Ne we Yo 


NOTE: tHAT R2 COMES BACK AS R4 
#1,G°LNM$GL_HTBLSIZS,RO ; CALC UPPER BOUND OF HASH INDEX 

RO, LNMHSHSL_MASK (R4) ; STORE HASH INDEX MASK 

R1, LNMHSHSW_SIZE(R4) ; STORE SIZE IN STRUCTURE HEADER 
#DYNSC_RSHT, LNMHSHSB_TYPE (R4) 

STORE STRUCTURE TYPE 

POINTER TO BASE OF TABLE 

STUFF WAY POINTER TO TABLE 

NOTE: THAT THE HASH TABLE HAS BEEN 
INITIALIZED TO ZERO 


G*LNMSAL_HASHTBL, R3 
(R4), (R3) 


we Ne Ne Ye Ne 


FIX UP THE SYSTEM LOGICAL NAME DIRECTORY, AND INSERT IT IN INTO THE 
APPROPRIATE HASH BUCKET OF THE SHAREABLE LOGICAL NAME HASH TABLE. 


LNMS$ SYSTEM_DIRECTORY, R3 

(R4),LNM_ SYSTEM | DIR p aTEE See HASH 

HASH TABLE ADDRESS IN LNMTH 
LNMBST_NAME (R3) , RO + GET SIZE OF DIRECTORY NAME 
LNMBST_NAME+1(R3),R1 3 GET ADDRESS OF DIRECTORY NAME 


we 


G*LNMSHASH HASH THE DIRECTORY NAME 
LNMHSH$L_MASK(R4) , RO MODIFY THE INDEX TO BE IN RANGE 
(R3), LNMHSH$C_BUCKET (R4) [RO] 

: INSERT DIRECTORY LNMB IN HASH TABLE 
LNMHSHS$C_BUCKET (R4) [RO], LNMBSL_BLINK(R3) 

: INSERT HASH TBL ENTRY IN DIRECT LNMB 


FIXUP THE SYSTEM LOGICAL NAME TABLE, LNMS$SYSTEM TABLE, AND INSERT IT INTO THE 
APPROPRIATE HASH BUCKET OF THE SYSTEM LOGICAL NAME HASH TABLE. 


MOVL 
MOVL 


CLRI 
JSB 
MOVAL 


RETRIEVE SYSTEM TABLE LNMB ADDRESS 
POINTER TO BASE OF TABLE 

MOVE. THE ADDRESS OF THE SHAREABLE 
LOGICAL NAME HASH TABLE INTO THE 
SYSTEM TABLE’S TABLE HEADER 

R2 NO SPECIAL INSERTION ATTRIBUTES 
G*LNMS INSLOGTAB APPROPRIATELY INSERT LNM$SYSTEM TABLE 
W*LNMS$ SYSTEM _DIRECTORY,-; Fix up LNMSAL | DIRTBL’s pointer to 
G*LNMSAL | DIRTBL+8 ; LNMSSYSTEM | DIRECTORY 


SYSTEM TABLE, R1 
G*LNMSAL_HASHTBL, R2 
(R2),- 

SYSTEM _TABLE_LNMTH+- 
LNMTHS$L_HASH — 


=e Se Se Ve Ve Re Ve 


CREATE THE SYSTEM LOGICAL NAMES, CONTAINED WITHIN THE SYSTEM DIRECTORY TABLE, 
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1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 


e 
o 


e 
° 


ee 


- ALL OF WHICH MUST BE CREATED AT SYSTEM INITIALIZATION TIME. 


CALLG - 

DIRECTORIES ARG, - 

@#SYS$SO_VECTOR BASE + 
CALLG - 

FILE _DEV_EXEC_ARG, - 

@#SYS$SO_VECTOR BASE + 
CALLG - 

FILE _DEV_SUPER_ARG, - 

@#SYS$SO VECTOR BASE + 
CALLG - 

LOG_G ARG, - 

@#SYS§$SO_VECTOR BASE + 
CALLG - 

LOG_P_ARG, - 

@#SYS$SO_VECTOR BASE + 
CALLG - 

LOG_S ARG, - 

@#SYS$SO_ VECTOR BASE + 
CALLG - 

PERMANENT MAILBOX _ARG, 

@#SYS$SO_VECTOR_BASE + 
CALLG - 

SYSTEM_ARG, - 

@#SYS$SO_VECTOR_BASE + 
CALLG - 

TEMPORARY_MAILBOX_ARG, 

@#SYS$SO_VECTOR BASE + 
CALLG - 

TRNLOG GS_ARG, - 

@#SYS$SO_ VECTOR BASE + 
CALLG - 

TRNLOG PG ARG, - 

@#SYS$SO_VECTOR_BASE + 
CALLG - 

TRNLOG PS ARG, - 

@#SYS$SO_VECTOR BASE + 
CALLG - 


TRNLOG PGS ARG, - 
@#SYS$SO_| VECTOR _| BASE + 


CREATE TWO STARTUP LOGICAL NAMES. 


; CREATE LNMSDIRECTORIES 
BASESEXESK_CRELNM 

; CREATE EXECUTIVE LNMSFILE_DEV 
BASESEXES$K_CRELNM 

7 CREATE SUPERVSIOR LNMSFILE_ DEV 
BASESEXESK_CRELNM 

; CREATE LOGS$GROUP 
BASESEXE$K_CRELNM 

; CREATE LOGSPROCESS 
BASESEXESK_CRELNM 

; CREATE LOGS$SYSTEM 
BASESEXESK_CRELNM 

; CREATE LNMSPERMANENT MAILBOX 
BASESEXE$K_CRELNM 

; CREATE LNMSSYSTEM 
BASESEXES$K_CRELNM 


; CREATE LNMSTEMPORARY MAILBOX 


BASESEXE$K_CRELNM 

; CREATE TRNLOG$ GROUP_SYSTEM 
BASE$EXESK_CRELNM 

; CREATE TRNLOG$ PROCESS_GROUP 
BASESEXE$K_CRELNM 

; CREATE TRNLOG$ PROCESS SYSTEM 
BASESEXE$K_CRELNM 

; CREATE TRNLOG$ PROCESS _GROUP_SYSTEM 


BASESEXES$K_CRELNM 
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1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 


es 
ec 


me Ve Ye we Me Ne Ye 


xe 


se Ne 


™e Se Ne Me Se fe 


me Ye Ve Xe Veo Ve Vo 


POPL R4 : + RECOVER ADDR OF CRELOG BLOCK 


CRELOG BLOCK CONTENTS: 

BYTE 0 - SIZE OF BOTH ITEM LISTS AND ASSOCIATED DATA | 
BYTE 1 - OFFSET FROM START OF BLOCK TO SECOND ITEM LIST 
BYTES 2,3 - PAD BYTES TO LONGWORD ALIGN ITEM LISTS . 
BYTE 4 - START OF FIRST ITEM LIST FOR #CRELNM 


MOVAL 4(R4), sys |_DISK _ARG+CRELNMS_ ITMLST 

; STUFF THE ADDRESS OF THE ITEM LIST 
MOVZBL 1(R4),RO ? GET OFFSET TO SYSDEVICE ITEM LIST 
MOVAB (R4) [RO], SYS_SYSDEVICE_ARG+CRELNM$_ITMLST 

; STUFF THE ADDRESS OF THE ITEM LIST 


CALLG - ; CREATE SYS$DISK 
SYS _DISK_ARG, - 
@#SYS$SO_VECTOR_BASE + BASESEXES$K_CRELNM 


CALLG - ? CREATE SYSS$SYSDEVICE 
SYS_SYSDEVICE_ARG, - 
@#SYS$SO_VECTOR_BASE + BASESEXES$K_CRELNM 


MOVZBL (R4),R1 
MOVL R4,R0 
JSB G“EXESDEANONPGDSIZ 


GET THE SIZE OF THE STRUCTURE 
MOVE STRUCTURE ADDR INTO CORRECT REG 
RETURN THE MEMORY 


ee Se Ve 


CREATE INITIAL PROCESSES 


THE $CREPRC_S MACRO CANNOT BE USED BECAUSE THAT MACRO GENERATES A 
CALL THROUGH THE P1 SYSTEM SERVICE VECTOR PAGES AND THE SWAPPER DOES 
NOT HAVE A Pl SPACE. tHE SENSE OF THE CREATE PROCESS CALL IS THE 
FOLLOWING. 


SCREPRC_S INPUT=TTODESC, - ; 
OUTPUT=TTODESC, - 
ERROR=TTODESC, - 
IMAGE=IMGDESC, - 
UIC=#*X80020, - 
STSFLG=#<PRC$M_NOACNT! PRC$M_SSRWAIT>, - 
BASPRI=#2, - ; 
QUOTA=PQLSAB_SYSPQL ; 


se Ne 


eo Ne 


ASSUME <CREPRC$_STSFLG/4> EQ 12 
PUSHL #<PRCSM_NOACNT!PRCS$M_SSRWAIT> 
ASSUME <CREPRCS$_MBXUNT/4> EQ 11 
CLRL ~ (SP) 


ASSUME <CREPRCS$_UIC/4> EQ 10 
PUSHL #*X80020 . 


ASSUME <CREPRC$_BASPRI/4> EQ 9 
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1173 


_ 1174 


1175 
1176 
1177 
1178 
1179 
1160 
1181 
1182 
1183 
1164 
1185 
1186 
(1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 


60$ 


PUSHL 


ASSUME 
CLRL” 


ASSUME 
PUSHAB 
BBC 
MOVAB 


ASSUME 
PUSHL 


ASSUME 
PUSHAQ 


ASSUME 
PUSHL 


ASSUME 
PUSHL 


ASSUME 
PUSHAQ 


ASSUME 
PUSHL 


CALLS 


#2 

<CREPRC$_PRCNAM/4> EQ 8 

- (SP) 

<CREPRC$_QUOTA/4> EQ 7 

PQLSAB_SYSPQL 

S“#EXESV_SA_APP,- | 7 If stand-alone application 


G“EXES$GL_STATIC_FLAGS,60$ ; being booted, 
PQLSAB_SYSPQL ALT, (SP) ; use alternate POL 


<CREPRC$_PRVADR/4> EQ 6 
#0 : 
<CREPRC$_ERROR/4> 8 EQ 5 
TTODESC 

<CREPRC$_OUTPUT/4> EQ 4 
(SP) 

<CREPRC$_INPUT/4> EQ 3 
(SP) 

<CREPRC$_IMAGE/4> EQ 2 
IMGDESC 

<CREPRC$_PIDADR/4> EQ 1 
#0 


#12,@#SYS$SO_VECTOR_BASE + BASESEXE$K_CREPRC 
G*LOOP ; JUMP OFF TO THE MAIN LOOP 
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1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 


-SBTTL SWAPPER ~ MAIN LOOP 
3++ 
7 FUNCTIONAL DESCRIPTION: 
; THE MAIN LOOP OF THE SWAPPER IS EXECUTED WHENEVER THE SWAPPER IS AWAKENED 
; FOR ANY REASON. EACH OF THE FUNCTIONAL ROUTINES WILL CHECK TO SEE IF 
; THEY HAVE ANY ACTION TO PERFORM. 
7 
DECLARE_PSECT EXECSNONPAGED_CODE # NON-PAGED PSECT 
LOOP : BSBW BALANCE ? BALANCE FREE PAGE COUNT 
JSB G“MMGSWRTMF YPAG ; WRITE MODIFIED PAGES 
BSBW SWAPSCHED # SCHEDULE SWAP 
TSTL G“EXESGL_PFATIM 3 CHECK FOR POWER FAIL TIME 
BEQL 20$ + BRANCH IF NO POWERFAIL 
SETIPL #IPL$_ASTDEL ? Lower IPL 
JSB G“EXESPOWERAST + GIVE ANY REQUIRED POWER FAIL ASTS 
20$: 
FIND_CPU_DATA R4 # GET THIS CPU’S PER-CPU DATABASE 
MOVL CPUSL_CURPCB(R4),R4 7 GET PROPER PCB ADDRESS 
MOVAQ G*SCHS$GQ_HIBWOQ, R2 ? AND ADDRESS OF WAIT QUEUE HEADER 
3 Lock SCHED database 
LOCK LOCKNAME=SCHED, - 3 LOCK SCHED DATABASE 
PRESERVE=NO 7 OK to destroy RO 
BBSC #PCBSV_WAKEPEN, PCBSL_STS(R4),40$ ; TEST AND CLEAR WAKE PENDING 
PUSHL #0 ? NULL PSL 
JSB G“SCHSWAITK 7 WAIT WITH STACK CLEAN 
BRW LOOP | 7 CHECK FOR WORK TO DO (ON WAKEUP) 
408: UNLOCK LOCKNAME=SCHED, - 7 UNLOCK SCHED DATABASE 
NEWIPL=40, - 3 LOWER IPL 
PRESERVE=NO 7 OK to destroy RO 
BRW LOOP 7 CHECK FOR WORK TO DO 


-DISABLE LSB 
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1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 


™e Me Se Me Ve Ye Me Te Me Ne Ne 


BALANCE: 


108: 


208: 


408: 


me Se Yo Ve 


-SBTTL BALANCE FREE PAGE COUNT 


FUNCTIONAL DESCRIPTION: 


BALANCE WILL ENSURE THAT THE FREE PAGE LIST HAS AT LEAST THE NUMBER OF 
PAGES SPECIFIED BY THE PARAMETER FREELIM. IF NOT, PAGES WILL BE MADE 
AVAILABLE BY EITHER WRITING MODIFIED PAGES OR OUTSWAPPING PROCESSES. 
IF SUFFICIENT FREE PAGES ARE AVAILABLE, THEN A CHECK IS MADE FOR 
DELETED PROCESS HEADERS IN NEED OF CLEANUP. 


ENVIRONMENT: 


ENTERED AT IPL = ASTDEL 


BALANCE FREE PAGE COUNT 


LOCK LOCKNAME=MMG, - LOCK MMG DATABASE 


me Te Ne Ve 


PRESERVE=NO OK to destroy RO 
LOCK LOCKNAME=SCHED, - LOCK SCHED DATABASE 
CONDITION=NOSETIPL, - (WELL, DON’T REALLY SET THE IPL) 


oe Se 


PRESERVE=NO 7 OK to destroy RO 
CMPL G*SGN$GL_FREELIM, G*SCH$GL_FREECNT ; ARE WE HERE DUE TO FREELIM? 
BLEQ 10$ ? BRANCH IF NOT 
SUBL3 G*SGNS$GL_FREEGOAL, G*SCHSGL_FREECNT,R3 ; SUFFICIENT FREE PAGES? 
BLSS 40$ 7 NO, MUST ACQUIRE SOME 
TSTW G*SCHS$GW_DELPHDCT ; CHECK FOR DELETED PROCESS HEADERS 
BNEQ 508 + FOUND SOME, FREE THEM UP 


7 Nothing to do - unlock MMG and SCHED databases 


UNLOCK LOCKNAME=MMG, - 
PRESERVE=NO 

UNLOCK LOCKNAME=SCHED, - 
NEWIPL=#IPL$_ASTDEL, - 
PRESERVE=NO 


UNLOCK MMG DATABASE, LEAVE IPL 
OK to destroy RO 

UNLOCK SCHED DATABASE 

LOWER IPL 

OK to destroy RO 

IN BALANCE, RETURN 


me Me we Me Ne Me 


RSB 


Insufficient free pages - try to find some on the modified page 
list. 


me Ne Se NO 


IPL = SYNCH, MMG & SCHED SPINLOCKS HELD 


BBS S*#SCHS$V_MPW, G*SCHS$GB_SIP, 45$ ? MODIFIED PAGE WRITING ACTIVE 
CMPL G*SCH$GL_MFYCNT,G“MPWSGL_THRESH ; Enough pages to consider ? 
BLEQ 60$ 7 No, must outswap 


NB: The use of SCHSGL_MFYLOSV instead of SCHS$GL_MFYLOLIM is intentional. 
The former is the static copy of the SYSGEN parameter MPW_LOLIMIT, 
while the latter is dynamically changed to control modified page writing. 


SUBL3 G*SCHSGL_MFYLOSV, G*SCHSGL_MFYCNT,RO ; HOW MUCH WILL WRITING PAGES 


BLEQ 60$ ; NONE, MUST OUTSWAP 
ADDL R3, RO ; YIELD RELATIVE TO WHAT WE NEED? 
BLSS 60$ : NOT ENOUGH, MUST OUTSWAP 


MOVL #<MPWSC_MAINTAIN!MPWSM LOLIMIT>,RO ; MAINTAINence purge request 
ADDL3 R3,G*SCH$GL_MFYCNT,R1 7 New MPL low limit 
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1301 
1302 
1303 

1304 458: 
1305 . 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 608: 
1319 
1320 

1321 

1322 

1323 

1324 

1325 
1326 
1327 

1328 
1329 
1330 
1331 

1332 

1333 80S: 


Ut we Se Se Se Se Se Me Ne 


- BLSS 60$ 


JSB G“MMGSPURGEMPL # Initiate modified page writing 
BRB 20$ ? AND EXIT TO LET IT HAPPEN 
ADDL3 R3,G°MPWSGL_IOPAGCNT,RO ; Will modified pages in transit help ? 
No, must outswap 

Yes, check for deleted process headers 


=e Ne te 


BRB _—_—=s108 


MUST OUTSWAP, FIRST CHECK FOR SWAP IN PROGRESS SINCE SWAPPER IS 
NOT RE-ENTRANT. IF PURGING DELETED HEADERS, THEN THE NUMBER OF 
REQUIRED PAGES (IN R3) WILL BE SET TO ZERO. AN INFINITE INSWAP PRIORITY 
WILL BE ASSUMED WHILE BALANCING THE NUMBER FO FREE PAGES. 


IPL = SYNCH, MMG & SCHED SPINLOCKS HELD 
CLRL R3 7;NO FREE PAGES NEEDED, WE’ RE JUST 


;DELETING PHD PAGES 
BBSS S*#SCHSV_SIP, G*SCHS$GB_SIP,20$ : EXIT IF SWAPPER ALREADY BUSY 


we te 


Perform OUTSWAP operation 


Push return address 
- A cheap subroutine call 


MY x 


USHAB B*20$ 


-e Ve 


PUSHR #°M<R6,R7,R8,R9,R10,R11,AP,FP> ; SAVE NON-STANDARD REGISTERS 
CLRB G*SWPSGB_ISWPRI ; SET PRIORITY FOR SWAP SCHEDULE 

MOVL _ R3,FP 7 GET AND TEST FREE PAGE DEFICIT 

BGEQ 80$ + NONE, PURGING DELETED HEADERS 

TSTW G*SWPS$GW_BALCNT 3 CHECK FOR SINGULAR BALANCE SET 

BNEQ 808 7 NO, CAN OUTSWAP 

CLRL FP ? PREVENT OUTSWAP SCHEDULE 

BRW OUTSWAP 3 TRY TO FORCE AN OUTSWAP 


499 


CONFIDENTIAL AND PROPRIETARY 
DIGITAL EQUIPMENT CORPORATION 


SWAPPER WORKING SET SWAPPER 10-MAY-1989 17:00:40 VAX MACRO V5.0-8 Page 28 
X-350U3 SCHEDULE SWAP 21-MAR-1989 08:44:02 [SYS.SRC]SWAPPER.MAR;1 (12) 


1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1360 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1369 
1390 
1391 
1392 


++ 


Me Ne Ye Se Ne Ne Ye Ye Ye Te Ye Ye Be Xo 


SWAP SCHED : 


108: 


Re Ve Ve Se 


=e Me Ye 


-SBTTL SCHEDULE SWAP 


FUNCTIONAL DESCRIPTION: 


SWAPSCHED IS CALLED BY THE MAIN LOOP OF THE SWAPPER PROCESS TO CHECK 
ELIGIBLE INSWAP CANDIDATES AND TO PROVIDE MEMORY NEEDED FOR THEIR 
INSWAP. A QUICK EXIT WILL BE TAKEN IF THE SWAPPER IS ALREADY BUSY. 
NO OUTSWAP WILL BE NEEDED IF THE NUMBER OF REQUIRED PAGES CAN BE 
TAKEN FROM THE FREE PAGE LIST LEAVING AT LEAST FREELIM STILL FREE. 
OTHERWISE OUTSWAP WILL BE ENTERED TO MAKE PAGES AVAILABLE BY ANY 
MEANS NECESSARY. 


ENVIRONMENT : 


ENTERED AT IPL = ASTDEL, NO SPINLOCKS HELD 
EXIT AT IPL = 0. 


-ENABLE LOCAL BLOCK 


LOCK LOCKNAME=MMG, - LOCK MMG DATABASE 


we Me Ne Ye Ne 


PRESERVE=NO OK to destroy RO 
LOCK LOCKNAME=SCHED, - LOCK SCHED DATABASE 
CONDITION=NOSETIPL, - (WELL, DON’T REALLY SET THE IPL) 
PRESERVE=NO 7 OK to destroy RO 
BBSS S“*#SCHSV_SIP,G*SCHSGB_ SIP,5$ 7 EXIT IF SWAP IN PROGRESS 
FFS #0, #32, G*SCHSGL_COMOQS, R2; FIND HIGHEST PRIORITY QUEUE 
BNEQ 10$ ? FOUND ONE 


BBCC S*#SCHS$V_SIP, G*SCH$GB_SIP,5$ # CLEAR SWAP IN PROGRESS 
UNLOCK LOCKNAME=MMG, - UNLOCK MMG DATABASE, LEAVE IPL 


e 
PRESERVE=NO # OK to destroy RO 
UNLOCK LOCKNAME=SCHED, - 7 UNLOCK SCHED DATABASE 
NEWIPL=40, - 7 LOWER IPL 
PRESERVE=NO 7 OK to destroy RO 
RSB 7 AND RETURN 


3 
3 Start doing work 

7 

7 IPL = SYNCH, MMG AND SCHED SPINLOCKS MUST BE ACQUIRED. 
7 

P 


Push return address 
- a cheap subroutine call 


USHAB 5$ 


se Ne 


7 
# Perform INSWAP operation 


PUSHR #°M<R6,R7,R8,R9,R10,R11,AP,FP> ; SAVE REGS OTHER THAN RO-R5 
MOVAQ G*SCHSAQ_COMOH[R2] ,R3 3 COMPUTE ADDRESS OF QUEUE HEADER 
MOVL (R3) ,R4 7 GET PCB ADDRESS 


THE FOLLOWING CHECK IS NEEDED DUE TO THE ODIOUS MISLEADING SYMPTOMS THAT 
MIGHT OTHERWISE RESULT. 


CMPB #DYNSC_PCB, PCBSB_TYPE(R4); IS THIS A GOOD PCB? 
BNEQ QEMPTY 7; BUGCHECK IF NOT 


DETERMINE THE SIZE OF THE INSWAP CANDIDATE, TAKING INTO ACCOUNT THE FACT 
THAT THE PROCESS HEADER MIGHT ALREADY BE RESIDENT. 
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1393 
1394. 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 


3 
MOVL PCB$L_PPGCNT (R4) , RO 3 COUNT OF PROCESS PAGES 
MOVL PCBS$L_GPGCNT (R4) , R10 3 COUNT OF GLOBAL PAGES 
ADDL ~~ R0,R10 7 SOM PAGE COUNTS . 
BBC #PCBSV_PHDRES, PCB$L_STS(R4),15$ ; CONTINUE IF HEADER NON-RESIDENT 
MOVZWL PCBSW | APTCNT (R4), RO ? GET ACTIVE PAGE TABLE COUNT 
SUBL RO,R10 3 SUBTRACT RESIDENT HEADER PAGES FROM REQUIR 
15$: ; 
SUBL3 G*SCHSGL _FREELIM, G*SCHSGL | FREECNT, RO 3; COMPUTE PAGES AVAILABLE 
MOVB PCBSB | PRI(R4), G*SWPSGB_ ISWPRI ; SAVE PRIORITY OF INSWAP 
SUBL3 R10,RO0,FP ; WILL PROCESS FIT? 
BLSS 20$ ; NO, MUST OUTSWAP 
BRW INSWAP 3 YES PERFORM SWAP 
QEMPTY: BUG CHECK QUEUEMPTY, FATAL 3 EMPTY QUEVE OR NOT A PCB 
; IF INSWAPPING A NON-REAL TIME PROCESS, THEN CHECK TO SEE IF ITS CURRENT 
; PRIORITY IS THE DEFAULT BACKGROUND PRIORITY. IF SO, THEN DELAY AT LEAST 
3 SWAPRATE INTERVAL SINCE THE LAST INSWAP. THE EFFECT WILL BE TO AVOID FILLING 
? THE BALANCE SET WITH CRUNCHING PROCESSES IMMEDIATELY. 
208: 3. SCHEDULE OUTSWAP 
CMPB #16,PCB$B_PRI (R4) 3 IS THIS A REAL TIME PROCESS? 
BGTR 40$ ? BR IF SO 
SUBB3 G“SYSS$GB_DEFPRI,#31,R1 ; CONVERT PRIORITY TO INTERNAL FORM 
CMPB R2,R1 : IS THIS A CRUNCHER OR LOW PRIORITY JOB? 
BLSS 40s 7; BR IF NOT 
MOVL G*EXESGQ_SYSTIME, R1 3 GET CURRENT TIME IN APPROX. 10MS UNITS 
CMPL R1, G*SWPSGL_SWTIME : HAS INTERVAL ELAPSED? 
BGTRU 40$ ; BR IF YES 
BRW SWAPEXIT 3; CAN'T DO SWAP NOW 
40S: : 
-DISABLE LOCAL BLOCK 
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-SBTTL OUTSWAP 


1429 
1430 


1431 


1432 
. 1433 


1434 


1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 


1448 


1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 


3; FUNCTIONAL DESCRIPTION: 


we Te Me Me Se 


INPUT: 


™e We Se Se Ne 


OUTSWAP : 

- SUBL3 
' MCOML 
TSTW 
BNEQ 
BRW 
CVTWL 
BLEQ 
MOVL 
BLBS 
BEQL 
TSTB 
BEQL 
TSTL 
BGEQ 
MOVL 


108: 


128: 


158: 


17S: 
208: 
TSTB 
BEQL 
MOVL 
BGEQ 
TSTL 
BGEQ 


218: 


=e 


~e te Ne Me Ne 


JSB 
TSTL 
BNEQ 
BRW 
BRW 


SOBGEQ 


THE OUTSWAP STRATEGY IS TO FREE PROCESS HEADERS FOR OUTSWAP PROCESSES, 
USE AVAILABLE MODIFIED PAGES. (AFTER WRITING THEM) AND FINALLY AS A LAST 
RESORT OUTSWAP ANOTHER PROCESS. 
AT A TIME THEN THE SCHEDULING SITUATION WILL BE RE-EVALUATED. 
IN FP INDICATES THE SIZE OF THE PAGE DEFICIT AND WILL BE SET POSITIVE IF 
_ ENTERED FROM BALANCE TO FREE. DELETED PROCESS HEADERS. 


ONLY ONE OF THESE ACTIONS WILL BE TAKEN 
THE VALUE 


FP - NEGATIVE VALUE WILL PERMIT PROCESS OUTSWAP 


#1,G% 
#0,R9 
@PHVS 
128 
60$ 


. @PHVS 


15$ 
@w*sc 
PCBSL 


208 


G*EXE 
17$ 
R9 
20$ 
R8, RO 
R8,10 
G“EXE 
21$ 
R9, R8 
24$ 
FP 
228 


SINCE THERE WAS NO HEADER TO FREE, WE 
SOME PROCESS. 


__ STS (R4) ,20$ 


ZERO OR POSITIVE WILL PURGE HEADERS ONLY. 


TRY TO OUTSWAP 

INIT INDEX FOR BALANCE SLOT SCAN 
INDICATE NO FREE LIST PURGE CANDIDATE 
IS SLOT IN NEED OF CLEANUP? 

CONTINUE IF NOT RELEASABLE 

GO RELEASE PAGE TABLES AND HEADER 
GET PROCESS INDEX 

DELETED PROCESS OR VACANT SLOT 

GET PCB ADDRESS FOR PIX 

SKIP IF PROCESS IS RESIDENT 

VACANT SLOT 

ADD 1 IN 8 RANDOMNESS TO DECISION 
BRANCH ON LOW PROBABILITY 

CHECK FOR REMEMBERED INDEX 

YES DONT OVERWRITE 

SAVE BALANCE SLOT NUMBER OF CANDIDATE 
TRY ALL SLOTS 

ADD 1 IN 256 RANDOMNESS TO DECISION 
BRANCH ON VERY LOW PROBABILITY 

GET AND TEST SLOT INDEX FOR SECONDARY CAND 
BR IF SLOT FOR CLEANUP 

CHECK FOR HEADER PURGE 

EXIT IF SO 


7 


SGN$GL_BALSETCT, R8 


GL_REFCBAS [R8] 


we Se Te Se we 


GL_PIXBAS [R8] , R4 


HSGL_PCBVEC[R4],R4 


$GQ_SYSTIME 


se Se Se Ve Ve Ve We we Vo Ne 


$ . 
$GQ_SYSTIME+1 


=e Se Se Se Se Ne 


we 


MUST NOW WRITE MODIFIED PAGES OR OUTSWAP 


ONLY IF MODIFIED PAGES (MFYCNT-LOLIM) WILL TOTALLY SATISFY OUR . 


NEEDS WILL THEY BE WRITTEN. 
WILL BE OUTSWAPPED AND THE SITUATION RECONSIDERED. 


OTHERWISE THE LEAST USEFUL (BY SOME OPINION) PROCESS 


G*“SCHSOSWP SCHED ; SCHEDULE OUTSWAP 

R4 3; ANY CANDIDATE? 

238 ; YES 

SWAPEXIT : ELSE EXIT AND TRY LATER 
708 3 GO DO OUTSWAP 


A HEADER SLOT IN NEED OF CLEANUP WAS FOUND, 
PAGES WHOSE PTE BACK POINTERS PLACE THEM WITHIN THIS HEADER. 


NOW SCAN THE FREELIST FOR ALL 
DELETE THE 


; CONTENT OF THOSE PAGES VIA G*MMGSDELCONPFN TO FINALLY REDUCE THE REFERENCE 
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1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 


1507 


1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 


2 


COUNT BINDING THE HEADER. 


GET SIZE OF BALANCE SLOT IN BYTES 
COMPUTE OFFSET TO BASE OF SLOT 
ADD BASE TO GET ADDRESS 

FORM OFFSET TO PHD BASE 


MUL SPT SLOT SIZE BY 128 


FORM HIGH LIMIT FOR PAGTBLPPTE 
ANS SAVE PTE HIGH LIMIT 


IS THIS A DELETED PROCESS HEADER? 
‘DELPRC SHOULD HAVE TAKEN CARE OF THIS 


GET TAIL OF FREELIST TO START SCAN 
DONE 


GET SVA OF PTE FOR PAGE 
GET PAGE TABLE BIT 
COMPARE WITH LOW LIMIT 
COMPARE WITH HIGH LIMIT 
SET LIST NUMBER FOR DELETE 
REMOVE PAGE FROM FREE LIST 


RELEASE PAGE DELETING CONTENT 
DID WE FREE PROCESS HEADER 


DID WE FREE PROCESS HEADER 


4S: ROTL #2,G*SWPSGL_BSLOTSZ,R7 ; 
MULL3 R7,R8,R6 : 
PUSHAB @SWPSGL_BALSPT([R6] ; 
ROTL #7,R6,R2 ; 
PUSHAB @SWPS$GL BALBASE[R2] ; BASE ADDRESS FOR PHD 
ROTL #7,R7,R1 ’ 
PUSHAB @4 (SP) (R7] ? 
PUSHAB @4(SP) [R1] ; 
; AT THIS POINT: 
; 00(SP) - HIGH LIMIT ADDRESS FOR PROCESS HEADER 
; 04(SP) - HIGH LIMIT FOR PROCESS PAGE TABLE PTE 
; 08(SP) - LOW LIMIT FOR PROCESS HEADER 
; 12(SP) - LOW LIMIT FOR PROCESS PAGE TABLE PTE 
ASSUME PFNSC_FREPAGLST EQ 0 ; 
TSTW @PHVSGL_PIXBAS(R8] ; 
BGEQ 25$ : BR IF NOT. 
BUG CHECK ICPAGELOC, FATAL ; 
25$:. MOVL G*PFNSAL_TAIL, RO ; 
BEQL 45$ ?; NO PAGES, 
30$: PFN_REFERENCE - 
MOVZWL <@W*PFNSAX BLINK(RO],R9>,- ; GET BACKWARD LINK 
LONG _OPCODE=MOVL, - | 
IMAGE=SYS_NONPAGED 
MOVL @W°PFNSAL PTE[RO],R3 ; 
ASSUME PFNSC_PPGTBL EQ 4 
ASSUME PFNSC_GPGTBL EQ 5 
EXTZ2V #2,#1,@W*PFNSAB_TYPE[RO],R1 ; 
CMPL R3,8(SP) [R1] ; ; 
BLSSU 40S ; OUT OF RANGE 
CMPL R3, (SP) [R1] : 
BGEQU 40S 3; OUT OF RANGE 
CLRL R2 - 
JSB G*“MMGSREMPFN : 
BSBW RELDELPAGE ; 
TSTW @PHVSGL_REFCBAS [R8] ; 
BEQL 45$ 3 QUIT NOW 
408: MOVL R9,RO 3; FLINK TO NEXT PAGE 
BNEQ 30$ ; ANOTHER PAGE TO TRY 
45$: TSTW @PHVSGL_REFCBAS[R8] ; 
BEQL 50$ ; YES, RELEASE IT 


we Fe Me Ne Ne Me Me 


ve 


THERE ARE TWO REASONS THAT MIGHT PREVENT THE HEADER FROM BEING RELEASED BY 


THE FREELIST SCAN: 
1s 


SOME OF THE TRANSITION PAGES ARE ON THE MODIFED LIST. 


2. THERE IS I/O IN PROGRESS ON THE TRANSITION PAGES. 


TO COVER THE FORMER CASE (SINCE WE CANT REALLY TELL), 
HOWEVER THIS IS ACTUALLY QUITE RARE. 


BE FLUSHED. 


MOVL 
MOVL 


#MPWSC_SVAPTE, RO 
12(SP),R1 


se 


=e 


THE MODIFIED LIST MUST 


Range-based purge request 
Low SVAPTE 
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1543 


1544 | 


1545 
1546 


1547 


1548 


1549, 


1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 


SUBL3 
JSB 


‘MOVL | 


MOVL 

SUBL3 

JSB 
‘ADDL 


MCOML #0,R9 


BRW 


50S: ADDL 
608: BRW 
708: 


=e te Ne 


RO - 
Ri - 
R2 - 
R3 - 
R4 - 
R5 - 
R6 - 
R7 - 
R8 - 


OE re Ne Ne We Se Te Te Ne Ye Ne Se Ne Se Ye Ne Ye 


WSLOOP : 

MOVL 
BLBC 
JSB 


we Se Xe 


 $4,4(SP),R2 
G“MMGSPURGEMPL 
#MPWSC_SVAPTE, RO 
8(SP),R1l 

$4, (SP), R2 
G“MMGSPURGEMPL 
#16,SP 


20$ 


RELPHD 


me Se Ne 


PCB$L_PHD (R4) ,R5 


ve 


G“SWPSGW_BALCNT 
OSINIT 
PCBSW_APTCNT (R4) 
PHDS$L_WSLIST (RS), R7 
PHDSL_WSLAST(R5) , R6 


we Ye Ne Me Ye 


PEN 
SCRATCH, WSLX 


-%e Re Ve Ve Re Ve Ye Ve Ve 


High SVAPTE (inclusive range) 
Initiate selective MPL purge 
Range-based purge eereet 
Low SVAPTE 


High SVAPTE (dnclusive range) 


Initiate selective MPL purge. 
CLEAN STACK OF LIMITS 

NO, TRY FOR ANOTHER 

NOW ATTEMPT CLEANUP | 


CLEAN STACK OF LIMITS 
-GO RELEASE PROCESS HEADER 


R4 - PCB OF OUTSWAP CANDIDATE, ALREADY MARKED NON-RESIDENT 


GET PROCESS HEADER ADDRESS 


DECREASE NUMBER IN BALANCE SET 
INIT REGISTERS FOR SCAN 
INITIALIZE ACTIVE PAGE TABLE COUNT 
WS INDEX FOR PERM PAGES 

END OF WORKING SET LIST 


‘REGISTER CONVENTIONS FOR OWSLOOP ARE: 


WORKING SET LIST ENTRY (VIRTUAL ADDRESS+FLAGS) 


PCB ADDRESS 
PHD ADDRESS 


SVA OF PTE FOR WORKING SET LIST ENTRY 


END INDEX TO WORKING SET LIST 


WSLX (WORKING SET LIST INDEX) 


PTE CONTENT 


=e Veo 


(R5) [R7],R2 
R2, NOTVALID 
G“MMGS$SVAPTECHK 


~e 


=e 


R3 <- SVA OF PTE FOR VA IN R2 


R9 - WORKING POINTER TO SWPSAL | MAP 
R10 - PTE$M_VALID! PTESC_ERKW 
R11 - BASE ADDRESS OF SWPSAL | MAP 


OUTSWAP WS LOOP 

GET WORKING SET LIST ENTRY 
SKIP IF NOT VALID 

CONVERT VA TO SVA OF PTE 


MOVL (R3),R8 ; GET CONTENT OF PTE 
BLSS 10S ; CONTINUE IF VALID PAGE 
DECL R2 ; CLEAR VALID FLAG 
10$: BICB #*C<WSLS$M_VALID!WSLS$M_PAGTYP!WSLSM_PFNLOCK>,R2; ISOLATE INTERESTING 
EXTZV #PTESV_PFN, #PTESS PFN, R8,RO ; GET PFN FROM PTE 
BSBB  OSDISPATCH ; DISPATCH ON PAGE TYPE 
NOTVALID: | ; : 
AOBLEQ R6,R7, OWSLOOP ; PROCESS ENTIRE WORKING SET LIST 
BRB PROCWRT ; DONE WITH WORKING SET LIST, RESET HEADER 
OSDISPATCH: ; 
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1600 ASSUME WSLSV_VALID EQ 0 

1601 ASSUME WSLSV_PAGTYP EQ 1 

1602 ASSUME WSLSV_PFNLOCK EQ 4 

1603 ASSUME PFNSC_PROCESS EQ 0 

1604 ASSUME PFNSC_SYSTEM EQ 1 

1605 ASSUME PFNSC_GLOBAL EQ 2 

1606 ASSUME PFNSC_GBLWRT EQ 3 

1607 ASSUME PFNSC_PPGTBL EQ 4 

1608 ASSUME PFNSC_GPGTBL EQ 5 

1609 MOVAL (R5) (R7] , FP 7 COMPUTE ADDRESS OF WSL ENTRY 

1610 CASE R2,<- 3 SWITCH ON WSL PAGE TYPE + PTE VALID BIT 
1611 PROCTRANS, -. 7 0 => PROCESS TRANSITION PAGE 

1612 PROCVALID, - 3 1 => PROCESS VALID PAGE 

1613 WSLERR, - 3 2 => 2222? BUGCHECK 

1614 WSLERR, - 3 3 => 72727 BUGCHECK 

1615 GBLTRANS, - ¢ 4 => GLOBAL TRANSITION 

1616 GBLVALID, - ?; 5 => GLOBAL VALID 

1617 GBLWRTTRANS, - 3 6 => GLOBAL WRITABLE TRANSITION 
1618 GBLWRTVALID~ 3; 7 => GLOBAL WRITABLE VALID 

1619 PPGTBLTRANS, - 3 8 => PROCESS PAGE TABLE TRANSITION 
1620 PPGTBLVALID, - 3 9 => PROCESS PAGE TABLE VALID 

1621 >, TYPE=B ? 

1622 RSB 3; SKIP PFN LOCK PAGES 

1623 

1624 SPACEFAIL: 

1625 BUG CHECK INSSWPFIL, FATAL 3; INSUFFICIENT SWAP FILE SPACE 

1626 

1627 PROCWRT: _  y RESET PROCESS HEADER BASE REGISTERS 
1628 ASSUME PCBSL_SWAPSIZE EQ PCBSL_WSSWP+4 

1629 MOVAL PCBSL_WSSWP (R4) , R2 7 R2 = address of WSSWP/SWAPSIZE pair 
1630 TSTL (R2) 3; Swap space allocated ? 

1631 BEQL SPACEFAIL 3; BR if no - fatal error 

1632 BGTR 10$ 3; BR if simple, contiguous swap area 
1633 ADDL3 #PFLMAPSQ PTR, (R2) ,R2 3; R2 = address of lst pointer in window 
1634 

1635 10$: MOVZWL PCBSW_APTCNT(R4),RO 3 GET COUNT OF ACTIVE PAGE TABLES 
1636 MOVL R4, W“OSWPPCB 3 SAVE ADDRESS OF OUTSWAP PROCESS 
1637 SUBL R11,R9 3 COMPUTE NUMBER OF PAGES * 4 

1638 ROTL #<32-2>,R9,R4 3 DIVIDE COUNT BY 4 

1639 MOVL R4, W*OSWPPGS 3 SAVE COUNT OF OUTSWAP PAGES 

1640 MOVL R11,R3 3 SVAPTE FOR OUTSWAP I/O 
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1643 
+1644 


1645 
1646 
1647 
1648 


1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 


se Se Ne 


we 


208: 


30$: 


40S: 
50S: 


558: 


608: 


80S: 


DO OUTSWAP I/O FOR PROCESS HEADER 


INCL G*“SWPSGL_OSWPCNT 
BSBW SWPWRITE 
BLBS RO, 20$ 


BUG CHECK OUTSWPERR, FATAL 


~e Se Se Ve Ve 


ACCOUNT FOR OUTSWAP 
WRITE HEADER AND BODY 
CONTINUE IF NO I/O ERROR 
**x*x* OUT SWAP I/O ERROR 


BSBW RELINIT ; INIT REGISTERS FOR RELEASE LOOP 
MOVL PCBSL_PHD (R4) ,R5 3 GET POINTER TO PHD 
MOVZWL PHDS$W PHVINDEX(R5),R8 ; GET PROCESS HEADER SLOT INDEX 
BICL3 R10, (R9)+,RO ; GET PAGE NUMBER TO RELEASE 
CMPZV  #PFNSV_PAGTYP, #PFNS$S_PAGTYP, @W*PFNSAB_TYPE [RO], #PFNSC_GLOBAL ; 
BEQL 80$ ; PAGE IS GLOBAL, COMPLEX CLEANUP 
MOVL QW*PFNSAL_ PTE [RO], R6E ; GET POINTER TO PAGE TABLE FOR PAGE 
BICL #<PTESM_VALID!PTESM MODIFY>, (R6); CLEAR VALID AND MODIFY 
TSTW @W*PFNSAW_SWPVBN [RO] ; WAS I/O IN PROGRESS? 
BEQL 40$ : NO, DONT MARK PAGE MODIFIED 
BISB #PFNSM MODIFY, @W*PFNSAB_STATE[RO] ; MARK PAGE MODIFIED 
CMPZV  #PFNSV_LOC, #PFN$S_LOC,- ; IF THIS WAS READ IN PROGRESS 
@W*PFNSAB_STATE[RO), #PFNSC_RDERR ; AND IS NOW PAGE READ ERROR 
BNEQ 40$ ; 
DECREF : AND IF THIS IS THE LAST REFERENCE 
BNEQ 60$ ; 
MOVZBL #PFNSC_BADPAGLST, R2 ; THEN DIVERT THE PAGE TO 
JSB G*MMGSINSPFNT ; THE BAD PAGE LIST 
BRB 60$ ; 
DECREF ; DECREMENT REFERENCE COUNT FOR PAGE 
BNEQ 55$ ; NOT RELEASABLE YET 
JSB G“MMGSRELPFN RELEASE PFN AS APPROPRIATE 
BRB 60$ GO FOR NEXT PAGE 
CMP2V #PFNSV_LOC, #PFNS$S_LOC, aU“PENSAD _ STATE({RO],- ; 
#PFNSC_ACTIVE ; IS STATE ACTIVE? 
BNEQ 60$ ; NO, THEN LEAVE UNCHANGED 
INSV #PFNSC_RELPEND, - ; MAKE STATE BE RELEASE PENDING 
#PFNSV_LOC, #PFNS$S_LOC, @W*PFNSAB_STATE[RO]; IF SOME I/O OUTSTANDING 
SOBGTR R7,30$_ ; NEXT PAGE IN LIST 
BRW RELPHD ; RELEASE PROCESS HEADER IF POSSIBLE 
DECSHR GTR=60$,- ; DECREASE SHARE COUNT FOR PAGE 
IMAGE _FLAG=SYS_NONPAGED 
BRB 40s ; RELEASE PAGE TO FREE LIST IF REFCNT=0 
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-SBTTL RELPHD - RELEASE PROCESS HEADER 


1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
BRW/JMP RELPHD 


INPUT PARAMETERS : 
OUTPUT PARAMTERS : 
RO-R7,R9,R10 VOLATILE 


SIDE EFFECTS: 


™e Ye Se Ve We Ve Ve WO Be Ve Ve Veo Ye Be Ne Ve Ve Ve Ve Ye es 


RELPHD : 
TSTW @PHVSGL_REFCBAS [R8] 
BEQL 5$ 
BRW OSWPEXIT 

5$: MOVL  G“SWPSGL BSLOTSZ,R7 


MULL3 R7,R8,R1_ 

MOVAL @SWPSGL BALSPT{R1],R6 
BSBW OSINIT _ 

CVIWL @PHVS$GL_PIXBAS(R8],R4 
BLSS 12$ 

MOVL @W*SCHSGL_PCBVEC[R4],R4 
MOVL PCBSL_PHD (R4) ,R5 

MOVL R8,PCBS$L_PHD(R4) 

SUBL  R5,PHD$L_POBR(RS5) 

SUBL R5,PHDSL P1BR(R5) 


™e we Ne te Me Me Me Ne 


=e Ne 


=e Me Se Se Se 


RELPHD CHECKS THE REFERENCE COUNT ON THE PROCESS HEADER 

AND RELEASES THE PAGE TABLES FROM THE PROCESS HEADER WHEN ALL 
OF THEIR PAGES HAVE BEEN RELEASED. 
TO THE SWAP IMAGE IF THEY ARE MARKED AS UPDATED. 


THE PAGE TABLES ARE FIRST WRITTEN 


R8 - BALANCE SLOT INDEX FOR HEADER TO BE RELEASED 


THE PAGE TABLES FROM THE PROCESS HEADER MAY BE WRITTEN TO THE 
SWAP IMAGE FOR THE PROCESS IF THEY HAVE BEEN UPDATED. 


SEE IF PROCESS HEADER IS RELEASABLE 
YES, FREE ACTIVE PAGE TABLES 

NO, TRY LATER 

SET ITERATION COUNT TO WHOLE BALANCE SLOT 
GET LONG WORD OFFSET TO SLOT 

POINT TO BASE OF THIS SLOT 

INIT REGISTERS FOR SCAN 

GET INDEX TO PROCESS IN SLOT 

BR IF DELETED PROCESS 

AND TRANSLATE TO PCB ADDRESS 

GET PROCESS HEADER ADDRESS 

INDICATE NO PHD FOR PROCESS 

UNBIAS MEMORY MANAGEMENT BASE REGISTERS 
FOR BOTH PO AND P1 SPACE 


BBCC #PCBSV_PHDRES, PCBSL_STS(R4) ,7$ ; MARK PHD NON-RESIDENT 


7$: MOVL PHDS$L_WSLX(R5) , AP 
MOVAL (R5) [AP],AP 
MOVL PHDSL_BAK(RS5) , FP 
MOVAL (R5) [FP],FP 
CLRW PHDSW_EMPTPG(R5) 
MOVL G*SGNSGL_PHDPAGCT, R3 
ASHL #2,R3,R3 
ADDL R6, R3 


10$: MOVL (R6)+, (FP) + 
7 BLSS 15$ 

CMPL R6,R3 

BGEQU 1158 

INCW PHDSW_EMPTPG(R5) 
118: CLRL -4(R6) 


PFN REFERENCE = 
CLRW <(AP)+>,- 


™e Ve Se Se “Ws Ve Ye Ye Ve Ye Be Ve Ve We 


=e 


GET POINTER TO WSLX SAVE AREA 

AND CONVERT TO BYTE ADDRESS 

GET POINTER TO BACKING STORE VECTOR 

AND CONVERT TO BYTE ADDRESS 

CLEAR COUNT OF EMPTY WSL PAGES 

GET COUNT OF PHD PAGES EXCLUSIVE OF 
PAGE TABLES AND MAKE IT BYTE OFFSET 

ADDRESS OF FIRST PT IN BALACE SLOT 
COPY ENTRY FROM SPT 

BR IF VALID 

WHERE IS THIS PAGE? 

BR IF NOT EMPTY WSL PAGE 

COUNT EMPTY WSL PAGES 

ZAP INVALID ENTRY TO NO-ACCESS 


AND CLEAR WSLX VALUE FOR PAGE 


507 
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1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 


128: 
158: 


208: 


258: 


308: 


40S: 


508: 


BRB 
BRW 
EXTZV 
BEQL 
INSV 


MOVW 


BISL3 
BBSS 
SOBGTR 
SUBL 
ASSUME 
MOVAL 
TSTL 
BGTR 
ADDL3 
MOVL 
ROTL 
MOVL 
MOVL 
INCL 
CLRL 
BSBW 
BLBS 


BUG CHECK APTWRTERR, FATAL 


BSBW 
MOVL 
BICL3 
MOVL 
MOVL 
DECW 
BEQL 


BUG CHECK APTREFHIGH, FATAL 


MOVL 
BSBW 
CLRL 
SOBGTR 
MNEGW 
CLRW 
CLRL 


OSWPEXIT: 


BRW 


LONG_OPCODE=CLRL, - 
IMAGE=SYS_NONPAGED 


20$ ; 

DELPHD 7; FINISH DELETE FOR PROCESS . 
#PTESV_PFN, #PTESS | PFN, -4(FP),RO ; GET PFN FOR VALID ENTRY 
11$ ? DEMAND ZERO OR NULL PTE 


@W“PFNSAL_BAK[RO], #PTE$V_BAKX, #PTE$S BAKX,-4(FP); SAVE BACKUP ADDR 
PFN REFERENCE - 

<@W*PENSAX_WSLX[RO], (AP)+>,- | ; AND WORKING SET LIST INDEX 
LONG_OPCODE=MOVL, - 
IMAGE=SYS_NONPAGED 
RO,R10, (R9) + 
#PTESV_VALID, -4 (FP) ,20$ 


SET INTO SWAPPER MAP 

MARK PAGE VALID FOR INSWAP PURPOSES 
R7,10$ SCAN ENTIRE BALANCE SLOT 

R11,R9 COMPUTE NUMBER OF PAGES * 4 
PCBSL_SWAPSIZE EQ PCBSL_WSSWP+4 

PCBSL_WSSWP (R4) ,R2 R2 = address of WSSWP/SWAPSIZE pair 


me Ve Se Ve 


(R2) Simple, contiguous swap area ? 
25$ BR if yes 

#PFLMAPSQ PTR, (R2) ,R2 R2 = address of lst pointer in window 
R4, W°OSWPPCB SAVE PCB ADDRESS FOR SLOT OWNER 
#<32-2>,R9,R4 DIVIDE COUNT BY 4 

R4, W“OSWPPGS SAVE COUNT OF OUTSWAP PAGES 
R11,R3 SET SVA OF MAP FOR I/O 
G*“SWPSGL_HOSWPCNT ACCOUNT FOR HEADER OUTSWAP 

RO Pages to skip in mapping window 
SWPWRITE WRITE ACTIVE PAGE TABLES 

RO, 30$ CONTINUE IF NO ERROR 


***k* ACTIVE PAGE TABLE SWAP I/O ERROR 
INIT REGISTERS FOR RELEASE LOOP 
RESTORE BALANCE SLOT INDEX 

ISOLATE PAGE FRAME NUMBER 

GET PTE ADDRESS 


RELINIT 
PCBSL_PHD (R4) ,R8 
R10, (R9) +, RO 
QW*PFNSAL PTE [RO] ,R6 


RO, (R6) MAKE PTE CORRECT BUT INVALID 
Q@W“PFNSAW_REFCNT([RO] DROP REFERENCE COUNT 
50$ MUST BE ZERO 


INCONSISTENT PAGE TABLE REFERENCE COUNT 


™e Ve Ye Ne Ye Ne Ye Be Ye Te Ye Be Yea Ye Ne Yo Ye Ye Ye Yeo Yo ae Ye Yeo Yo 


R6,R3 SVAPTE FOR DELCON 

RELDELPAGE RELEASE PAGE THROUGH DELCONPFN 

(R6) SET NO ACCESS ON PFN 

R7,40$ CONTINUE FOR ALL ACTIVE PAGE TABLES 


MARK BALANCE SLOT AVAIL 
AND SET PIX TO NULL 
AND SEVER CONNECTION WITH PROCESS 


#1, @PHVS$GL_REFCBAS [R8] 
@PHVSGL_PIXBAS[R8} 
PCBS$L_PHD (R4) 


me Ve we 


OUTSWAP COMPLETE 
RETRY SWAP SCHEDULE AFTER OUTSWAP 


we Ve 


SWAPRETRY 
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1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1615 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 


INPUT 


™e Te Ne Ne Se Se Te te Ye Te Ye Ye Te Ve Ye We 


DELPHD : 


10$: 


208: 


258: 


308: 
40S: 


50S: 


' MOVL QW“PFNSAL BAK([RO],R9 


-SBTTL DELPHD - DELETE PROCESS HEADER FOR DELETED PROCESS 


FUNCTIONAL DESCRIPTION: 


DELPHD IS ENTERED BY RELPHD IF THE PROCESS INDEX ASSOCIATED WITH 

THE BALANCE SLOT IS NEGATIVE INDICATING THE PROCESS HAS BEEN DELETED. 
NOW THAT THE REFERENCE COUNT FOR THE HEADER IS ZERO, ALL PAGES AND 
BACKING STORE PAGES CAN BE RELEASED PERMITTING RELEASE OF THE BALANCE 
SLOT. AT THIS POINT THE SPT ENTRIES ARE VALID WITH A PFN, DEMAND ZERO, 
OR BACKING STORE ADDRESS FORM. THERE ARE NO REMAINING TRANSITION PAGES. 


PARAMETERS : 

Rl - PRODUCT OF SGNSC_BSLOTSZ * BALANCE _ SLOT_INDEX 

R6 - ADDRESS OF FIRST SPT ENTRY FOR THIS BALANCE SLOT 
R7 - SGN$C_BSLOTSZ 

R8 - BALANCE | SLOT_INDEX 

R1i0- MASK OF PTESM | VALID! PTESM | MODIFY! PTESC | ERKW 


COMPUTE OFFSET TO PHD FROM BASE 
FORM PHD ADDRESS 


ROTL #9,R1,R5 

ADDL G*SWPSGL_BALBASE, R5 
ASSUME PHDS$S_| PRCPGFL EQ 4 
PUSHL  PHDSB | }_ PRCPGFL (RS) 


we Ye NO 


Save copy of PROCESS/SYSTEZEM PF mapping 


JSB G“MMGSDASNPRCPGFLS 7 Deassign all process pagefiles 
MOVL (R6)+,R0 “ 3 GET PTE FROM SPT 

BEQL 40$ ; BR IF EMPTY 

BLSS 20$ 7 BR IF VALID 

BBS #PTESV_TYP1,R0, 25§ + BR IF TYPE 1 (BACKING STORE) 
BICL R10,RO_ 7 ISOLATE PFN 

BEQL 30$ 3 SKIP DEMAND ZERO PTE 


| GET BACKUP ADDRESS 

BICB #<<PTESM_VALID! PTE$M_MODIFY>@-24>,-1(R6) ; CLEAR VALID AND MODIFY 

BSBW RELDELPAGE RELEASE PAGE 

MOVL R9, RO GET BACKUP ADDRESS 

BBS #PTESV_TYPO, RO, 30$ BR if not page file backing store 

EXTZV #PTESV_PRCPGFLX, - Get PROCESS page file index 
#PTESS_PRCPGFLX, RO, R3 

BICL2 #°C<PTESM PGFLVBN>, RO 


we Ye Ye Ye 


Get page file VBN 


BEQL 30$ BR if none 

CVTBL (SP) [{R3],R3 Convert to SYSTEM page file index 
BLEQ 50$ Bugcheck if bad index 

JSB G“MMGSDALCPAGFIL ‘Deallocate SYSTEM pagefile page 
CLRL -4(R6) ZAP SPT ENTRY. 


RELEASE ENTIRE HEADER 

Remove temporary LW 

INVALIDATE HEADER 

MARK SLOT EMPTY 

POINT OWNER PIX AT NULL PROCESS 
ACCOUNT FOR DELETED HEADER 

AND RETRY SWAP ATTEMPT 


SOBGTR R7,10$ 

ADDL2 #4,SP 

INVALIDATE_TB 

MNEGW #1, @PHVS$GL_REFCBAS[R8] 
CLRW @PHVSGL_PIXBAS[R8] 
DECW G*SCH$GW_DELPHDCT 

BRW SWAPRETRY 


Se Ne Ne Ne Se Ne Se Ye Se te Me Me te 


BUG CHECK BADPRCPGFLX, FATAL 
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1852 -SBTTL GBLTRANS/GBLVALID/GBLWRTVALID - HANDLE GLOBAL PAGES 
1853 . 

1854 ; 

1855 ; _ GBLTRANS HANDLES THE CASE OF A GLOBAL PAGE IN TRANSITION, 
1856 ; WHICH IMPLIES THAT THE PAGE HAS BEEN FAULTED BUT IS NOT YET 
1857 ; RESIDENT. THE WORKING SET LIST ENTRY FOR THIS PAGE WILL BE 
1858 ; DELETED AND THE PAGE WILL HAVE TO BE FAULTED AGAIN. 

1859 ; 

1860 — 


1861 GBLTRANS: 
1862 GBLWRTTRANS: 


TRANSITION GLOBAL PAGE 
TRANSITION WRITABLE GLOBAL PAGE 


se Ne 


1863 INSV @W“MMGSGL_GPTBASE [RO], #PTESV_PEN, #PTESS PFN,RO ; GET GLOBAL PFN FRO 
1864 
1865 -ENABL LSB 
' 1866 GBLDROP: ; DROP GLOBAL PAGE FROM WORKING SET 
1867 MOVL R7,R1 ; GET WSL INDEX FOR RELEASE 
1868 PUSHL R3 7; SAVE SVAPTE FOR FOLLOWING DECPTREF 
1869 JSB G“MMGSDELWSLEX 7 DELETE WSL GIVEN INDEX 
1870 POPR #°M<R3> 7; RESTORE SVAPTE 
1871 JSB G“MMGSDECPTREF ? AND DROP PAGE TABLE REFERENCE 
1872 DECSHR GTR=10$,- 7 DECREASE SHARE COUNT 
1873 IMAGE _FLAG=SYS_NONPAGED 
1874 PROCDROP : 
1875 DECREF GTR=20$ 3 AND REF COUNT IF LAST SHARER 
1876 JSB G“MMGSRELPFN 7; RELEASE PAGE IF LAST REFERENCE 
1877 10$: ; 
1878 RSB ; RETURN FOR NEXT PAGE 


1879 20S: CMPZV #PFNSV_LOC, #PFNSS_ LOC, @W*PFNSAB_STATE[RO],- ; 


1880 #PFNSC_ACTIVE 3; CHECK FOR ACTIVE STATE 

18681 BNEQ 30$ 3; NO, THEN LEAVE STATE UNCHANGED 
1882 INSV #PENSC_RELPEND, - : SET STATE TO RELEASE PENDING IF 
1883 #PFNSV_LOC, #PFNSS LOC, @W*PFNSAB_ STATE [RO] 3 I/O OUTSTANDING 
1884 308: RSB ; 

1885 -DSABL LSB 

18R6 

1887 ; 

1888 ; GBLVALID HANDLES A VALID, NON-WRITABLE, PAGE. 

1889 ; 

1890 GBLVALID: 3 VALID GLOBAL PAGE 

1891 ; . 

1892 ; IF THE GLOBAL PAGE IS BEING ACTIVELY SHARED THEN IT WILL BE DROPPED 
1893 ; FROM THE WORKING SET AND REFAULTED LATER (PRESUMABLY WITHOUT I/O). 
1894 ; 

1895 BBS #WSLSV_WSLOCK, (FP),19S : DON’T DROP PAGES LOCKED IN WORKING SET 
1896 PFN REFERENCE - 

1897 CMPW <#1, @W*PFNSAX_SHRCNT[RO]>, - 3 IS THERE ACTIVE SHARING OF THIS PA 
1898 LONG OPCODE=CMPL, - 

1899 IMAGE=SYS_NONPAGED 
1900 BNEQ GBLWRTVALID : YES, DROP IT AND REFAULT LATER 
1901 ; 

1902 ; OTHERWISE THE PAGE WILL BE WRITTEN TO THE SWAP IMAGE SINCE IT IS 
1903 ; UNLIKELY TO BE RESIDENT UPON INSWAP. 

1904 ; 

1905 10S: BISL3 RO,R10, (R9) + SET IN SWAPPER MAP FOR OUT SWAP 


19NF4 JSB G“MMGSDECPTREF DPOP PAGE TABLE REFERENCE FOR PAGE 
1907 GBLRESET: PESET SLAVE PTE TO GFTX FORMAT 
198 SURL3 G*MMGSGL_GPTRASE, apreeaL PTEPRC1,R1 : GET SPTX FOP PAGE 


we Ye te 


510 
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1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 


ROTL #<32-2>,R1,RP1 AND CONVERT TO CORRECT SCALE 
ASSUME PTESV_TYPO EQ PTESS_ cPTx. 


BBSS. #PTESV_| TYPO,R1,10$ MARK AS GLOBAL 


10$:  BICL3 #<PTESM VALID | - OBTAIN PERMANENT BITS FOR PTE 
PTESM_TYPO ! - BY CLEARING ALL OTHERS 
PTESM TYP1 ! - 


PTESM_PFN>, (R3) ,R2 
BISL3  R1,R2, (R3) 


TO FORM TRANSITION GLOBAL PTE 
MUST SET ENTIRE PTE AT ONE TIME 
SO THAT I/O CAN SEE CONSISTENT PTE 
RETURN FOR NEXT PAGE 


me Se Ye Se Me Me Ne Ne 


RSB 


; GBLWRTVALID HANDLES THE CASE OF A WRITABLE GLOBAL PAGE. 
; SUCH PAGES ARE DROPPED FROM THE WORKING SET BEFORE OUTSWAPP ING 
; AND MUST BE SUAS EOVENTEY RE-FAULTED. 


GBLWRTVALID: 
BBCC . #PTES$V_MODIFY, (R3),10S 


VALID WRITABLE GLOBAL PAGE 

TEST AND CLEAR MODIFY BIT IN SLAVE PTE 
_. . BISB #PFNSM | MODIFY, @W*PFNSAB_STATE[RO] ; AND SAVE MODIFY STATE 

10$: ~BSBB_. GBLRESET ; RESET PTE 
BRW GBLDROP ; DELETE WORKING SET LIST ENTRY 


ee Ne 


511 
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1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 


-SBTTL PROCTRANS - PROCESS PAGE IN TRANSITION 
? THIS PAGE IS IN TRANSITION DUE TO THE FACT THAT THE PAGE FAULT 
H READ OPERATION HAS NOT YET COMPLETED. IT IS TREATED AS AN 
? I/O IN PROGRESS PAGE. 
PROCTRANS: | : ? PROCESS PAGE IN TRANSITION 
CMPZV  #PENSV_LOC, #PFNSS_LOC,- ; IF THIS PAGE COULD NOT 
Q@W*PFNSAB_STATE(RO),#PFNSC_RDERR ; BE SUCCESSFULLY READ 
BNEQ PROCVALID . Hi 
MOVL R7,R1 ¢ DROP IT FROM THE WORKING SET 
JSB G*MMGSDELWSLEX ? DELETE THE WSL ENTRY GIVEN WSL INDEX 
BRW PROCDROP ; AND RELEASE THE PFN IF LAST REF 
; 
; PROCVALID HANDLES THE CASE OF A VALID PROCESS PAGE WHICH INCURS 
: SOME SPECIAL PROCESSING IF THERE IS I/O IN PROGRESS. AN I/O IN 
: PROGRESS PAGE IS SWAPPED WITH THE BODY OF THE PROCESS TO RESERVE 
; SPACE FOR IT IN THE SWAP IMAGE AND IS LATER WRITTEN WITH CORRECT 
; CONTENT BY THE MODIFIED PAGE WRITER TO THIS RESERVED SPACE IN THE 
; SWAP IMAGE. 
3, 
PROCVALID: 3 PROCESS VALID PAGE 
-ENABL LSB 
108: 7 
BBSC #PFNSV_MODIFY, @W*PFNSAB_STATE [RO] , 20$ ? BR IF PAGE MODIFIED 
BBC #PTESV_MODIFY, (R3),30$ ; BR IF PAGE NOT MODIFIED 
208: BBSS #WSLSV_MODIFY, (FP), 30$ 3; SET WORKING SET MODIFIED BIT 
308: ; 
CMPW #1, @W“PFNSAW_REFCNT(RO}] ; CHECK FOR I/O OUTSTANDING 
BEQL 40$ 3 NO, NONE 
BLBC R2, SETWRTBAK 3; BRANCH IF TRANSITION PAGE 
BBC #WSLSV_MODIFY, (FP), 40$ 3 DONT WRITE UNMODIFIED PAGES 
SETWRTBAK: ¢ SET PAGE FOR WRITE BACK TO SWAP FILE 
SUBL3 R11,R9,R1 3 GET OFFSET TO PAGE IN SWAP MAP 
DIVL #4,R1 3 SCALE BACK TO PAGE NUMBER 
MOVW R1, QW“PFNSAW_SWPVBN [RO] 3; SET OFFSET INTO SWAP IMAGE LESS APTCNT 
408: ? 
BISL3 RO, R10, (R9) + 3; PUT PAGE IN SWAPPER MAP 
3 
; SET DELETE CONTENT FLAG TO CAUSE PAGE TO BE PLACED AT HEAD 
; OF FREE PAGE LIST AND CONTENT FORGOTTEN. 
3 
DELCON: BISB #PFNSM_DELCON, @W*PFNSAB_STATE[RO] ; SET TO DELETE CONTENT 
RSB 7 RETURN FOR NEXT PAGE 
e-DSABL LSB ; 
WSLERR: BUG CHECK IVWSETLIST, FATAL 3 INVALID WORKING SET LIST ENTRY 
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-SBTTL PAGE TABLE WORKING SET LIST ENTRIES 


1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 


3 
3 SET LIST. 
PPGTBLTRANS: 
PPGTBLVALID: 
INCW PCBSW_APTCNT (R4) 
SUBL RS, (FP) 
BBSS #VASV_SYSTEM, (FP) ,10$ 
108: RSB 


™e Ne Te Ye Ye Ye 


PAGE TABLE AND PROCESS HEADER ENTRIES IN THE WORKING SET LIST 
ARE IGNORED DURING THE PROCESS BODY OUTSWAP SCAN OF THE WORKING 


TRANSITION PAGE TABLE 
VALID PAGE TABLE 

ACCUMULATE ACTIVE PAGE TABLE COUNT 
UNBIAS WSL VA FOR PAGE TABLE 

BUT FORCE SYSTEM BIT ON IN VA 
RETURN 


513 
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2000 
2001 
2002 


2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 


2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 


2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 


514 


-SBTTL 


ve 


me Ye Ve Ve 


ENVIRONMENT : 


=e te Se 


=e 


INSWAP : 


108: CLRL 
208: TSTW 


BRW 
308: MOVW 
CLRW 
MULL3 
ROTL 


40$: CLRL 
508: JSB 
TSTL 
BGEQ 


BUG CHECK INSNFREPAG, FATAL 


608: INCW 
MOVB 
BISL3 


AOBLSS 
CLRL 


™e Re Ve 


=e 


MOVW 
INCW 
MOVL 


INPUTS: 


INSWAP 


PERFORM REQUESTED INSWAP 


R4 - PCB ADDRESS OF INSWAP CANDIDATE 


IPL = SYNCH, MMG AND SCHED SPINLOCKS MUST BE HELD. 


PERFORM INSWAP 


PCBSL_PHD (R4) ,R5 GET CURRENT PROCESS HEADER SLOT 


ee Ve Ve 


10$ NONE, MUST ALLOCATE ONE 
PHDSW_PHVINDEX (R5) , R8 ; GET BALANCE SLOT INDEX 
40$ ? AND CONTINUE 
R8 ¢ INIT INDEX FOR BALANCE SLOT SEARCH 
@PHVSGL_REFCBAS [R8] 7 CHECK FOR EMPTY 
30$ 7 YES, GOT ONE 
G*SGNS$GL_BALSETCT, R8,20$; TRY ALL BALANCE SET SLOTS 
#31, #1,FP 7 SET FLAG TO PERMIT OUTSWAPPING 
7; OF PROCESSES 
OUTSWAP 3 OUTSWAP IF NECESSARY TO GET SLOT 


PCBSL_PID(R4) , @PHV$GL_PIXBAS[R8] : SET PIX FOR BALANCE SET SL 
@PHVSGL | REFCBAS [R8] AND BUMP REFERENCE COUNT 

G*SWP$GL_BSLOTSZ, R8, RO COMPUTE BALANCE SLOT OFFSET 
#9,RO,PCBSL_PHD (R4) MAKE BYTE OFFSET 

POSITIVE UNTIL I/O COMPLETE 


R9 INITIALIZE SWAPPER MAP INDEX 
G*MMGSALLOCPFN ALLOCATE A PAGE 

RO MAKE SURE IT WAS ALLOCATED 
60$ YES, CONTINUE 


eo %e %e Ne Ne Ye Yeo Ve we VO 


INSUFFICIENT FREE PAGES 

Q@W*PFNSAW_REFCNT [RO] REFERENCE PAGE 

#PEFNSC_ACTIVE, @W*PFNSAB_ STATE [RO] 7 AND MARK IT ACTIVE 
#<PTESC_ERKW!PTESM VALID>, RO, @SWPSGL_MAP[R9] ; MARK VALID, WRITABLE 


= 


R10,R9,50$ ; REPEAT FOR ALL REQUIRED PAGES 
@SWPSGL_MAP[R9] ; PUT STOPPER IN LIST 


ALL PAGES HAVE NOW BEEN ACQUIRED AND A BALANCE SET SLOT 
ALLOCATED. THE INSWAP I/O OPERATION CAN NOW BE PERFORMED. 


G“SCHSGW_SWPFAIL, G*SCHS$GW_SWPFCNT 3 RESET FAILURE COUNTER 
G*SWPSGW_BALCNT ADD ONE PROCESS TO BALANCE SET 
R4,G*SWPSGL_INPCB SAVE POINTER TO IN SWAP PCB 
R10,G*SWPSGL_ISPAGCNT SAVE COUNT OF ALLOCATED PAGES 

R8, G*SWPSGW_IBALSETX AND BALANCE SET SLOT NUMBER 


we Me Se Ne 


ASSUME PCBSL_SWAPSIZE EQ PCBSL_WSSWP+4 


MOVAL 


PCBSL_WSSWP (R4) , R2 ; R2 = address of WSSWP/SWAPSIZE pair 
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2056 TSTL (R2) 

2057 BEQL COPYSHELL ? BRANCH IF SHELL IN SWAP 

2058 BGTR 65$ + BR if simple, contiguous swap area 
2059 ADDL3 #PFLMAPSQ PTR, (R2) ,R2 7 R2 = address of lst pointer in window 
2060 658: CLRL RO. + Assume eats process inswap 

2061 BBC #PCBSV_: PHDRES, PCBSL_ STS (R4),70$ ; SWAP EVERYTHING IF HEADER NON- 
2062 MOVZWL PCBSW | APTCNT (R4) , RO ; GET ACTIVE PAGE TABLE COUNT 

2063 708: MOVAL @SWPSGL | MAP, R3 ; SVA OF PAGE TABLE FOR 1/0 

2064 MOVL R10,R4 + NUMBER OF PAGES TO READ 

2065 ADDL2 R10, G*SWPSGL_| ISWPPAGES 3; UPDATE TOTAL PAGES INSWAPPED 

2066 INCL G*SWPSGL_ISWPCNT. ? BUMP INSWAP COUNTER 

2067 BSBW SWPREAD ? PERFORM READ. 

2068 BLBS RO, 80$ . 9 BRANCH IF NO ERROR IN READ 

2069 . . »-BUG_CHECK INSWAPERR, FATAL ; **** BUGCHECK ON I/O ERROR 

2070 80$:. . BRW -—_—‘ SETUP ; SET UP PROCESS IN BALANCE SLOT 

2071 . oa ; 

2072 COPYSHELL: .. ._ ‘ 

2073 MOVL § G*MMGSAR_SYSPCB, R4 ? ADDRESS OF SYSTEM PCB 

2074 MOVL PCBSL _PHD (R4), R5 . 3 ADDRESS OF SYSTEM PROCESS HEADER 
2075 MOVL #SWPSC_| SHELLSIZ, R6 3 GET I/O PAGE COUNT FOR SHELL 

2076 MOVAB G*SWPS$GL_SHELLBAS, R2 7 GET ADDRESS OF SHELL 

2077 JSB G“MMGSSVAPTECHK 3 GET ADDRESS OF PAGE TABLE ENTRY 
2078 PUSHR #°M<R3 , R6> 3 SAVE SVAPTE AND PAGE COUNT FOR LATER 
2079 CLRL R8 ; SET FLAG INDICATING NO I/O NEEDED 
2080 MOVZWL #256+3,R7 7 SET FLAGS TO LOCK ONLY VALID OR 
2081 7 TRANSITION PAGES AND CREATE OTHERS 
2082 7 WITHOUT ZEROING THE PHYSICAL PAGE 
2083 MOVB #WSLSC_SYSTEM, R2 ?; SET PAGE TYPE IN LOW BITS 

2084 BISB S*$MMGSM | NOWAIT, G*MMGSGB_FREWFLGS ; PREVENT FREWLSE MWAIT 
2085 108: JSB G“MMG$ IOLOCKPAG 3 LOCK THE PAGE INTO SYSTEM WORKING SET 
2086 BLBS RO, 20$ ; BRANCH IF SUCCEEDED 

2087 BUG CHECK INSNFREPAG, FATAL 3 INSUFFICIENT FREE PAGES 

2088 20S: BISB RO, R8 7 SET FLAG (BIT 1) IF WE HAVE TO I/O IT 
2089 MOVAB 512 (R2) ,R2 7 BUMP VA TO NEXT PAGE 

2090 ADDL #4,R3 3; BUMP PTE TO NEXT ENTRY 

2091 SOBGTR R6,10$ ; LOOP THROUGH THE PAGES 

2092 POPR #°M<R3, R4> 7 RECOVER SVAPTE AND PAGE COUNT 

2093 BBC #1,R8,40$ 7; BRANCH IF ALL SHELL PAGES IN MEMORY 
2094 BICB S*#MMGSM_NOWAIT, G“MMGSGB_FREWFLGS ; ALLOW FREWLSE MHAIT 

2095 

2096 7 Mapping window for SHELL I/O 

2097 3 is located in SWAPPER’s PCB 

2098 FIND_CPU_DATA R2 

2099 MOVL CPUSL_CURPCB(R2) , R2 ? GET PCB ADDRESS 

2100 ASSUME PCBSL_SWAPSIZE EQ PCBS$L_WSSWP+4 

2101 MOVAL  PCBS$L_WSSWP (R2),R2 ; R2 = address of WSSWP/SWAPSIZE pair 
2102 CLRL RO 7 Don’t skip any pages in window 

2103 BSBW SWP READ + PERFORM SHELL READ 

2104 BLBS RO, 30$ ; BRANCH IF NO ERROR IN READ 

2105 BUG CHECK INSWAPERR, FATAL 3; **** BUGCHECK ON I/O ERROR 

2106 308: BISB S*#MMGSM_NOWAIT,G*MMGSGB_FREWFLGS ; PREVENT FREWLSE MWAIT 
2107 

2108 408: 7; ALLOW RESCHEDULES AND PAGEFAULTS WHILE 

2109 3 COPYING SHELL BUT NOT COMPLETION ASTS 

2110 

2111 UNLOCK LOCKNAME=MMG, - 7 UNLOCK MMG DATABASE, LEAVE IPL 

2112 PRESERVE=NO 7 OK to destroy RO 


§15 
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2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 


UNLOCK LOCKNAME=SCHED, - 


MOVL 
MOVAB 
ASHL 
CLRL 
MOVCS3 


NEWIPL=#IPL$ ASTDEL, - 
PRESERVE=NO 
#SWP$C_SHELLSIZ,R6 
G*SWPSGL_SHELLBAS, R7 
#9,R6,RO 

R1 

RO, (R7), (R1) 


™e Ye Ye Ye Ne Yeo we Ye 


UNLOCK SCHED DATABASE 

LOWER IPL TO AST 

OK to destroy RO 

GET I/O PAGE COUNT FOR SHELL 
GET ADDRESS OF SHELL 

GET BYTE COUNT 

FORM DESTINATION VA 

COPY THE SHELL TO LOCATION 0 


+ BACK TO BLOCKING MMG AND SCHED DATABASES 


LOCK 


BICB 
MOVQ 
JSB 
JSB 


LOCK 


LOCKNAME=MMG, - 
PRESERVE=NO 


S“#MMGSM_NOWAIT, G“MMGS$GB 


R6, R1 
G“MMGSSVAPTECHK 
G“MMGSUNLOCK 


LOCKNAME=SCHED, - 
CONDITION=NOSETIPL, - 
PRESERVE=NO 


e 
a 

SY 
cf 


Se Ne Xe Ye Se te se | 


LOCK MMG DATABASE 
OK to destroy RO 


FREWFLGS ; ALLOW FREWLSE MWAIT 


SET UP COUNT AND VA OF SHELL AGAIN 
GET ADDRESS OF PAGE TABLE ENTRY 
DROP THE REFERENCE COUNTS 
CONTINUE PROCESS CREATION 

LOCK SCHED DATABASE 

(WELL, DON’T REALLY SET IPL) 

OK to destroy RO 
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2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 


=e Se Se fe 


SETUP : 
BSBW 
MOVL 
TSTL 
BLSS 
ADDL 
TSTL 
- BNEQ 


108: 


INVALIDATE TB 


JSB 


NOTSHELL: 


-_MOVZWL G*SWPS$GW_IBALSETX, R8 


MOLL3 
MOVAL 
MOVL 
BBSS 
INCL 
BSBW 


=e Se Me Ye 


MOVW 
ADDL 
ADDL 
BBSS 
EXTZV 
ROTL 
MOVAB 


58: 


~e Se Ve 


MOVL 


INVALIDATE_TB 


™e Me Ye We Me Ne Ne 


MOVL 
JSB 

MOVL 
MOVL 
MOVL 
BLSS 
CLRL 


108: 


NOW SET 


SET UP PROCESS IN BALANCE SET SLOT 


SETUP INSWAP PROCESS 

INIT REGISTERS 

GET PCB ADDRESS OF INSWAP PROCESS 
CHECK FOR NEWLY ALLOCATED PHD. 


OSINIT 
G“SWPSGL_INPCB, R4 
PCBSL _PHD (Ré) 

10$ BR IF NOT 

G“SWPS$GL_BALBASE, PCBSL_PHD(R4) 3; AND SET ADDRESS IN PCB 
PCBSL_WSSWP (R4) CHECK FOR SHELL INSWAP 

NOTSHELL BR IF NOT 

‘CLEAR TRANSLATION BUFFER 

CALL SHELL INITIALIZATION 

WHICH RETURNS WITH A FULLY INITED PHD 


me Ye Se Ye Vo 


G*SWPESSHELINIT 


AND BALANCE SET INDEX 
COMPUTE OFFSET TO THIS SLOT 
FORM BASE ADDRESS OF MAP FOR SLOT 


G*SWPS$GL_BSLOTSZ,R8,R7 
@SWPSGL_BALSPT(R7] ,R7 


™e Ne Ne Ve Ye Ne Ve Nae Ne Yo 


R7,R3 NOW POINT TO PROCESS HEADER ; 
#PCBSV | PHDRES, PCBSL_STS(R4),5$ ; SKIP IF PROCESS HEADER STILL RESID 
G*SWPSGL_| HISWPCNT 3 COUNT SWAPS INCLUDING HEADER 

FILLPHD # SET INTO SPT ENTRIES 


FILLPHD RETURNS WITH R5 POINTING TO THE PROCESS HEADER POSITION 
WITHIN ITS PO SPACE. 


R8, PHDSW_PHVINDEX (R5) ? SET BALANCE SLOT INDEX 

PCBSL _ PHD (R4), PHDSL_POBR(R5) 3 RELOCATE PO BASE REGISTER 

PCBSL | , PHD (R4), PHDSL | __P1BR(RS5) # RELOCATE Pl BASE REGISTER 
#PHDSV | NOACCVIO, PHDSW | FLAGS (R5),5$ ; INDICATE PHD INSWAP TO PAGER 
#0, #PTESS | PFN, (R7), RO 7 GET PHYSICAL ADDRESS OF PCB 

#9,RO,RO 7 AND SET IN SOFTWARE PCB 

PHD$L_PCB(RO), PCBSL_PHYPCB(R4) 7 ADD OFFSET TO HW PCB 


PAGES FROM WORKING SET LIST INTO PAGE TABLE ENTRIES 


GET PROCESS HEADER ADDRESS 


PCBSL_PHD (R4) ,R5 ; 
7 CLEAR TRANSLATION BUFFER TO SEE IT 


A WINDOW IN P1 SPACE IS DOUBLE MAPPED TO ALL OF THE PROCESS 

HEADER EXCEPT FOR THE PAGE TABLES. THIS PERMITS REFERENCE TO 
MOST OF THE PROCESS HEADER WHILE RUNNING AT IPL LESS THAN THE 
SCHEDULER. 
A PROCESS (OTHER THAN THE SWAPPER) MUST RAISE TO IPLS$_SYNCEH. 


TO REFERENCE THE PROCESS HEADER IN SYSTEM SPACE 


; VIRTUAL ADDRESS OF PHD WINDOW 
; GET POINTER TO WINDOW PTE 
G*SGNSGL_PHDPAGCT, R2 ; SET COUNT OF PAGES FOR WINDOW 
#<PTESC_URKW!PTESM VALID>,R1 + SKELETON PTE 

(R7)+,RO ; GET SWAPPER PTE FOR PHD 

20$ 7 BR IF VALID PAGE 

(R3) + 7 NO, SET NO ACCESS 


G*SWPS$GL_PHDBASVA, R2 
G“MMGSSVAP TECHK 
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2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 


518 


BRB 308 
208: INSV RO, #PTESV_| PEN, #¢PTESS PEN, R2 3 AND INSERT PFN INTO WINDOW PTE 
MOVL R1, (R3) + 3 STORE IN WINDOW AND ADVANCE TO NEX PTE 
308: SOBGTR R2,10$ 3 MAP ENTIRE PHD WINDOW 
; ‘THE REMAINING LIST OF PAGES READ BY THE SWAPPER ARE NOW PROCESSED 
: ACCORDING TO THE CONTENT OF THE WORKING SET LIST IN THE HEADER OF 
: THE INSWAP PROCESS. THE DISPOSITION OF EACH INSWAP PAGE DEPENDS 
? ON ITS TYPE AND WHETHER THE PAGE IS ALREADY PRESENT IN WHICH CASE 
: THE NEW, REDUNDANT COPY IS DISCARDED. SHARED PAGES READ FROM THE 
F SWAP IMAGE WHICH ARE NOT ALREADY RESIDENT BECOME THE MASTER COPY 
? AS WELL AS SATISFYING THE REQUIREMENT OF THE INSWAP PROCESS. 
ROTL #PTESV_VALID, #1,R11 : FORM VALID MASK 
MOVL PHD$L_WSLIST(R5) , R6 3 INDEX TO START OF PERM ENTRIES 
MOVL PHDSL_WSLAST(RS5) , R7 3 POINTER TO LAST WS ENTRY 
e-ENABL LSB ; 
WSLOOP: MOVL (RS) [R6],R2 3 GET A WORKING SET ENTRY | 
BSBB 10$ ? AND PROCESS IT _ 
AOBLEQ R7,R6,WSLOOP ? SCAN ENTIRE WORKING SET LIST 
583 BICL3 R10, (R9) +, RO ¢ GET AND RELEASE EXCESS PAGES 
BEQL 7$ 3; BR IF NO MORE 
BSBW RELPAGE 3 RELEASE AN EXCESS PAGE . 
BRB 58 : AND TRY FOR ANOTHER 
7183 BRW SETASTLVL 3; END OF WORKING SET LIST 
ASSUME WSLSV_VALID EQ 0 ¢; FOR USE OF BLBS 
108: BLBS R2,20$ 3 CHECK FOR VALIDITY, BR IF VALID 
15$: RSB ¢ GET NEXT WSL ENTRY IF NOT VALID 
178: ADDL R5,R2 ¢ REBIAS VA FOR WSL ENTRY 
BISL3 R11,R2, (R5) (R6] ? AND SET SYSTEM BIT IN VA 
18S; RSB 3 NEXT WORKING SET LIST ENTRY 
208: ; 
BLSS 17$ 3 SKIP PAGE TABLE ENTRIES 
JSB G“MMGSSVAPTECHK 3; GET SVA OF PTE FOR PAGE 
: RO - ALL BITS EXCEPT PFN FIELD ARE CLEAR 
3 R2 - WS LIST ENTRY 
: R3 - SVA OF PTE 
; R4 —- INSWAP PROCESS PCB 
: R5 - PHD ADDRESS FOR INSWAP PROCESS 
; R6 - WORKING SET INDEX 
: R7 - END INDEX TO WORKING SET 
? R8 - BALANCE SET SLOT INDEX 
: R9 ~- ADDRESS OF PHYSICAL PAGE POINTER IN SWPSAL_MAP 
; R10 - PTESC_| ERKW!PTESM | VALID! PTES$M_1! MODIFY 
; R11 - CONSTANT PENSM | VALID 
BICL3 R10, (R9) +, RO 3 GET PFN FROM MAP 
BNEQ 30$ 3; GOT A GOOD PEN 
BUG CHECK ZEROPAGE, FATAL ? ZERO PAGE TABLE ENTRY FROM SWAP MAP 
30$8:3: MOVL (R3) , AP ¢ GET CONTENT OF PTE 
BGEQ 358 ? PTE VALID => PFN LOCK, NOT SWAPPED 
; IF THE PAGE IS VALID, IT MUST HAVE BEEN LOCKED IN MEMORY AND WAS IGNORED AT 
; OUTSWAP. THE REDUNDANT PAGE ALLOCATED FOR THIS WORKING SET LIST ENTRY MUST 
; BE RELEASED AFTER ALL WORKING SET LIST ENTRIES ARE PROCESSED. NO OTHER 


ACTION IS NEEDED SINCE THE PTE FOR THE LOCKED PAGE IS ALREADY CORRECT. 
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2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 


2306. 


3 THE PFN THAT WOULD HAVE MATCHED THIS ENTRY REALLY BELONGS TO THE NEXT 
¢ WSL WITHOUT PFNLOCK SET, SO THE MAP POINTER IN R9 MUST BE BACKED UP FOR 
3 ANOTHER TRY. 
BBC #WSLSV_PFNLOCK, R2, 32$ # ERROR IF PAGE NOT LOCKED IN MEMORY 
TSTL ~ (RQ) ? BACK UP IN SWAPPER MAP 
RSB 3 AND CONTINUE WITH NEXT WSL 
32$: BUG CHECK ICPAGELOC, FATAL ; INCONSISTENT PTE/WSL 
35$: BBC #PTESV_TYP1,AP,NTYP1 3; BR IF NOT TYPE 1 
MOVL R3, QW*PFNSAL , PTE [RO] 7 NOTE LOCATION OF PTE 
PFN_REFERENCE - 
MOVW <R6, @W*PFNSAX_WSLX[ROJ>, - ¢ AND POSITION IN WORKING SET 
LONG_OPCODE=MOVL, - 
IMAGE=SYS_NONPAGED 
EXTZV #PFNSV_| BAKO, #PENSS | BAKO, (R3),R1 ; GET BACKING ADR FROM PTE 
_ BBS #PTESV | TYPO,R1, 40$_ 3 BR IF SECTION ADDRESS 
EXTZV #PTESV_PRCPGFLX, - 
#PTESS PRCPGFLX, R1,R2 + Get PROCESS page file index 
MOVZBL PHDS$B_ PRCPGFL(RS) [{R2],R2; Convert to SYSTEM page file index 
INSV R2, #PFNSV_| PGFLX, #PFNS$S_PGFLX,R1 ; Form backing store address 
40S: MOVL Rl, QW“PFNSAL | BAK[RO] 3 STORE BACKING ADDRESS 
MOVB TERNS ACTIVE, @W*PFNSAB _ STATE [RO]; SET PAGE ACTIVE 
RECONNECT: 3 RECONNECT TO PAGE 
BICL3 #°C<PTESM_PROT!PTESM_OWN>, (R3), R1 7 RETAIN PERMANENT BITS... 
MOVAL (R5) [R6}),R2 ? GET ADDRESS OF WORKING SET LIST ENTRY 
BBCcC -#WSLSV | MODIFY, (R2), 50$ ; CHECK FOR MODIFIED AND CLEAR 
BISB #PFNSM | MODIFY, @W*PFNSAB_STATE[RO] ; RECORD MODIFY STATE 
50S: BISL Ril, Rl ¢ SET VALID BIT FOR PTE 
BISL3 RO,R1, (R3) ? MERGE BITS WITH PFN AND STORE IN PGTBL 
EXTZV #VASV_VPN, #VASS_VPN, R3,R1 ? GET VPN OF PAGE TABLE 
INSV Q@W“MMGS$GL_SPTBASE (R1], #0, #PTESS_PFN,RO 3 GET PT PFN 
. 3 ASSUMES HIGH ORDER BITS OF RO ARE CLEAR 
| PFN_REFERENCE - 
TSTW <QW“PFNSAX. SHRCNT [RO] >,- 3. CHECK FOR FIRST ACTIVE PAGE 
LONG _OPCODE=TSTL, - 
IMAGE=SYS __NONPAGED 
BNEQ 60$ 3 NO, JUST RAISE SHARE COUNT FOR PT 
PFN REFERENCE - 
MOVZWL <@W*PFNSAX_WSLX[RO],R1>,- ? GET INDEX TO WSL ENTRY FOR PAGE TA 
LONG OPCODE=MOVL, - fe 
IMAGE=SYS_NONPAGED 
BISL #WSLSM_WSLOCK, (R5)[R1] ; AND MARK IT LOCKED IN WORKING SET 
INCW PHDSW_PTCNTACT (RS) ; COUNT ANOTHER ACTIVE PAGE TABLE 
INCW @PHVS$GL_REFCBAS [R8] 3; RAISE REFERENCE COUNT OF BALANCE SLOT 
608: ; 
PFN REFERENCE - 
INCW <@W“PENSAX_SHRCNT [RO] >, - ; INDICATE ANOTHER ACTIVE PAGE FOR P 
LONG OPCODE=INCL, - 
IMAGE=SYS_NONPAGED 
RSB 3 RETURN TO GET NEXT WSL ENTRY 
-DSABL LSB 3; 
NTYP1: ¢ GLOBAL OR TRANSITION 
BBS #PTESV_TYPO,AP,11$ ; BR IF GLOBAL PAGE 
EXTZV #PTESV_PEN, #PTESS_ PFN, AP, FP 3 GET OLD PFN IF ANY 
BEQL 128 3; BR IF ZERO PAGE (BUG CHECK) 
3 RELEASE PFN FOR PAGE ALREADY PRESENT 
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2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 


3 


108: 


118: 
12S: 


208: 


308: 
408: 


45$: 


508: 


GV we te Se Me Ye Ne Se 


BSBW  RELPAGE ? RELEASE DUPLICATE PAGE 
MOVL FP, RO ; GET SAVED PFN 

EXTZV #PFNSV_LOC, #PFNSS_LOC, @W*PFNSAB_STATE[RO], R2 
ASSUME PFNS$C_FREPAGLST EQ 
ASSUME PFNSC_MFYPAGLST EQ 
ASSUME. PFNS$C_BADPAGLST EQ 
ASSUME PFNSC_RELPEND EQ 
ASSUME PFNSC_RDERR EQ 
ASSUME PFNSC_WRTINPROG EQ 
ASSUME PFNSC_RDINPROG EQ 
ASSUME PFNSC_ACTIVE EQ 
CASE R2,<- 


SAnMe®wWwner o 


DISPATCH ON PAGE LOCATION 


we Se Ne Ye Ne Ye Se Ve Ne Ye Te Ye Yo Ye Ye Ye Ve 


20$,- 0 => FREE PAGE LIST 

20$,- 1 => MODIFIED PAGE LIST 

60$,- 2 => BAD PAGE LIST, PAGE READ/WRITE ERR 
30$,- 3 => RELEASE PENDING 

10$,- 4 => PAGE READ ERROR 

30$,- 5 =» WRITE IN PROGRESS 

40$,- 6 => READ IN PROGRESS 

30$> 7 => ACTIVE ( I/O NOT YET COMPLETE 


INCONSISTENT PAGE LOCATION 


bt) 


BUG CHECK ICPAGELOC, FATAL 


BRW GLOBAL 7 GLOBAL PAGE 

BUG CHECK ZEROPAGE, FATAL 7 ZERO PFN IN PTE 

PUSHL R3 SAVE SVAPTE 

JSB G“MMGSREMPFN UNLINK PFN FROM FREE OR MODIFY LIST 


POPR #“M<R3> 

MOVAL (R5) [R6] ,R2 
BISL R11, (R3) 
ASSUME PFNSV LOC EQ 0 


RESTORE SVAPTE 

COMPUTE ADDRESS OF WSL ENTRY 
SET VALID BIT FOR PTE 

TO USE BISB INSTEAD OF INSV 


GQ we Me Me Se Ye Ne 


BISB #PFNSC_ACTIVE, @W*PFNSAB_STATE [RO] ; 

BICB ¢<PFNS$M_DELCON!- CLEAR DELETE AND 
PENSM_MODIFY>, - MODIFY 
@W*PFNSAB_STATE (RO) FLAGS 


INCW @W*PFNSAW_REFCNT([RO] 
CLRW @W*PFNSAW_SWPVBN(RO] 
MOVAL (RS5) [R6],R2 
BBCC #WSLSV_MODIFY, (R2),50$ 
BISB #PFNSM MODIFY, @W*PFNSAB__ 
PFN REFERENCE - 
MOVW <R6, @W*PFNSAX_WSLX[RO]>, - ; SET WORKING SET LIST INDEX FOR PAG 
LONG_OPCODE=MOVL, - 
IMAGE=SYS_NONPAGED 
RSB ; AND RETURN FOR NEXT PAGE 


RAISE REFERENCE COUNT 

INDICATE NO ALTERNATE LOCATION 
COMPUTE ADDRESS OF WSL ENTRY 
CLEAR MODIFY BIT FOR WSL 
TATE {RO} ; RECORD PAGE AS MODIFIED 


TH Ne Te Me Me Ne Se Ne 


PAGE IS ON THE BAD PAGE LIST. IT HAS THE FOLLOWING POSSIBLE STATES 


1) BADPAG BIT SET IN G*PFNSAB_TYPE => BUG CHECK 

2) SWPVBN CLEAR => PAGE WRITE ERROR, CORRECT COPY OF MODIFY BIT 
IS THE LOGICAL OR OF THE WSLE BIT AND THE PFN BIT 

3) SWPVBN SET => PAGE READ ERROR, SET RDERR STATE. 


BBS #PFNSV_BADPAG, QW*PFNSAB_TYPE[RO],10$ ; ERROR IF BADPAG 
PUSHL R3 3; SAVE PTE ADDRESS 
JSB G“MMGSREMPFN ; UNLINK PFN FROM THE BAD PAGE LIST 
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2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 


2379 
2380 
(2381 
2382 
2383 
2384 
2385 
2396 
2387 
2368 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 


Se Ne Se 


POPR #“H<R3> 

MOVAL (R5) ([R6]},R2 

TsSTw @QN“PFNSAN_SWPVBN (RO) 
BUEQ 80$ 


RESTORE PTE ADDRESS 

COMPUTE ADDRESS OF WSL ENTRY 

If SWPVBN SET, THEN PAGE READ ERROR 
BRANCH IF PAGE READ ERROR 


we Ne Ye Yeo 


PAGE WRITE ERROR 


ASSUME PFYNSV_MODIFY EQ 7 


TsTB Q@W“PFNSAB_ STATE [RO] IF PFN MODIFY BIT IS SET 


? 
BGEO 308 ? 
BBSsSs #WSLSV_MODIFY, (R2) , 30$ ¢; THEN JAM THE WSL ENTRY MODIFY BIT 
BRB 30$ 3 AND CONNECT TO THE PAGE 


7 PAGE READ ERROR 
2378 ; a 


MOVR #<PFNSM_| DELCON ! PFNS$C_RDERR>,- ; SET DELCON 
@W“PFNSAB | STATE [RO] AND PAGE READ ERROR STATE 
BICW #<WSL$M_MODIFY>, (R2) CLEAN UP WSLE 
BRB 45$ AND LEAVE PTE IN TRANSITION STATE 


me Ye Ve 


INSWAP GLOBAL PAGE 


+ GLOBAL PAGE INSWAP 
BXTZV #PTESV_GPTX, #PTESS GPTX,AP,R1 ; GET GLOBAL PAGE TABLE INDEX 
MOVAL  @W“MMGSGL , GPTBASE(R1), R1 7 AND CONVERT TO ADDRESS OF GPTE 


MOVL (R1),R2 ? PICK UP GLOBAL MASTER PTE 
BLSS 10$ ? BR IF VALID 
BBS @PTESV_TYPO,R2,5$ : BR IF GLOBAL SECTION TYPE 


EXTZV #PTESV_PFN, #PTESS PFN,R2,RO : GET PFN OF TRANSITION PAGE 

ASSUME PFNSC_| FREPAGLST EQ 0 

EXTZV #PFNSV LOC, #PFNS$S_LOC, @W“PFNSAB | STATE [RO], R2 3 TEST FOR FREE PAGE 
BEQL 20$ ? YES, REFAULT IT 

ASSUME PFNSC_RDINPROG EQ <PFNSC_RDERR + 2> 

CASE R2, <- DISPATCH ON READ CASES: 


58$, - ? READ ERROR 

4$, - 3 WRONG STATE 

60$ >, - s READ IN PROGRESS 

LIMIT=#PFNSC_RDERR 2 ae 
BUG CHECK ICPAGELOC, FATAL 3; WRONG STATE ~- CRASH SYSTEM 
BRW 50$ 3 A BRANCH ASSIST 

? INSWAP WITH VALID GLOBAL PAGE 
BSBY RELPAGE 3 RELEASE REDUNDANT PAGE 
EXTZV. #PTESV_PFN, #PTESS PFN, R2,RO 3 GET PFN FROM MASTER 
BRB 40$ AND GO SETUP SLAVE PTE 
GLOBAL ON FREE LIST 

PUSHL RO SAVE MASTER PEN 


GET REDUNDANT PFN 

AND RELEASE IT (PRESERVING R1-R3) 
RESTORE MASTER PFN 

SET PAGE VALID 

SAVE SVAGPTE, SVAPTE 

JSB G“MMGSREMPFN REMOVE PFN FROM FREELIST 

POPR €*M<R1, R3> RESTORE SVAGPTE, SVAPTE 

INSV #PFNSC_. ACTIVE, #PFNSV_ LOC, #PFNSS - LOC, @W*PFNSAB | STATE [RO] : 
IncCW @W“PFNSAW ee ; RAISE ~ REFERENCE COUNT 
BRB 40$ 2 


BICL3 R10,-4(R9).,RO 
BSBW  §RELPAGE 

POPR #*M<RO> 

BISL R11, (R1) 
PUSHR #*M<R1,R3> 


me Ye Ne Me Ye Me Me Ye Me YW 


§21 
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2421 308: 
2422 | 


2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 


358: 


40S: 


508: 


558: 


60S: 


EXTZV #VASV_VPN, #VASS_VPN,R1,R1 + GET VPN OF PAGE TABLE 

MOVL QW“MMGSGL_SPTBASE [R1],R1 3 GET PAGE TABLE PTE 

EXTZV #PTESV_PFN, #PTESS_ PFN, R1,R1 ? EXTRACT PFN 
PFN_REFERENCE - 

TSTW <@W*PFNSAX_SHRCNT[R1] >, - ; CHECK FOR FIRST REFERENCE TO PTABL 
LONG _OPCODE=TSTL, - 
IMAGE=SYS_ NONPAGED 


BNEQ 35 ; NO 
BUG CHECK GBLPAGSZRO, FATAL ; GLOBAL PAGE SHARE COUNT ZERO 
PFN REFERENCE - 
INCW <@W“PFNSAX_SHRCNT[R1]>,- ; RAISE GLOBAL PAGE TABLE SHARE COUN 


LONG_OPCODE=INCL, - 
IMAGE=SYS_NONPAGED 
_ -PEN_REFERENCE - 
INCW <@W*PFNSAX_SHRCNT(RO]>, - ; RAISE SHARE COUNT FOR GLOBAL PAGE 
LONG_OPCODE=INCL, - 
IMAGE=SYS_NONPAGED 
BRW RECONNECT ; RECONNECT AND REFERENCE PAGE TABLE 
EXTZV #PFNSV_BAKO, #PFN$S_BAKO,R2,@W*PENSAL_BAK(RO] ; SAVE BACKING ADDR 
BICL  § #*C<PTESM_PROT!PTESM_OWN>,R2 =; SAVE PROTECTION AND OWNER FIELDS 
BISL R11,R2 SET PTE VALID 
BISL3 R0,R2, (R1) AND STORE WITH PFN IN GPT 
MOVL  R1,@W*PFNSAL PTE[RO] §; SET SVAGPTE IN PFN DATA BASE 
MOVB #$ #PFNSC_ACTIVE,@W*PFNS$AB_STATE[RO] ; SET STATE TO ACTIVE 
MOVB #PFNSC_GLOBAL,@W*PFNSAB_TYPE(RO] ; AND TYPE TO GLOBAL 
BRB 30$ ; NOW GO SETUP SLAVE PTE 


oe %e Ne 


PAGE READ ERROR IN GPTE 
THE PFN IN THE GPTE WILL BE DEALLOCATED 
THE GPTE WILL BE ALTERED TO USE THE PFN FROM THE INSWAP IMAGE 
THE DATA BASE WILL BE ADJUSTED AS APPROPRIATE 


Seq Ye Ye Xo 


BICL3 R10, -4(R9), R2 
MOVL @W*PFNSAL_BAK(RO], @W*PFNSAL_BAK[R2] 
MOVB § #PFNSC_ACTIVE, @W*PFNSAB_STATE[R2] 
MOVB  #PFNSC_GLOBAL, @W*PFNSAB_TYPE(R2] SET TYPE TO GLOBAL. 
PFN_REFERENCE - , COPY SHARE COUNT. 
MOVW < @W*PFNSAX_SHRCNT[RO], @W*PFNSAx_SHRCNT[R2] >, - 
LONG _OPCODE = MOVL, - 
IMAGE=SYS_NONPAGED 
CLRL § @W*PFNSAL_PTE[RO] 
BSBW §RELPAGE 


GET SWAP IMAGE PFN. 
COPY BACKING STORE. 
SET STATE TO ACTIVE. 


we Se Ye Ye Yo 


SETUP FOR AND RELEASE 
READ ERROR PFN. 
NOBODY CAN USE IT. 
SETUP NEW MASTER PFN. 
PLANT PFN IN GPTE. 
PLANT PTE IN DATABASE. 
MAKE PTE VALID. 

JOIN COMMON CODE. 


MOVL R2, RO 

INSV RO, #PTESV_PFN, #PTE$S_PFN, (R1) 
MOVL R1, @W*PFNSAL_ PTE [RO] 

BISL Rll, (Ri) 

BRB 40$ 


we Te Ce Be Ye Ye Ve Yeo 


BISB #PFNSM_COLLISION, @W*PFNSAB_TYPE [RO] ? FLAG COLLISION FOR PAGEREA 

UNLOCK LOCKNAME=MMG, - UNLOCK MMG DATABASE, LEAVE IPL 
PRESERVE=NO OK to destroy RO 

PUSHR #°M<R2,R3,R4,R5> SAVE REGS OVER WAIT 

FIND _CPU_ DATA R4 

MOVL CPUSL_CURPCB (R4),R4 

JSB G“SCHSNEWLVL 

MOVAQ G*SCHS$GQ_COLPGWQ, R2 


™e Ye Ve 


AND SET PCB ADDRESS 
SET ASTLVL CORRECTLY 
GET ADDRESS OF WAIT QUEUE 


me Ye Ve 
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2478 
2479 
2480 


2481 | 


2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 


2499. 


2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 


PUSHL 
JSB 


#0 ie ? NULL KERNEL MODE PSL 
G*SCHSWAITK ; WAIT WITH NO CALL FRAME 


; LOCK BOTH MMG AND SCHED DATABASES AGAIN ! ~ 


LOCK 


LOCK 


POPR 


BICL3 
BRW 


LOCKNAME=MMG, - LOCK MMG DATABASE 


PRESERVE=NO ; OK to destroy RO 
LOCKNAME=SCHED, - ; LOCK SCHED DATABASE 
CONDITION=NOSETIPL, - 3 DON’T SET IPL 

PRESERVE=NO 7 OK to destroy RO 
#°M<R2,R3,R4,R5> ; RESTORE REGS 

R10, ~4 (R9) , RO ; RESTORE CURRENT PFN 

GLOBAL 7; AND ATTEMPT TO REASSOCIATE PAGE 


Deallocate swap space in PFLMAP and deallocate structure 


PFLMAP_WSSWP: 


we Ne Ne 


MOVL 
PUSHAB 
JMP 


RO, R2 3; PFLMAP address must be in R2 
B“CLRWSSWP ; Push return address 
G*MMGSDEALLOCSWPAREA2 ; Deallocate swap space and PFLMAP 


SET PROPER AST LEVEL 


SETASTLVL: 


108: 
208: 


MOVAL 
MOVL 
CMPL 
BEQL 
CLRL 
MOVB 
BLSS 
EXTZV 
BICB3 
BBC 
MOVB 
BISL 
MOVL 
BEQL 
BLSS 
EXTZV 
MOVL 
BICL2 
BICL3 
JSB 


CLRWSSWP : 


NOWS SWP : 


ASSUME 
CLRQ 


MOVW 
MOVZBL 
SUBB3 
CMPB 
BGTR 
MOVL 
ADDL3 


PCBSL_ASTOFL(R4) ,R3 GET POINTER TO HEAD OF AST QUEUE 


=e Ne Ne 


(R3) ,R2 GET POINTER TO FIRST AST CONTROL BLOCK 
R3,R2 ; IS LIST EMPTY? 

20$ + YES, DONE 

RO 7; ASSUME KERNEL MODE 

ACBSB_RMOD (R2), R3 ? GET ACTUAL MODE 

10$ ; BR IF SPECIAL KERNEL AST 

#ACBSV_MODE, #ACBSS_MODE,R3,RO ; GET ACCESS MODE 
PCBSB_ASTACT(R4),PCBSB_ASTEN(R4),R1 7 CHECK FOR DELIVERABILITY 
RO,R1,20$ 3 BR IF NOT PRESENTLY DELIVERABLE 

RO, PHDSB_ASTLVL (R5) ; SET AST LEVEL FOR PROCESS 


#<<1@PCBSV_ RES>!<1@PCBSV_INQUAN>>, PCBSL_STS(R4) ; MARK PROCESS RESID 
PCBSL WSSWP (R4) ,RO Swap space to ~deallocate ? 


NOWSSWP ; BR if none 

PFLMAP WSSWP 7; BR if PFLMAP address 

#24, #8,R0,R3 7 Convert page file index 
@MMGSGL_PAGSWPVC[R3],R3 ; to page file control block address 
#<<“XFF>@24>, RO 7; Leave only start VBN to deallocate 


#<1@31>, PCBSL_SWAPSIZE (R4),R1 7 Size of space to deallocate 
G“MMGSDEALLOCSWPAREA 7 Deallocate swap space 


PCBSL_SWAPSIZE EQ PCBSL_WSSWP+4 
PCBSL_WSSWP (R4) 7 Show no swap space held 


G*SCHSGW_QUAN, PHDSW_QUANT (R5) ; AND GIVE NEW QUANTUM 

PCBSB | PRI(R4), RO 7 GET CURRENT PRIORITY OF PROCESS 

RO, #31, Rl ; COMPUTE EXTERNAL PRIORITY FOR COMPARE 
R1,G*SYS$CB_DEFPRI 7; IS THIS A CRUNCHER? 

30$ 7 NO, CONTINUE 

G*EXESGQ_SYSTIME, R1 ; GET CURRENT TIME IN APPROX. 10MS UNITS 
G*SCHSGL_SWPRATE, R1,G*SWP$GL_SWTIME ; SET NEW CRUNCHER INTERVAL 
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524 


CHANGE TO RESIDENT COMPUTE | 


G“SCHS$CHSEP ; 
? RETRY SWAP SCHEDULING 


FIND_CPU_ DATA R4 


2535 30$: JSB 
2536 SWAPRETRY: 
2537 

2538 MOVL 
2539 BBSSI 
2540 208: | 
2541 .DSABL 
2542 SWAPEXIT: 

2543 BBCC 
2544 108: 

2545 SWAPEXITA: 
2546 POPR 
2547 RSB 


CPU$L_CURPCB(R4), R4 ; GET PCB ADDRESS 
#P2CBSV_WAKEPEN, PCBSL_STS (R4) , 20$ |» SET TO CANCEL HIBER 
LSB 


; EXIT SWAPPER 
S“#SCHSV_SIP, G*SCHS$GB_SIP, 10$ # CLEAR SWAP IN PROGRESS 


? ALTERNATE EXIT, LEAVING SIP SET 
#°M<R6,R7,R8,R9,R10,R11,AP,FP> ; RESTORE REGISTERS 
; 
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-SBTTL FILLPHD - FILL SPT ENTRIES TO MAP PHD 


2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 


2578 


2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 


at+ 
FUNCTIONAL DESCRIPTION: 


se Se Ne Se Se Ne Me Ne Ne Se Ne Ne Ye Ne Ye te Ye Ne Ye Se Ne 


FILLPHD: 


FILLPHD SETS THE PTE ENTRIES FOR THE PROCESS HEADER INTO THE 


SPT. 


CALLING SEQUENCE: 


BSB/JSB FILLPHD 


R3 - 
R9 - 
R10 - 


INPUT PARAMETERS: 


POINTER TO FIRST SPT ENTRY FOR PHD 
ADDRESS OF SWAPPER MAP ENTRY TO BE MOVED TO SPT 
PTESC_ERKW!PTESM VALID! PTESM MODIFY 


OUTPUT PARAMETERS: 


R2 - DESTROYED 
R5 - ZERO 

R6 - DESTROYED 
R9 - UPDATED 
R11 ~- DESTROYED 
AP - DESTROYED 
FP - DESTROYED 


CLRL 


INVALIDATE_TB 


CLRL 


MOVZWL 


ASHL 
MOVL 
MOVAL 
MOVL 
MOVAL 


‘SUBL 


SUBL 
MOVL 


SET PHD ADDRESS TO SWAPPER PO SPACE 
TO SEE CORRECT PROCESS HEADER IN SWAPPER P 


R5 


R11 INIT HEADER PAGE INDEX 
PHDSW_EMPTPG (R5) , R6 GET COUNT OF EMPTY PAGES 
#9,R6,R6 CONVERT TO BYTE OFFSET 
PHDSL_WSLX(R5) , AP FORM BASE ADDRESS FOR WSLX 
(R5) [AP] , AP SAVE VECTOR FOR PHD 


FORM BASE ADDRESS FOR BACKING STORE ADDRES 
VECTOR 

ACCOUNT FOR EMPTY PAGES 

BY SUBTRACTING THEIR SPACE 

SET ITERATION COUNT FOR ENTIRE HEADER 

SET BACKUP FORM OF PTE IN SPT SLOT 

DONE IF NOT VALID 

GET PAGE FROM SWAPPER MAP 

SET PTE BACK POINTER 


‘PHDS$L_BAK (RS) , FP 

(R5) (FP]),FP 

R6, AP 

R6,FP 

G“SWPS$GL_BSLOTSZ, R6 
(FP) +, (R3)+ 

30$ 

R10, (R9) +, RO 

~(R3), QW°PFNSAL_PTE[R0O] 
#PTESV_BAKX, - 

#PTESS BAKX, (R3),R1 3; Get VBN & PROCESS page file index 
#PTESV | ’_PRCPGFLX, - . 

#PTESS |_ PRCPGFLX, (R3), R2 ; Get PROCESS page file index 

PHDSB | PRCPGFL(R5) [R2], R2; Convert to SYSTEM page file index 
R2, #PFNSV_| PGFLX, #PFNSS_PGFLX,R1 ; Form backing store address 


me Se Ve Ne Ne Se Ne Ne Me Ne Ne Ye Se Ne Ne Ne 


Rl, @W*PFNSAL_BAK[RO] ; SAVE IN PFN DATA BASE 
PFN_REFERENCE - 
<(AP) [R11], @W“*PFNSAX_WSLX[RO] >, - + SAVE WORKING SET LIST INDE 


LONG _OPCODE=MOVL, - 

IMAGE=SYS_NONPAGED 

RO,R10, (R3) + 3; SET VALID PTE FOR PAGE 

#<PFNS$C_ACTIVE! PFNSM_MODIFY>, @W°PFNSAB_ STATE[RO] ; MARK PAGE ACTIVE 
#PFNSC_PPGTSL, @W*PFNSAB_ TYPE[RO] ; STORE TYPE IN PFN DATA BAS 
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2607 308: AOBLSS R6,R11,10$ 3 FILL ENTIRE PROCESS HEADER 
2608 RSB 
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2611 ~SBTTL RELINIT - INITIALIZE REGISTERS FOR PAGE RELEASE LOOP 
2612 
2613 ;++ 
2614 ; FUNCTIONAL DESCRIPTION: 
2615 ; RELINIT SETS UP REGISTERS FOR THE PAGE RELEASE LOOPS FOLLOWING 
2616 ; OUTSWAP I/O OPERATIONS. 
2617 ; 
2618 ; CALLING SEQUENCE: 
2619 ; BSB/JSB RELINIT 
2620 ; 
2621 ; INPUT PARAMETERS: 
2622 ; NONE 
2623 ; 
2624 ; OUTPUT PARAMETERS: 
2625 ; RO - O 
2626 ; R4 - OUT SWAP PCB ADDRESS (OSWPPCB) 
2627 ; R7 - PAGE COUNT TO RELEASE 
2628 ; R9 - BASE ADDRESS FOR SWAPPER MAP (SWPSAL | MAP) 
2629 ; R10 - PTESC _ERKW! PTESM | VALID! PTESM | MODIFY 
2630 ? _ R11 - BASE ADDRESS FOR  SWAPPER MAP (SWPSAL | MAP) 
2631 ; ; 
2632 3-- 
2633 
2634 RELINIT: ; RELEASE LOOP INITIALIZATION 
2635 MOVL W“OSWPPCB, R4 ; GET PCB ADDRESS OF OUT SWAP PROCESS 
2636 MOVL W*“OSWPPGS, R7 3 AND PAGE COUNT FOR RELEASE LOOP 
2637 ; BRB OSINIT : FALL INTO OSINIT 
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2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 


-SBTTL OSINIT - OUTSWAP SCAN REGISTER INITIALIZATION 

e+t+ 

3 FUNCTIONAL DESCRIPTION: © 

; OSINIT SETS UP REGISTERS FOR PAGE TABLE SCANS REQUIRED DURING 

; OUTSWAPP ING. 

3 

3 INPUT PARAMETERS: 

7 NONE 

2. 

3 OUTPUT PARAMETERS: 

3 R9 - BASE ADDRESS OF SWAPPER MAP (SWPSAL ) MAP) 

; R10 - PTESC_ERKW!PTESM_ VALID 

3 Rll - BASE ADDRESS OF SWAPPER MAP (SWPSAL _ MAP ) 

’ 

3o- 

OSINIT: ; 
MOVAL @SWPSGL_MAP,R9 # SET BASE OF SWAPPER MAP 
MOVL R9, R11 3 AND MAKE REFERENCE COPY 
MOVL #<PTESC_ERKW! PTESM | VALID! PTESM | MODIFY>,R10 ; MASK TO VALIDATE SWAP P 
RSB ; RETURN 
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-SBTTL RELPAGE - RELEASE DUPLICATE PAGE 


2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 


we te 


~e Te Ye Se Se Ye Yo Se Ve Ve Ne Ve Ve Ye Ye Ve Be 


RELDELPAGE : 
JSB 

RELPAGE : 
PUSHR 
CLRB 
CLRW 
ASSUME 
CLRL 
JSB 
POPR 
RSB 


PRESENT FOR THE PROCESS. 
INSWAP OR A GLOBAL PAGE WHICH IS ALREADY PRESENT. 


FUNCTIONAL DESCRIPTION: 
RELPAGE RELEASES A PHYSICAL PAGE WHICH DUPLICATES A PAGE ALREADY 
THIS SITUATION CAN ARISE DUE TO A PARTIAL 


CALLING SEQUENCE: 
BSB/JSB RELPAGE 


INPUT PARAMETERS: 
RO - PFN TO RELEASE 
R3 - SVA OF PTE (RELDELPAGE ONLY) 


OUTPUT PARAMETERS: 
Rl - PRESERVED (RELPAGE ONLY) 
R2 - PRESERVED (RELPAGE ONLY) 
R3 - PRESERVED (RELPAGE ONLY) 


G*MMGSDELCONPFN 


#“M<R1,R2,R3> 
QW°PFNSAB_STATE [RO] 
Q@W°PFNSAW_REFCNT[RO] 
PFNS$C_FREPAGLST EQ 0 
R2 

G“MMGS INSPFNH 
#°M<R1,R2,R3> 


=e %e Me Me MO Ne Me Ye Me Ne Me 


RELEASE PAGE THROUGH DELCONPFN 

DELETE PAGE CONTENT AND INIT PFN DATA 
RELEASE PAGE 

PRESERVE REGISTERS 

INIT PFN DATA FOR RELEASE 

ZERO REFERENCE COUNT 


INDICATE FREELIST 

RELEASE PFN TO HEAD OF FREE LIST 
RESTORE REGISTERS 

AND RETURN TO CALLER 
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2699 -SBTTL SWPREAD/SWPWRITE - SWAPPER I/O ROUTINES 

2700 

2701 ;++ 

2702 ; FUNCTIONAL DESCRIPTION: 

2703 ; SWPREAD AND SWPWRITE PERFORM THE DETAIL WORK REQUIRED TO READ 
2704 ; OR WRITE A SET OF CONTIGUOUS PAGES IN A WORKING SET SWAP IMAGE. 
2705 ; THE CALL TO EITHER SWPREAD OR SWPWRITE IS ACTUALLY A CO-ROUTINE 
2706 ; CALL WHICH RETURNS ONLY AFTER ALL SEGMENTS OF THE I/O OPERATION 
2707 ; HAVE BEEN PERFORMED. THIS RETURN IS EFFECTED BY A SPECIAL KERNEL 
2708 ; AST. 

2709 ; 

2710 ; CALLING SEQUENCE: 

2711 ; BSB/JSB SWPREAD/SWPWRITE 

2712 ; 

2713 ; INPUT PARAMETERS: 

2714 ; RO - Pages to skip in mapping window 

2715 ; = 0 process header outswap or full process inswap 
2716 ; = APTCNT process body outswap or inswap 

2717 ; R2 - Address of WSSWP/SWAPSIZE mapping window 

2718 ; R3 - SYSTEM VIRTUAL ADDRESS OF PTE 

2719 ; R4 - PAGE COUNT 

2720 ; : 

2721 ; 00(SP) - RETURN ADDRESS AFTER I/O COMPLETION 

2722 ; 04(SP) - SAVED R6 

2723 ; 08 (SP) - SAVED R7 

2724 ; 12(SP) - SAVED R8 

2725 ; 16(SP) - SAVED R9 

2726 ; 20(SP) - SAVED R10 

2727 ; 24(SP) - SAVED Ril 

2728 ; 28(SP) - SAVED AP 

2729 ; 32(SP) - SAVED FP 

2730 ; 36(SP) - RETURN TO PREVIOUS THREAD 

2731 ; 

2732 ; IMPLICIT INPUTS: 

2733 ; PAGE FILE TABLE ENTRIES (PFL) SELECTED BY MAPPING WIi/DOW 

2734 ; 

2735 ; OUTPUT PARAMETERS: 

2736 ; RO - COMPLETION STATUS OF I/O OPERATION 

2737 ; 

2738 ; ENVIRONMENT: 

2739 ; IPL = SYNCH, MMG AND SCHED SPINLOCKS MUST BE HELD. 

2740 ;-- 

2741 

2742 ASSUME IOEA EQ IOROUTINE+4 

2743 ASSUME TPGCNT EQ IOEA+4 

2744 ASSUME PFLMAP EQ TPGCNT+4 

2745 ASSUME RWSSWP EQ PFLMAP+4 

2746 ASSUME RSVAPTE EQ RWSSWP+4 

2747 ASSUME RPGCNT EQ RSVAPTE+4 

2748 

2749 -ENABL LSB 

2750 SWPREAD: 7; SWAP READ INITIATION 

2751 PUSHAB G*EXESBLDPKTSWPR ; SET ADDRESS OF BUILD PACKET ROUTINE 
2752 BRB 10S ; 

2753 SWPWRITE: ; SWAP WRITE INITIATION 

2754 PUSHAB G*EXESBLDPKTSWPW ; SET ADDRESS OF BUILD PACKET ROUTINE 
2755 108: MOVAB W* IOROUTINE, R1 3; ADDRESS OF I/O DATA 
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2756 MOVQ (SP)+, (R1) + + SAVE I/O END ACTION ADDRESS 

2757 MOVL R4, (R1) + 7 Save remaining page cnt (entire xfer) 
2758 POPR #°M<R6,R7,R8,R9,R10,R11,AP,FP>; RESTORE REGISTERS OTHER THAN STANDAR 
2759 

2760 118: BICL3 #<1@31>, 4(R2),R5 7 Get pointer page count 

2761 SUBL2 R5,R0 7; Subtract from pages remaining to skip 
2762 BLSS 13$ ? Quit if enough pages skipped 

2763 BBS #31,4(R2),12$ ; Bugcheck if last pointer 

2764 MOVAQ 8(R2),R2 3 Move to next pointer 

2765 BRB 11$ 

2766 

2767 128: BUG CHECK INVPFLMAP, FATAL 

2768 

2769 7 RO contains -(excess page count) 

2770 138: MOVL R2, (R1) + ; Save PFLMAP window pointer 

2771 MNEGL RO, R4 7 Set beginning page count 

2772 ADDL3 R5, (R2) ,R2 7 Set beginning WSSWP 

2773 SUBL2 R4,R2 

2774 MOVL R2, (R1) ; Save for later processing 

2775 

2776 158: EXTZV #24, #8,R2,R0 ; GET SWAP FILE INDEX 

2777 MOVL @MMGSGL_PAGSWPVC[RO],RO ; GET BASE ADDRESS OF PAGE FILE TABLE 
2778 MOVL B“<TPGCNT-RWSSWP>(R1),R5; Get remaining page count (entire xfer) 
2779 CMPL R5,R4 ; Remaining page cnt >= window page cnt? 
2780 BGEQ 17$ 7 BR if yes 

2781 MOVL R5,R4 ; Else reduce window page count 

2782 178: MOVZWL #<<1@16>-1>,R5 ; SET I/O SIZE 

2783 CMPL R4,R5 ; COMPARE REMAINING PGCNT WITH MAX TRANSFER 
2784 BGTR 20$ ; USE MAXIMUM TRANSFER 

2785 MOVL R4,R5 ; SET TRANSFER TO REMAINING PAGES 

2786 208: ADDL3 R5,R2, (R1)+ ; SAVE UPDATED DISK ADDRESS 

2787 MOVAL (R3) [R5], (R1)+ ; AND UPDATED SAVPTE 

2788 

2789 7 UNLOCK MMG AND SCHED DATABASES 

2790 

2791 PUSHL RO 

2792 UNLOCK LOCKNAME=MMG, - 3 UNLOCK MMG DATABASE, LEAVE IPL 

2793 PRESERVE=NO 7 OK to destroy RO 

2794 UNLOCK LOCKNAME=SCHED, - ; UNLOCK SCHED DATABASE 

2795 NEWIPL=4#0, - 3 DROP IPL 

2796 PRESERVE=NO 7; OK to destroy RO 

2797 POPL RO 

2798 SUBL3 R5,R4, (R1) ; SAVE REMAINING PAGE COUNT 

2799 SUBL2 R5,B*<TPGCNT-RPGCNT>(R1); Save remaining page cnt (entire xfer) 
2800 PUSHL R3 3 SAVE SVAPTE 

2601 PUSHL PFLSL_WINDOW (RO) 3 GET WINDOW ADDRESS 

2802 ROTL #9,R5,-(SP) 3 CONVERT PAGES TO BYTE COUNT 

2803 EXTZV #0,#24,R2,-(SP) ; AND ISOLATE BLOCK NUMBER 

2804 ADDL PFLSL_VBN (RO), (SP) 7; ADD BASE VBN 

2805 JSB G*SMPSGET_CURPCB ; Get current PCB address 

2806 MOVL G*EXESAR_SYSTEM PRIMITIVES DATA,R5 ; IRP IS IN PRIVATE DATA ARE 
2807 ASSUME IOC_GQ_IRPIQ EQ 0 ; ASSUME IRP LIST IS FIRST DATA CELL 
2808 SREMQHI (R5),R5 ; GET A PACKET IF POSSIBLE 

2809 3; NOTE: RO is destroyed by $REMQHI macro 
2810 BVC 30$ 7; BR IF ONE AVAILABLE 

2811 JSB G*EXESALLOCIRP ; ALLOCATE ONE THE LONG WAY 

2812 MOVL R2,R5 ; SET PACKET ADDRESS IN PROPER REGISTER 
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2813 30S: MOVAB B* IODONE, IRPS$L_ASTPRM(RS5) ; SET ADDRESS FOR COMPLETION 


2814 SUBB3 G*SWPSGB_PRIO, #31, IRP$B_PRI(R5) ; SET PRIORITY FOR TRANSFER 
2815 POPR #°M<RO, R1,R2, R3> 7 RESTORE VBN, BYTECNT, WINDOW, SVAPTE 
2816 JSB Q@W* IOROUTINE # CALL READ OR WRITE ROUTINE 

2817 

2818 7 We must re-acquire the MMG and SCHED databases because we are 
2819 7 about to return to the caller’s caller, which happend to have 
2820 7 taken out the SPINLOCKS in the first place. Therefore, that code 
2821 ? is going to want to release the spinlocks. 

2822 

2823 LOCK LOCKNAME=MMG, - 7 LOCK MMG DATABASE 

2824 PRESERVE=NO 3 OK to destroy RO 

2825 LOCK LOCKNAME=SCHED, - 7 LOCK SCHED DATABASE 

2826 CONDITION=NOSETIPL, - 7 (WELL, DON’T REALLY SET IPL) 

2827 PRESERVE=NO 7 OK to destroy RO 

2828 RSB 7 AND RETURN TO ORIGINAL CALLER 
2829 7 (IE RETURN TO THE CALLER’S CALLER) 
2830 

2831 IODONE: + CONTINUATION CALLED AS KERNEL AST 
2832 7 IPL = IPL$_ASTDEL 

2833 PUSHL IRPS$L_IOST1(R5) 7 SAVE COMPLETION STATUS 

2834 MOVL R5, RO ; SET PACKET ADDRESS FOR RELEASE | 
2835 JSB ' G*EXESDEANONPAGED ? AND RELEASE IT 

2836 

2837 7 Take out MMG and SCHED spinlocks again ! 

2838 

2839 LOCK LOCKNAME=MMG, - 3 LOCK MMG DATABASE 

2840 PRESERVE=NO 7; OK to destroy RO 

2841 LOCK LOCKNAME=SCHED, - 7; LOCK SCHED DATABASE 

2842 CONDITION=NOSETIPL, - 3 (WELL, DON’T REALLY SET IPL) 

2843 PRESERVE=NO 3 OK to destroy RO 

2844 POPL RO 7 Restore status 

2845 BSBB 40$ 7 Perform completion work 

2846 UNLOCK LOCKNAME=MMG, - 7 UNLOCK MMG DATABASE, LEAVE IPL 
2847 PRESERVE=NO 7 OK to destroy RO 

2848 UNLOCK LOCKNAME=SCHED, - # UNLOCK SCHED DATABASE 

2849 NEWIPL=#IPL$_ASTDEL, - 7 LOWER IPL 

2850 PRESERVE=NO 3; OK to destroy RO 

2851 RSB 7 RETURN TO CALLER 

2852 

2853 40S: BLBC RO, 60$ 7; EXIT IF ERROR 

2854 MOVAB W*RWSSWP , R1 ; GET ADDRESS OF REMAINING TRANSFER PARAMS 
2855 MOVQ (R1),R2 7 RESTORE WSSWP,SVAPTE TO R2,R3 
2856 MOVL B*<RPGCNT-RWSSWP>(R1),R4 ; AND REMAINING PAGE COUNT 

2857 BEQL 50S 7 BR if no more pages in mapping pointer 
2858 BRW 15$ 7; CONTINUE IF MORE PAGES REMAIN 
2859 

2860 45S: BUG CHECK INVPFLMAP, FATAL 

2861 

2862 508: TSTL B*<TPGCNT-RWSSWP> (R1) + Test remaining page cnt. (entire xfer) 
2863 BEQL 60$ 7; Exit if no more pages 

2864 ADDL3 #8, B*<PFLMAP-RWSSWP>(R1),R2; R2 = address of next pointer 
2865 MOVL R2, B*<PFLMAP-RWSSWP>(R1); Save updated address 

2866 BBS #31,-4(R2),45$ ; Bugcheck if last pointer just used 
2867 BICL3 #<1@31>,4(R2),R4 ; Set page count from next pointer 
2868 MOVIL (R2),R2 7; Set WSSWP from next pointer 

2869 MOVL R2, (R1) 7 and save for processing 
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2870 BRW 18$ 

2871 

2872 60§: PUSHR €°“M<RCE,R7,RE,RO,R10,R11,AP,FP>; SAVE NON-STANDARD REGISTERS 
2873 JMP @W* IOEZA 3 AND CONTINUE SWAP 

2874 

2875 -DSABL LSB ; 

2876 ERD 
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